topic Re: Triggering a mail in Application Development and Automation Discussions

topic Re: Triggering a mail in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979095#M1340575 <HTML><HEAD></HEAD><BODY><P>HI hiren,</P><P></P><P> My requirement is to just a send a mail with out attachment.</P><P></P><P>murali</P></BODY></HTML> Wed, 05 Aug 2009 05:22:42 GMT Former Member 2009-08-05T05:22:42Z Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979090#M1340570 <HTML><HEAD></HEAD><BODY><P>hi,</P><P></P><P>I am trying to trigger a mail thru the following code.But, the mail is not getting triggered. </P><P></P><P>PARAMETERS: p_email(50) LOWER CASE.</P><P></P><P>DATA: document_data LIKE sodocchgi1.</P><P>DATA: t_content LIKE STANDARD TABLE OF solisti1.</P><P>DATA: s_content LIKE solisti1.</P><P>DATA: t_receivers LIKE STANDARD TABLE OF somlreci1.</P><P>DATA: s_receivers LIKE somlreci1.</P><P></P><P>START-OF-SELECTION.</P><P></P><UL><LI level="1" type="ul"><P>Receivers.</P></LI></UL><P>s_receivers-receiver = p_email.</P><P>s_receivers-rec_type = 'U'.</P><P>s_receivers-express = 'X'.</P><P>APPEND s_receivers TO t_receivers.</P><P></P><UL><LI level="1" type="ul"><P>Subject</P></LI></UL><P>document_data-obj_descr = 'New mail from Sap'.</P><P></P><UL><LI level="1" type="ul"><P>Body</P></LI></UL><P>s_content = 'Hi,'.</P><P>APPEND s_content TO t_content.</P><P></P><P>CLEAR: s_content.</P><P>APPEND s_content TO t_content.</P><P></P><P>s_content = 'Test email from sap, please don''t reply to this email'.</P><P>APPEND s_content TO t_content.</P><P></P><P>CLEAR: s_content.</P><P>APPEND s_content TO t_content.</P><P></P><P>s_content = 'Thanks,'.</P><P>APPEND s_content TO t_content.</P><P></P><P>s_content = 'Naren.'.</P><P>APPEND s_content TO t_content.</P><P></P><UL><LI level="1" type="ul"><P>Send the email.</P></LI></UL><P>CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'</P><P>EXPORTING</P><P>document_data = document_data</P><P>TABLES</P><P>object_content = t_content</P><P>receivers = t_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>IF sy-subrc <> 0.</P><P>MESSAGE e208(00) WITH 'Error in sending email :-(('.</P><P>ELSE.</P><P>MESSAGE s208(00) WITH 'Email sent <SPAN __jive_emoticon_name="happy"></SPAN>)'.</P><P>ENDIF.</P><P>wait up to 2 seconds.</P><P>SUBMIT rsconn01 WITH mode = 'INT'</P><P> with output = 'X'</P><P> AND RETURN.</P><P></P><P></P><P></P><P>Murali.c</P></BODY></HTML> Wed, 05 Aug 2009 04:17:37 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979090#M1340570 Former Member 2009-08-05T04:17:37Z Re: Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979091#M1340571 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>Use this following code</P><P></P><P></P><P>REPORT Ztest_MAIL.</P><P></P><P></P><UL><LI level="1" type="ul"><P>Data Declaration</P></LI></UL><P></P><P>DATA: DOCDATA LIKE SODOCCHGI1,</P><P> OBJPACK LIKE SOPCKLSTI1 OCCURS 1 WITH HEADER LINE,</P><P> OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE,</P><P> OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE,</P><P> OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE,</P><P> OBJHEX LIKE SOLIX OCCURS 10 WITH HEADER LINE,</P><P> RECLIST LIKE SOMLRECI1 OCCURS 1 WITH HEADER LINE.</P><P>DATA: TAB_LINES TYPE I,</P><P> DOC_SIZE TYPE I,</P><P> ATT_TYPE LIKE SOODK-OBJTP.</P><P></P><P>DATA: LISTOBJECT LIKE ABAPLIST OCCURS 1 WITH HEADER LINE.</P><P></P><P></P><P>OBJBIN = ' | '. APPEND OBJBIN.</P><P>OBJPACK-HEAD_START = 1.</P><P>DESCRIBE TABLE OBJBIN LINES TAB_LINES.</P><P></P><P>OBJPACK-HEAD_START = 1.</P><P></P><UL><LI level="1" type="ul"><P>NOTE: Create ALI/OTF Document in Spool</P></LI><LI level="1" type="ul"><P> ALI Document can be created by displaying a list and selecting</P></LI><LI level="1" type="ul"><P> menue System -> List -> Print (only put to Spool).</P></LI><LI level="1" type="ul"><P> OTF Document can be created running report SF_EXAMPLE_01 in</P></LI></UL><P>*SYSTEM.</P><UL><LI level="1" type="ul"><P>Example used here:</P></LI><LI level="1" type="ul"><P> create list in memory</P></LI></UL><P></P><P></P><P>DATA: TAB TYPE TABLE OF SOLISTI1 WITH HEADER LINE.</P><P></P><P>TAB-LINE = 'data''.</P><P>APPEND TAB.</P><P></P><P>TAB-LINE = 'data''.</P><P>APPEND TAB.</P><P></P><P>EXPORT TAB TO MEMORY ID 'HC'.</P><P></P><P>SUBMIT ZHC_WRITE EXPORTING LIST TO MEMORY AND RETURN.</P><UL><LI level="1" type="ul"><P> and read list from memory into table</P></LI></UL><P></P><P>CALL FUNCTION 'LIST_FROM_MEMORY'</P><P> TABLES</P><P> LISTOBJECT = LISTOBJECT</P><P> EXCEPTIONS</P><P> OTHERS = 1.</P><P></P><P>IF SY-SUBRC <> 0.</P><P> MESSAGE ID '61' TYPE 'E' NUMBER '731'</P><P> WITH 'LIST_FROM_MEMORY'.</P><P>ENDIF.</P><P></P><P>*PACKING_LIST = OBJPACK.</P><UL><LI level="1" type="ul"><P> Because listobject is of size RAW(1000)</P></LI><LI level="1" type="ul"><P> and objbin is of size CHAR(255) we make this table copy</P></LI></UL><P></P><P>CALL FUNCTION 'TABLE_COMPRESS'</P><UL><LI level="1" type="ul"><P> IMPORTING</P></LI><LI level="1" type="ul"><P> COMPRESSED_SIZE =</P></LI></UL><P>TABLES</P><P>IN = LISTOBJECT</P><P>OUT = OBJBIN</P><P>EXCEPTIONS</P><P>OTHERS = 1 .</P><P></P><P>IF SY-SUBRC <> 0.</P><P> MESSAGE ID '61' TYPE 'E' NUMBER '731' WITH 'TABLE_COMPRESS'.</P><P>ENDIF.</P><P></P><P>*ELSE.</P><P></P><UL><LI level="1" type="ul"><P>NOTE: Creation of attachment is finished yet.</P></LI><LI level="1" type="ul"><P> For your report, the attachment should be placed into table</P></LI><LI level="1" type="ul"><P> objtxt for plain text or</P></LI><LI level="1" type="ul"><P> objbin for binary content.</P></LI><LI level="1" type="ul"><P> Now create the message and send the document.</P></LI></UL><P>*'recipients!'.</P><UL><LI level="1" type="ul"><P>Create Message Body</P></LI><LI level="1" type="ul"><P> Title and Description</P></LI></UL><P></P><P>DOCDATA-OBJ_NAME = 'TEST_ALI'.</P><P>DOCDATA-OBJ_DESCR = 'Test including ALI/HTML Attachment'.</P><UL><LI level="1" type="ul"><P> Main Text</P></LI></UL><P>OBJTXT = 'Test Document.'.</P><P>APPEND OBJTXT.</P><P>OBJTXT = 'You will find an ALI/HTML attachment in this message.'.</P><P>APPEND OBJTXT.</P><P>OBJTXT = 'Have a nice day.'.</P><P>APPEND OBJTXT.</P><P></P><UL><LI level="1" type="ul"><P> Write Packing List (Main)</P></LI></UL><P></P><P>DESCRIBE TABLE OBJTXT LINES TAB_LINES.</P><P>READ TABLE OBJTXT INDEX TAB_LINES.</P><P>DOCDATA-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).</P><P>CLEAR OBJPACK-TRANSF_BIN.</P><P>OBJPACK-HEAD_START = 1.</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><P></P><UL><LI level="1" type="ul"><P>Create Message Attachment</P></LI><LI level="1" type="ul"><P> Write Packing List (Attachment)</P></LI></UL><P></P><P>ATT_TYPE = 'ALI'.</P><P>DESCRIBE TABLE OBJBIN LINES TAB_LINES.</P><P>READ TABLE OBJBIN INDEX TAB_LINES.</P><P>OBJPACK-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJBIN ).</P><P>OBJPACK-TRANSF_BIN = 'X'.</P><P>OBJPACK-HEAD_START = 1.</P><P>OBJPACK-HEAD_NUM = 0.</P><P>OBJPACK-BODY_START = 1.</P><P>OBJPACK-BODY_NUM = TAB_LINES.</P><P>OBJPACK-DOC_TYPE = ATT_TYPE.</P><P>OBJPACK-OBJ_NAME = 'ATTACHMENT'.</P><P>OBJPACK-OBJ_DESCR = 'Attached Document'.</P><P>APPEND OBJPACK.</P><P></P><P></P><UL><LI level="1" type="ul"><P>Create receiver list</P></LI></UL><P></P><P>RECLIST-RECEIVER = "<-- email address</P><P></P><P></P><P>RECLIST-REC_TYPE = 'U'.</P><P>APPEND RECLIST.</P><P></P><UL><LI level="1" type="ul"><P>Send Message</P></LI></UL><P>CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'</P><P> EXPORTING</P><P> DOCUMENT_DATA = DOCDATA</P><P> PUT_IN_OUTBOX = 'X'</P><P> COMMIT_WORK = 'X' "used from rel.6.10</P><UL><LI level="1" type="ul"><P> IMPORTING</P></LI><LI level="1" type="ul"><P> SENT_TO_ALL =</P></LI><LI level="1" type="ul"><P> NEW_OBJECT_ID =</P></LI></UL><P> TABLES</P><P> PACKING_LIST = OBJPACK</P><P> OBJECT_HEADER = OBJHEAD</P><P> CONTENTS_BIN = OBJBIN</P><P> CONTENTS_TXT = OBJTXT</P><UL><LI level="1" type="ul"><P> CONTENTS_HEX = objhex</P></LI><LI level="1" type="ul"><P> OBJECT_PARA =</P></LI><LI level="1" type="ul"><P> OBJECT_PARB =</P></LI></UL><P> RECEIVERS = RECLIST</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><P> MESSAGE ID 'SO' TYPE 'S' NUMBER '023' WITH DOCDATA-OBJ_NAME.</P><P>ENDIF.</P><P>*</P><P>*WAIT UP TO 2 SECONDS.</P><P>*SUBMIT RSCONN01 WITH MODE = 'INT'</P><UL><LI level="1" type="ul"><P> WITH OUTPUT = 'X'</P></LI><LI level="1" type="ul"><P> AND RETURN.</P></LI></UL><P></P><P>WRITE: / 'End of Program'.</P><P></P><P>Hope if helps.</P><P></P><P>Regards</P><P>Hiren K.Chitalia</P></BODY></HTML> Wed, 05 Aug 2009 04:25:22 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979091#M1340571 Former Member 2009-08-05T04:25:22Z Re: Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979092#M1340572 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P>Can you check the status of the mail in SOST Tcode ,</P><P></P><P></P><P>Regards,</P><P>Dwaraka.</P></BODY></HTML> Wed, 05 Aug 2009 04:54:22 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979092#M1340572 former_member313270 2009-08-05T04:54:22Z Re: Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979093#M1340573 <HTML><HEAD></HEAD><BODY><P>hi,</P><P></P><P> No messages are existing in SOST.and the submit program is throwing a message 'No Messages sent'.</P><P></P><P>murali</P></BODY></HTML> Wed, 05 Aug 2009 05:08:42 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979093#M1340573 Former Member 2009-08-05T05:08:42Z Re: Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979094#M1340574 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>Have you checked the program that i have given.</P><P></P><P>Regards</P><P>Hiren K.Chitalia</P></BODY></HTML> Wed, 05 Aug 2009 05:12:45 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979094#M1340574 Former Member 2009-08-05T05:12:45Z Re: Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979095#M1340575 <HTML><HEAD></HEAD><BODY><P>HI hiren,</P><P></P><P> My requirement is to just a send a mail with out attachment.</P><P></P><P>murali</P></BODY></HTML> Wed, 05 Aug 2009 05:22:42 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979095#M1340575 Former Member 2009-08-05T05:22:42Z Re: Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979096#M1340576 <HTML><HEAD></HEAD><BODY><P><SPAN __default_attr="blue" __jive_macro_name="color">Hi Murali, Try this way. <PRE><CODE> REPORT zvenkat_mail_simple. "Variables DATA : g_sent_to_all TYPE sonv-flag, g_tab_lines TYPE i. "Types TYPES: t_document_data TYPE sodocchgi1, t_packing_list TYPE sopcklsti1, t_attachment TYPE solisti1, t_body_msg TYPE solisti1, t_receivers TYPE somlreci1. "Workareas DATA : w_document_data TYPE t_document_data, w_packing_list TYPE t_packing_list, w_attachment TYPE t_attachment, w_body_msg TYPE t_body_msg, w_receivers TYPE t_receivers. "Internal Tables DATA : i_document_data TYPE STANDARD TABLE OF t_document_data, i_packing_list TYPE STANDARD TABLE OF t_packing_list, i_attachment TYPE STANDARD TABLE OF t_attachment, i_body_msg TYPE STANDARD TABLE OF t_body_msg, i_receivers TYPE STANDARD TABLE OF t_receivers. PARAMETERS:p_mail TYPE char120. "start-of-selection. START-OF-SELECTION. "Subject of the mail. w_document_data-obj_name = 'MAIL_TO_HEAD'. w_document_data-obj_descr = 'Simple mail using SAP ABAP'. "Body of the mail w_body_msg = 'Hi,'. APPEND w_body_msg TO i_body_msg. CLEAR w_body_msg. w_body_msg = 'This is body of the mail.'. APPEND w_body_msg TO i_body_msg. CLEAR w_body_msg. "Write Packing List (Body) DESCRIBE TABLE i_body_msg LINES g_tab_lines. w_packing_list-head_start = 1. w_packing_list-head_num = 0. w_packing_list-body_start = 1. w_packing_list-body_num = g_tab_lines. w_packing_list-doc_type = 'RAW'. APPEND w_packing_list TO i_packing_list. CLEAR w_packing_list. "Fill the document data and get size of attachment READ TABLE i_body_msg INTO w_body_msg INDEX g_tab_lines. w_document_data-doc_size = ( g_tab_lines - 1 ) * 255 + STRLEN( w_body_msg ). "Receivers List. w_receivers-rec_type = 'U'. "Internet address w_receivers-receiver = p_mail. w_receivers-com_type = 'INT'. w_receivers-notif_del = 'X'. w_receivers-notif_ndel = 'X'. APPEND w_receivers TO i_receivers . CLEAR:w_receivers. </CODE></PRE><li>Continued--></SPAN></P></BODY></HTML> Wed, 05 Aug 2009 05:58:35 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979096#M1340576 venkat_o 2009-08-05T05:58:35Z Re: Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979097#M1340577 <HTML><HEAD></HEAD><BODY><P><SPAN __default_attr="blue" __jive_macro_name="color"><li> From above--> <PRE><CODE> "Function module to send mail to Recipients CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' EXPORTING document_data = w_document_data put_in_outbox = 'X' commit_work = 'X' IMPORTING sent_to_all = g_sent_to_all TABLES packing_list = i_packing_list contents_txt = i_body_msg receivers = i_receivers EXCEPTIONS too_many_receivers = 1 document_not_sent = 2 document_type_not_exist = 3 operation_no_authorization = 4 parameter_error = 5 x_error = 6 enqueue_error = 7 OTHERS = 8. IF sy-subrc = 0 . MESSAGE i303(me) WITH 'Mail has been Successfully Sent.'. ELSE. WAIT UP TO 2 SECONDS. SUBMIT rsconn01 WITH mode = 'INT' WITH output = 'X' AND RETURN. ENDIF.</CODE></PRE> Thanks Venkat.O</SPAN></P></BODY></HTML> Wed, 05 Aug 2009 05:58:45 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979097#M1340577 venkat_o 2009-08-05T05:58:45Z Re: Triggering a mail https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979098#M1340578 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>Please make one addition to FM and then try if it works</P><P></P><UL><LI level="1" type="ul"><P>Send the email.</P></LI></UL><P>CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'</P><P>EXPORTING</P><P>document_data = document_data</P><P><STRONG>commit_work = 'X'</STRONG></P><P>TABLES</P><P>object_content = t_content</P><P>receivers = t_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>IF sy-subrc 0.</P><P>MESSAGE e208(00) WITH 'Error in sending email :-(('.</P><P>ELSE.</P><P>MESSAGE s208(00) WITH 'Email sent <SPAN __jive_emoticon_name="happy"></SPAN>)'.</P><P>ENDIF.</P></BODY></HTML> Wed, 05 Aug 2009 06:50:51 GMT https://community.sap.com/t5/application-development-and-automation-discussions/triggering-a-mail/m-p/5979098#M1340578 Former Member 2009-08-05T06:50:51Z