topic Email functionality in Application Development and Automation Discussions

topic Email functionality in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804561#M655249 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P> I am working on a report prog where I need to send the outout through email when program is executed in background. is it technically possible? Is yes then How?</P></BODY></HTML> Mon, 17 Sep 2007 06:58:02 GMT Former Member 2007-09-17T06:58:02Z Email functionality https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804561#M655249 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P> I am working on a report prog where I need to send the outout through email when program is executed in background. is it technically possible? Is yes then How?</P></BODY></HTML> Mon, 17 Sep 2007 06:58:02 GMT https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804561#M655249 Former Member 2007-09-17T06:58:02Z Re: Email functionality https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804562#M655250 <HTML><HEAD></HEAD><BODY><P>Hi Nilesh,</P><P></P><P>Yes it is definitely possible to send the email through the Report generated in SE38.</P><P>You will have to use the function module SO_NEW_DOCUMENT_SEND_API1 to do that.</P><P>Also, keep in mind to read the documentation first as one needs to define some of the import and export parameters to be used here is a special format as mentioned in the documentation.</P><P></P><P>In case you have any further clarifications,do let me know.</P><P></P><P>Regards,</P><P>Puneet Jhari.</P></BODY></HTML> Mon, 17 Sep 2007 07:03:26 GMT https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804562#M655250 Former Member 2007-09-17T07:03:26Z Re: Email functionality https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804563#M655251 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>Use the below code</P><P></P><P>****************************************</P><UL><LI level="1" type="ul"><P>Check the mail in T-code SBWP</P></LI><LI level="1" type="ul"><P>To check the send mail status T-Code SOST</P></LI></UL><P>***********************************************</P><P>TABLES:pa0001.</P><P></P><P>DATA: v_ans,</P><P>v_body_lines TYPE i.</P><P></P><UL><LI level="1" type="ul"><P>Local declarations</P></LI></UL><P>CONSTANTS:</P><P>c_note_00 TYPE solisti1 VALUE 'NOTE',</P><P>c_note_01 TYPE solisti1 VALUE</P><P>'Do not reply to this email, instead please contact the compensation ',</P><P>c_note_02 TYPE solisti1 VALUE</P><P>'specialist (see above for contact details). This will help avoid ',</P><P>c_note_03 TYPE solisti1 VALUE</P><P>'unnecessarily delaying your request.'.</P><P></P><P>DATA: it_packing_list TYPE TABLE OF sopcklsti1,</P><P>wa_packing_list LIKE LINE OF it_packing_list,</P><P>it_receivers TYPE TABLE OF somlreci1,</P><P>wa_receivers LIKE LINE OF it_receivers,</P><P>it_mailbody TYPE TABLE OF solisti1,</P><P>wa_mailbody LIKE LINE OF it_mailbody.</P><P></P><P>DATA: it_doc TYPE sodocchgi1.</P><P></P><P>DATA: v_sent_all TYPE boolean.</P><P></P><P>START-OF-SELECTION.</P><P></P><UL><LI level="1" type="ul"><P>mail header</P></LI></UL><P>it_doc-obj_descr = 'Hello'.</P><P></P><UL><LI level="1" type="ul"><P>Add the recipients email address</P></LI></UL><P>CLEAR wa_receivers.</P><P>REFRESH it_receivers.</P><P></P><P>wa_receivers-receiver = 'XXXXX@XXXX.COM'.</P><P>wa_receivers-rec_type = 'U'.</P><P>wa_receivers-com_type = 'INT'.</P><P>wa_receivers-notif_del = 'X'.</P><P>wa_receivers-notif_ndel = 'X'.</P><P>APPEND wa_receivers TO it_receivers.</P><P></P><P>wa_receivers-receiver = 'XXXXX@XXXX.COM'.</P><P>wa_receivers-rec_type = 'U'.</P><P>wa_receivers-com_type = 'INT'.</P><P>wa_receivers-notif_del = 'X'.</P><P>wa_receivers-notif_ndel = 'X'.</P><P>APPEND wa_receivers TO it_receivers.</P><P></P><UL><LI level="1" type="ul"><P>Mail Body</P></LI></UL><P>CLEAR wa_mailbody.</P><P>REFRESH it_mailbody.</P><P></P><P>wa_mailbody-line = 'Hi All,'.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P></P><P>wa_mailbody-line = ' '.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P></P><P>wa_mailbody-line = 'This is a test mail'.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P></P><P>wa_mailbody-line = ' '.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P></P><P>DO 3 TIMES.</P><P>wa_mailbody-line = ' '.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P>ENDDO.</P><P></P><P>wa_mailbody-line = c_note_00.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P></P><P>wa_mailbody-line = c_note_01.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P></P><P>wa_mailbody-line = c_note_02.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P></P><P>wa_mailbody-line = c_note_03.</P><P>APPEND wa_mailbody TO it_mailbody.</P><P></P><UL><LI level="1" type="ul"><P>Describe the body of the message</P></LI></UL><P>CLEAR wa_packing_list.</P><P>REFRESH it_packing_list.</P><P>wa_packing_list-transf_bin = space.</P><P>wa_packing_list-head_start = 1.</P><P>wa_packing_list-head_num = 0.</P><P>wa_packing_list-body_start = 1.</P><P>DESCRIBE TABLE it_mailbody LINES v_body_lines.</P><P>wa_packing_list-body_num = v_body_lines.</P><P>wa_packing_list-doc_type = 'RAW'.</P><P>APPEND wa_packing_list TO it_packing_list.</P><P></P><P>CALL FUNCTION 'SO_DOCUMENT_SEND_API1'</P><P>EXPORTING</P><P>document_data = it_doc</P><P>put_in_outbox = 'X'</P><P>commit_work = 'X'</P><P>IMPORTING</P><P>sent_to_all = v_sent_all</P><P>TABLES</P><P>packing_list = it_packing_list</P><P>contents_txt = it_mailbody</P><P>receivers = it_receivers</P><P>EXCEPTIONS</P><P>too_many_receivers = 1</P><P>document_not_sent = 2</P><P>document_type_not_exist = 3</P><P>operation_no_authorization = 4</P><P>parameter_error = 5</P><P>x_error = 6</P><P>enqueue_error = 7</P><P>OTHERS = 8.</P><P></P><P>IF sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P>WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P>ELSE.</P><P>WRITE:/ 'Mail has been sent to the receivers sucessfully'.</P><P></P><P>ENDIF.</P></BODY></HTML> Mon, 17 Sep 2007 07:06:01 GMT https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804563#M655251 Former Member 2007-09-17T07:06:01Z Re: Email functionality https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804564#M655252 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>Definitely , you can use:</P><P></P><P>if sy-batch = 'X'. " program running in batch</P><P> perform send_mail.</P><P>endif.</P><P></P><P>Here is a sample program for email:</P><P></P><P>data: objpack like sopcklsti1 occurs 2 with header line.</P><P>data: objhead like solisti1 occurs 1 with header line.</P><P>data: objbin like solisti1 occurs 10 with header line.</P><P>data: objtxt like solisti1 occurs 10 with header line.</P><P>data: reclist like somlreci1 occurs 5 with header line.</P><P>data: doc_chng like sodocchgi1.</P><P>data: tab_lines like sy-tabix.</P><P>data: sent_to_all like sonv-flag.</P><P></P><P>data : begin of itab occurs 0,</P><P>pernr like p0001-pernr,</P><P>name like p0002-vorna,</P><P>end of itab.</P><P></P><UL><LI level="1" type="ul"><P>Creation of the document to be sent</P></LI><LI level="1" type="ul"><P>File Name</P></LI></UL><P>doc_chng-obj_name = 'SENDFILE'.</P><UL><LI level="1" type="ul"><P>Mail Subject</P></LI></UL><P> concatenate 'Type your title here'</P><P> space</P><P> into doc_chng-obj_descr.</P><P></P><UL><LI level="1" type="ul"><P>Mail Contents</P></LI></UL><P>objtxt = 'Dear text'.</P><P>append objtxt.</P><P>objtxt = 'Type your text here'.</P><P>append objtxt.</P><P></P><P>append objtxt.</P><P>describe table objtxt lines tab_lines.</P><P>*</P><UL><UL><LI level="2" type="ul"><P>Creation of the entry for the document</P></LI></UL></UL><P>clear objpack-transf_bin. "Will get content from content_text</P><P>objpack-head_start = 1. "Reads given row number in object header</P><P>objpack-head_num = 0.</P><P>objpack-body_start = 1.</P><P>objpack-body_num = tab_lines.</P><P>objpack-doc_type = 'RAW'.</P><P>append objpack.</P><P></P><UL><LI level="1" type="ul"><P>Prepare content for attachment</P></LI></UL><P>*DO 3 TIMES.</P><P>*itab-pernr = 182.</P><P>*itab-name = 'test '.</P><P>*APPEND itab.</P><P>*itab-pernr = 1000.</P><P>*itab-name = 'test'.</P><P>*APPEND itab.</P><P>*ENDDO.</P><P></P><P>describe table itab lines tab_lines.</P><P>*</P><UL><UL><LI level="2" type="ul"><P>Populate attachment content</P></LI></UL></UL><P>*LOOP AT itab.</P><UL><UL><LI level="2" type="ul"><P> if sy-tabix = 1.</P></LI><LI level="2" type="ul"><P> concatenate 'Field1'</P></LI><LI level="2" type="ul"><P> 'Field2'</P></LI><LI level="2" type="ul"><P> 'Field3'</P></LI><LI level="2" type="ul"><P> CL_ABAP_CHAR_UTILITIES=>NEWLINE</P></LI><LI level="2" type="ul"><P> INTO objbin-line</P></LI><LI level="2" type="ul"><P> SEPARATED BY CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.</P></LI><LI level="2" type="ul"><P> APPEND objbin.</P></LI><LI level="2" type="ul"><P> ENDIF.</P></LI></UL><LI level="1" type="ul"><P> CONCATENATE itab-pernr</P></LI><LI level="1" type="ul"><P> itab-name</P></LI><LI level="1" type="ul"><P> '3rd row'</P></LI><LI level="1" type="ul"><P> INTO objbin-line.</P></LI></UL><P>*CONDENSE objbin-line.</P><P>*APPEND objbin.</P><P>*</P><P>*ENDLOOP.</P><P></P><P>describe table objbin lines tab_lines.</P><P></P><UL><LI level="1" type="ul"><P>Creation of attachment in xls form, </P></LI><UL><UL><LI level="3" type="ul"><P>Creation of the entry for the compressed attachment</P></LI></UL></UL></UL><P>*objpack-transf_bin = 'X'. "Will get content from content_bin</P><P>*objpack-head_start = 1.</P><P>*objpack-head_num = 1.</P><P>*objpack-body_start = 1.</P><P>*objpack-body_num = tab_lines.</P><P>**objpack-doc_type = 'EXT'.</P><P>**objpack-obj_name = 'WEBSITE'.</P><P>**objpack-obj_descr = 'QuickLogirest.XLS'. " </P><P>*objpack-doc_size = tab_lines * 255.</P><P>*APPEND objpack.</P><P></P><UL><LI level="1" type="ul"><P>target recipent</P></LI></UL><P>clear reclist.</P><P></P><P>reclist-receiver = 'receiver@domain.com'.</P><P>*reclist-express = 'X'.</P><P>reclist-rec_type = 'U'.</P><P>append reclist.</P><P></P><P></P><UL><LI level="1" type="ul"><P>copy recipents</P></LI></UL><P>*CLEAR reclist.</P><P>***reclist-receiver = 'receiver@domain.com'.</P><P>**reclist-express = 'X'.</P><P>*reclist-rec_type = 'U'.</P><P>*reclist-copy = 'X'.</P><P>*APPEND reclist.</P><P></P><P></P><P></P><UL><UL><LI level="2" type="ul"><P>Sending the document</P></LI></UL></UL><P>*CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'</P><P>*EXPORTING</P><P>*document_data = doc_chng</P><P>*put_in_outbox = 'X'</P><P>*commit_work = 'X'</P><P>*TABLES</P><P>*packing_list = objpack</P><P>*object_header = objhead</P><P>*contents_bin = objbin</P><P>*contents_txt = objtxt</P><P>*receivers = reclist</P><P>*EXCEPTIONS</P><P>*too_many_receivers = 1</P><P>*document_not_sent = 2</P><P>*operation_no_authorization = 4</P><P>*OTHERS = 99.</P><P>.</P><P>if sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P>endif.</P><P></P><P>if sy-subrc = 0.</P><P> write:'Apparently successful'.</P><P>else.</P><P> write:'Error while sending mail!'.</P><P>endif.</P><P></P><P>Regards,</P><P>Reward if helpful.</P></BODY></HTML> Mon, 17 Sep 2007 07:12:13 GMT https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804564#M655252 dev_parbutteea 2007-09-17T07:12:13Z Re: Email functionality https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804565#M655253 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>PARAMETERS: psubject(40) type c default 'Hello',</P><P>p_email(40) type c default 'test@sapdev.co.uk' .</P><P></P><P>data: it_packing_list like sopcklsti1 occurs 0 with header line,</P><P>it_contents like solisti1 occurs 0 with header line,</P><P>it_receivers like somlreci1 occurs 0 with header line,</P><P>it_attachment like solisti1 occurs 0 with header line,</P><P>gd_cnt type i,</P><P>gd_sent_all(1) type c,</P><P>gd_doc_data like sodocchgi1,</P><P>gd_error type sy-subrc.</P><P></P><P>data: it_message type standard table of SOLISTI1 initial size 0</P><P>with header line.</P><P></P><P>***********************************************************************</P><P>*START-OF-SELECTION.</P><P>START-OF-SELECTION.</P><P></P><P>Perform populate_message_table.</P><P></P><P>*Send email message, although is not sent from SAP until mail send</P><P>*program has been executed(rsconn01)</P><P>PERFORM send_email_message.</P><P></P><P>*Instructs mail send program for SAPCONNECT to send email(rsconn01)</P><P>perform initiate_mail_execute_program.</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form POPULATE_MESSAGE_TABLE</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Adds text to email text table</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form populate_message_table.</P><P>Append 'Email line 1' to it_message.</P><P>Append 'Email line 2' to it_message.</P><P>Append 'Email line 3' to it_message.</P><P>Append 'Email line 4' to it_message.</P><P>endform. " POPULATE_MESSAGE_TABLE</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form SEND_EMAIL_MESSAGE</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Send email message</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form send_email_message.</P><UL><LI level="1" type="ul"><P>Fill the document data.</P></LI></UL><P>gd_doc_data-doc_size = 1.</P><P></P><UL><LI level="1" type="ul"><P>Populate the subject/generic message attributes</P></LI></UL><P>gd_doc_data-obj_langu = sy-langu.</P><P>gd_doc_data-obj_name = 'SAPRPT'.</P><P>gd_doc_data-obj_descr = psubject.</P><P>gd_doc_data-sensitivty = 'F'.</P><P></P><UL><LI level="1" type="ul"><P>Describe the body of the message</P></LI></UL><P>clear it_packing_list.</P><P>refresh it_packing_list.</P><P>it_packing_list-transf_bin = space.</P><P>it_packing_list-head_start = 1.</P><P>it_packing_list-head_num = 0.</P><P>it_packing_list-body_start = 1.</P><P>describe table it_message lines it_packing_list-body_num.</P><P>it_packing_list-doc_type = 'RAW'.</P><P>append it_packing_list.</P><P></P><UL><LI level="1" type="ul"><P>Add the recipients email address</P></LI></UL><P>clear it_receivers.</P><P>refresh it_receivers.</P><P>it_receivers-receiver = p_email.</P><P>it_receivers-rec_type = 'U'.</P><P>it_receivers-com_type = 'INT'.</P><P>it_receivers-notif_del = 'X'.</P><P>it_receivers-notif_ndel = 'X'.</P><P>append it_receivers.</P><P></P><UL><LI level="1" type="ul"><P>Call the FM to post the message to SAPMAIL</P></LI></UL><P>call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'</P><P>exporting</P><P>document_data = gd_doc_data</P><P>put_in_outbox = 'X'</P><P>importing</P><P>sent_to_all = gd_sent_all</P><P>tables</P><P>packing_list = it_packing_list</P><P>contents_txt = it_message</P><P>receivers = it_receivers</P><P>exceptions</P><P>too_many_receivers = 1</P><P>document_not_sent = 2</P><P>document_type_not_exist = 3</P><P>operation_no_authorization = 4</P><P>parameter_error = 5</P><P>x_error = 6</P><P>enqueue_error = 7</P><P>others = 8.</P><P></P><UL><LI level="1" type="ul"><P>Store function module return code</P></LI></UL><P>gd_error = sy-subrc.</P><P></P><UL><LI level="1" type="ul"><P>Get it_receivers return code</P></LI></UL><P>loop at it_receivers.</P><P>endloop.</P><P>endform. " SEND_EMAIL_MESSAGE</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form INITIATE_MAIL_EXECUTE_PROGRAM</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Instructs mail send program for SAPCONNECT to send email.</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form initiate_mail_execute_program.</P><P>wait up to 2 seconds.</P><P>if gd_error eq 0.</P><P>submit rsconn01 with mode = 'INT'</P><P>with output = 'X'</P><P>and return.</P><P>endif.</P><P>endform. " INITIATE_MAIL_EXECUTE_PROGRAM</P></BODY></HTML> Mon, 17 Sep 2007 07:19:47 GMT https://community.sap.com/t5/application-development-and-automation-discussions/email-functionality/m-p/2804565#M655253 Former Member 2007-09-17T07:19:47Z