topic Re: sending email in Application Development and Automation Discussions

topic Re: sending email in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898759#M681621 <HTML><HEAD></HEAD><BODY><P>Hi, </P><P></P><P>try this sample:</P><P></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></UL><P>doc_chng-obj_name = 'SENDFILE'.</P><UL><LI level="1" type="ul"><P>Mail Subject</P></LI></UL><P> concatenate 'title1'</P><P> 'title2'</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 user,'.</P><P>APPEND objtxt.</P><P>objtxt = ' '.</P><P>APPEND objtxt.</P><P>objtxt = 'Text1'.</P><P>APPEND objtxt.</P><P></P><P>objtxt = 'text2'.</P><P></P><P>APPEND objtxt.</P><P>objtxt = ' '.</P><P>APPEND objtxt.</P><P>objtxt = 'text3 '.</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><P></P><P></P><P>DESCRIBE TABLE itab LINES tab_lines.</P><P></P><P>DESCRIBE TABLE objbin LINES tab_lines.</P><P></P><P></P><UL><LI level="1" type="ul"><P>target recipent</P></LI></UL><P>CLEAR reclist.</P><P></P><P>reclist-receiver = 'name@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 = 'name@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><LI level="1" type="ul"><P>Sending the document</P></LI></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>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></BODY></HTML> Thu, 11 Oct 2007 06:19:37 GMT dev_parbutteea 2007-10-11T06:19:37Z sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898753#M681615 <HTML><HEAD></HEAD><BODY><P>hi Gurus</P><P>Please tell me How to pass text message to the body of the email using FM 'SO_NEW_DOCUMENT_ATT_SEND_API1'</P></BODY></HTML> Wed, 10 Oct 2007 05:22:39 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898753#M681615 Former Member 2007-10-10T05:22:39Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898754#M681616 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>For only text mail use the function module</P><P><b>SO_DOCUMENT_SEND_API1</b></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> Wed, 10 Oct 2007 05:27:22 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898754#M681616 Former Member 2007-10-10T05:27:22Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898755#M681617 <HTML><HEAD></HEAD><BODY><P>Hi</P><P>see this sample code</P><P></P><P>FORM send_mail_2 USING msgid msgno msgv1.</P><P></P><UL><LI level="1" type="ul"><P>mailuser oder Gruppe like sy-uname default 'Ruckerk'.</P></LI></UL><P>DATA: express_hold_time LIKE sovaltime.</P><P>DATA: text LIKE sotxtinfo.</P><P>DATA: receiver LIKE somlreci1 OCCURS 0 WITH HEADER LINE.</P><UL><LI level="1" type="ul"><P>MESSAGE ZF100 (FTP an UDB fehlgeschlagen)</P></LI></UL><P>text-msgid = msgid.</P><P>text-msgno = msgno.</P><P>text-msgv1 = msgv1.</P><P>text-msgv2 = ' '.</P><P>text-msgv3 = ' '.</P><P>text-msgv4 = ' '.</P><UL><LI level="1" type="ul"><P>express_hold_time</P></LI></UL><P>express_hold_time-days = 01.</P><P>express_hold_time-h_min_sec = 240000.</P><UL><LI level="1" type="ul"><P>receiver</P></LI></UL><P>receiver-receiver = mreceivr.</P><UL><LI level="1" type="ul"><P>Gruppe von Empfängern</P></LI></UL><P>receiver-rec_type = 'C'.</P><UL><LI level="1" type="ul"><P>und Expressmeldung ausgeben</P></LI></UL><P>receiver-express = 'X'.</P><P>APPEND receiver.</P><P>CALL FUNCTION 'MESSAGE_SEND_AS_MAIL'</P><P>EXPORTING</P><P>msgid = text-msgid</P><P>msgno = text-msgno</P><P>msgv1 = text-msgv1</P><P>msgv2 = text-msgv2</P><P>msgv3 = text-msgv3</P><P>TABLES</P><P>receivers = receiver.</P><P>IF sy-subrc <> 0.</P><P>WRITE:/ 'hat nicht geklappt', 'SY-SUBRC =', sy-subrc.</P><P></P><P>ENDIF.</P><P></P><P>PERFORM print_error_report.</P><P></P><UL><LI level="1" type="ul"><P>Fehlermeldung zum Abbrechen des Report's ausgeben.</P></LI></UL><P>MESSAGE e398 WITH 'Jobabbruch' msgv1.</P><P></P><P>ENDFORM. " SEND_MAIL_2</P><P></P><P>Another Program:</P><P>*& Report ZSENDEMAIL *</P><P>*& *</P><P>*&----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><P>*& Example of sending external email via SAPCONNECT *</P><P>*& *</P><P>*&----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><P>REPORT zsendemail .</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>*&----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><P>*& Form POPULATE_MESSAGE_TABLE</P><P>*&----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P>Adds text to email text table</P></LI></UL><P>*----</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>*&----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><P>*& Form SEND_EMAIL_MESSAGE</P><P>*&----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P>Send email message</P></LI></UL><P>*----</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>*&----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><P>*& Form INITIATE_MAIL_EXECUTE_PROGRAM</P><P>*&----</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>*----</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><P></P><P>Regards</P><P>ANJI</P><P></P></BODY></HTML> Wed, 10 Oct 2007 05:29:07 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898755#M681617 Former Member 2007-10-10T05:29:07Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898756#M681618 <HTML><HEAD></HEAD><BODY><P>Hi</P><P>it_mailbody is coming in attachment , but i don't want in attachment .</P><P>i have already attached a pdf file to this mail,now i need to send some message in the body of mail ( not as attachment ).</P></BODY></HTML> Wed, 10 Oct 2007 05:41:43 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898756#M681618 Former Member 2007-10-10T05:41:43Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898757#M681619 <HTML><HEAD></HEAD><BODY><P>Hi Sudheer,</P><P></P><P>Please refer to the below code.Here,it does show how to send the text in the mail.</P><P></P><P>************************************************************</P><UL><LI level="1" type="ul"><P>Program: ZRAT Creation Date: 12.04.2007 *</P></LI><LI level="1" type="ul"><P>Program Title : Retirement Age Trigger *</P></LI><LI level="1" type="ul"><P>Program Author: Puneet Jhari *</P></LI><LI level="1" type="ul"><P>Program Type : Executable *</P></LI></UL><P>************************************************************</P><UL><LI level="1" type="ul"><P>Object ID : *</P></LI><LI level="1" type="ul"><P>Technical Specification Version: *</P></LI><LI level="1" type="ul"><P>Technical Specification Author: *</P></LI><LI level="1" type="ul"><P>Code Quality Reviewer : *</P></LI><LI level="1" type="ul"><P>Transport No. : SRDK906499 *</P></LI></UL><P>************************************************************</P><UL><LI level="1" type="ul"><P>Program Description: *</P></LI></UL><P>************************************************************</P><UL><LI level="1" type="ul"><P>Inputs *</P></LI><LI level="1" type="ul"><P> Tables: *</P></LI><LI level="1" type="ul"><P> Parameters *</P></LI><LI level="1" type="ul"><P> External files: *</P></LI><LI level="1" type="ul"><P>Outputs *</P></LI><LI level="1" type="ul"><P> Reports: *</P></LI><LI level="1" type="ul"><P> Tables: *</P></LI><LI level="1" type="ul"><P> Databases: *</P></LI><LI level="1" type="ul"><P> Screens: *</P></LI><LI level="1" type="ul"><P> Parameters *</P></LI><LI level="1" type="ul"><P> External files: *</P></LI><LI level="1" type="ul"><P> Other objects: *</P></LI><LI level="1" type="ul"><P>Return codes set by ABAP: *</P></LI></UL><P>************************************************************</P><UL><LI level="1" type="ul"><P>Modification Informaion *</P></LI><LI level="1" type="ul"><P>Program Version: *</P></LI><LI level="1" type="ul"><P>Date : DD-MMM-YYYY *</P></LI><LI level="1" type="ul"><P>Author : *</P></LI><LI level="1" type="ul"><P>Description : *</P></LI><LI level="1" type="ul"><P>Transport No.: *</P></LI></UL><P>************************************************************</P><P></P><P>REPORT zrat NO STANDARD PAGE HEADING.</P><P></P><P>************************************************************</P><P>*DATA DECLARATION</P><P>************************************************************</P><P></P><P>DATA : BEGIN OF wa_ccode,</P><P> bukrs TYPE t001-bukrs,</P><P> END OF wa_ccode.</P><P></P><P>DATA : itab_ccode LIKE TABLE OF wa_ccode.</P><P></P><P>DATA : BEGIN OF wa_emp,</P><P> pernr TYPE pa0001-pernr,</P><P> sachp TYPE pa0001-sachp,</P><P> sname TYPE pa0001-sname,</P><P> END OF wa_emp.</P><P></P><P>DATA : itab_emp LIKE TABLE OF wa_emp.</P><P></P><P>DATA : BEGIN OF wa_bdate,</P><P> nachn LIKE pa0002-nachn,</P><P> vorna LIKE pa0002-vorna,</P><P> pernr TYPE pa0002-pernr,</P><P> gbdat TYPE pa0002-gbdat,</P><P> END OF wa_bdate.</P><P></P><P>DATA : itab_bdate LIKE TABLE OF wa_bdate.</P><P></P><P>DATA : new_date LIKE sy-datum.</P><P></P><P>DATA : diff TYPE i.</P><P></P><P>DATA : years LIKE p0347-scryy,</P><P> months LIKE p0347-scrmm,</P><P> days LIKE p0347-scrdd.</P><P></P><P>DATA : sup_code LIKE pa0001-sachp,</P><P> itab_usrid LIKE t526-usrid,</P><P> sup_pernr LIKE pa0105-pernr.</P><P></P><P>DATA : BEGIN OF wa_email,</P><P> usrid_long LIKE pa0105-usrid_long,</P><P> END OF wa_email.</P><P></P><P>DATA : sup_email LIKE TABLE OF wa_email.</P><P></P><P></P><P>DATA : gwa_document_data LIKE sodocchgi1,</P><P> gc_name TYPE so_obj_nam VALUE 'RETIREMENT',</P><P> gc_senst TYPE so_obj_sns VALUE 'P',</P><P> gc_size TYPE so_doc_siz VALUE '510',</P><P> gi_obj_cnt LIKE TABLE OF solisti1 WITH HEADER LINE,</P><P> gi_recievers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,</P><P> gwa_obj_cnt LIKE LINE OF gi_obj_cnt.</P><P></P><P></P><P>DATA : smtp_addr LIKE adr6-smtp_addr.</P><P></P><P></P><P>DATA : wa_date LIKE sy-datum,</P><P> entries LIKE sy-tabix,</P><P> name(15),</P><P> line1(18) TYPE c,</P><P> line2(20) TYPE c,</P><P> line3(20) TYPE c,</P><P> line4(23) TYPE c,</P><P> line5(10) TYPE c,</P><P> line6(45) type c,</P><P> date(2) TYPE c,</P><P> month(2) TYPE c,</P><P> year(4) TYPE c.</P><P></P><P></P><P>************************************************************</P><P>*START OF SELECTION</P><P>************************************************************</P><P></P><P>SELECT bukrs</P><P>FROM t001</P><P>INTO TABLE itab_ccode</P><P>WHERE land1 EQ 'GB'.</P><P></P><P>SORT itab_ccode.</P><P>DELETE ADJACENT DUPLICATES FROM itab_ccode.</P><P></P><P>SELECT pernr sachp sname</P><P>FROM pa0001</P><P>INTO TABLE itab_emp</P><P>FOR ALL ENTRIES IN itab_ccode</P><P>WHERE bukrs EQ itab_ccode-bukrs AND begda LE sy-datum AND</P><P>endda GE sy-datum and persg eq '1'.</P><P></P><P>SELECT nachn vorna pernr gbdat</P><P>FROM pa0002</P><P>INTO TABLE itab_bdate</P><P>FOR ALL ENTRIES IN itab_emp</P><P>WHERE pernr EQ itab_emp-pernr.</P><P></P><P></P><P>************************************************************</P><P>*TO CHECK EMPLOYEES WHOSE AGE IS NEAR 75 YEARS.</P><P>************************************************************</P><P></P><P>LOOP AT itab_bdate INTO wa_bdate.</P><P> new_date = wa_bdate-gbdat.</P><P></P><P></P><P></P><P>************************************************************</P><P>*TO CALCULATE THE AGE TILL DATE</P><P>************************************************************</P><P></P><P></P><P> CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'</P><P> EXPORTING</P><P> date1 = sy-datum</P><P> date2 = new_date</P><P> output_format = '05'</P><P> IMPORTING</P><P> years = years</P><P> months = months</P><P> days = days</P><P> .</P><P> IF sy-subrc <> 0.</P><P> ENDIF.</P><P></P><P></P><P> IF years EQ 64 AND months EQ 4.</P><P></P><P> IF days GE 23 AND days LE 31.</P><P></P><P></P><P></P><P>************************************************************</P><P>*FETCH THE DATA IF THE AGE IS NEARING 75 YEARS</P><P>************************************************************</P><P></P><P></P><P> SELECT SINGLE sachp FROM pa0001 INTO sup_code WHERE pernr EQ</P><P> wa_bdate-pernr AND begda LE sy-datum AND endda GE sy-datum.</P><P></P><P></P><P> SELECT SINGLE usrid FROM t526 INTO itab_usrid WHERE sachx EQ</P><P> sup_code.</P><P></P><P> SELECT SINGLE pernr FROM pa0105 INTO sup_pernr WHERE usrid EQ</P><P> itab_usrid AND subty EQ '0001'.</P><P></P><P> clear sup_email[].</P><P></P><P> SELECT usrid_long FROM pa0105 INTO TABLE sup_email WHERE pernr EQ</P><P> sup_pernr AND subty EQ '0010'.</P><P></P><P></P><P></P><P>************************************************************</P><P>*EMAIL ADDRESS OF THE SUPERVISOR TO BE NOTIFIED</P><P>************************************************************</P><P></P><P> CLEAR gi_obj_cnt.</P><P> CLEAR gi_recievers.</P><P> CLEAR gwa_document_data.</P><P></P><P> Loop at sup_email into wa_email.</P><P> write sy-uline+0(5).</P><P> write sy-uline+10(5).</P><P> write sy-uline+20(5).</P><P> write sy-uline+30(5).</P><P> write sy-uline+40(5).</P><P> write sy-uline+50(5).</P><P> write sy-uline+60(5).</P><P> write sy-uline+70(5).</P><P> smtp_addr = wa_email-usrid_long.</P><P> gi_recievers-receiver = smtp_addr.</P><P> gi_recievers-rec_type = 'U'.</P><P> gi_recievers-com_type = 'INT'.</P><P> APPEND gi_recievers.</P><P> Endloop.</P><P></P><P></P><P> smtp_addr = 'Mairi.Davidson@subsea7.com'.</P><P></P><P> gi_recievers-receiver = smtp_addr.</P><P> gi_recievers-rec_type = 'U'.</P><P> gi_recievers-com_type = 'INT'.</P><P> APPEND gi_recievers.</P><P></P><P></P><P></P><P> gwa_document_data-obj_name = gc_name.</P><P> gwa_document_data-obj_descr = 'RETIRE'.</P><P> gwa_document_data-sensitivty = gc_senst.</P><P> gwa_document_data-obj_langu = sy-langu.</P><P></P><P></P><P></P><P></P><P>************************************************************</P><P>*CONTENT OF THE EMAIL TO BE SENT</P><P>************************************************************</P><P></P><P></P><P> line1 = 'Please note that '.</P><P> line2 = wa_bdate-vorna.</P><P> line3 = wa_bdate-nachn.</P><P> line4 = ' will be 65 years on '.</P><P> line5<EM>0(4) = wa_bdate-gbdat</EM>4(4).</P><P> date = line5+2(2).</P><P> month = line5+0(2).</P><P> year = wa_bdate-gbdat+0(4) + 65.</P><P></P><P> CONCATENATE date month year INTO line5 SEPARATED BY '.'.</P><P> line6 = '.Please complete the Retirement Procedure.'.</P><P> CONCATENATE line1 line2 line3 line4 line5 line6 INTO gwa_obj_cnt</P><P> SEPARATED BY space.</P><P></P><P> APPEND gwa_obj_cnt TO gi_obj_cnt.</P><P> CLEAR gwa_obj_cnt.</P><P> DESCRIBE TABLE gi_obj_cnt LINES entries.</P><P> READ TABLE gi_obj_cnt INDEX entries.</P><P>gwa_document_data-doc_size = ( entries - 1 ) * 255 + STRLEN( gi_obj_cnt</P><P>).</P><P></P><P></P><P></P><P>************************************************************</P><P>*FUNCTION MODULE TO SEND THE EMAIL TO THE CONCERNED PERSONS</P><P>************************************************************</P><P></P><P></P><P>CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'</P><P> EXPORTING</P><P> document_data = gwa_document_data</P><P> document_type = 'RAW'</P><P> commit_work = 'X'</P><P> TABLES</P><P> object_content = gi_obj_cnt</P><P> receivers = gi_recievers</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></P><P></P><P></P><P>************************************************************</P><P>*MESSAGE TO BE DISPLAYED AFTER THE EXECUTION</P><P>************************************************************</P><P></P><UL><LI level="1" type="ul"><P> endif.</P></LI></UL><P></P><P> CASE sy-subrc.</P><P></P><P> WHEN 0.</P><P></P><P> LOOP AT gi_recievers.</P><P></P><P> IF gi_recievers-receiver = space.</P><P></P><P> name = gi_recievers-rec_id.</P><P></P><P> ELSE.</P><P></P><P> name = gi_recievers-receiver.</P><P></P><P> ENDIF.</P><P></P><P> IF gi_recievers-retrn_code = 0.</P><P></P><P> WRITE: / name, ': succesfully sent'.</P><P></P><P> ELSE.</P><P></P><P> WRITE: / name, ': error occured'.</P><P></P><P> ENDIF.</P><P></P><P> ENDLOOP.</P><P></P><P> WHEN 1.</P><P></P><P> WRITE: / 'Too many receivers specified !'.</P><P></P><P> WHEN 2.</P><P></P><P> WRITE: / 'No receiver got the document !'.</P><P></P><P> WHEN 4.</P><P></P><P> WRITE: / 'Missing send authority !'.</P><P></P><P> WHEN OTHERS.</P><P></P><P> WRITE: / 'Unexpected error occurred !'.</P><P></P><P> ENDCASE.</P><P></P><P></P><P> ENDIF.</P><P> ENDIF.</P><P></P><P></P><P>ENDLOOP.</P><P></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> Wed, 10 Oct 2007 12:19:26 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898757#M681619 Former Member 2007-10-10T12:19:26Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898758#M681620 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>The text is comming in pdf file , i don't want in pdf file.</P><P>please send me the code as text in body of email.</P></BODY></HTML> Thu, 11 Oct 2007 04:54:26 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898758#M681620 Former Member 2007-10-11T04:54:26Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898759#M681621 <HTML><HEAD></HEAD><BODY><P>Hi, </P><P></P><P>try this sample:</P><P></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></UL><P>doc_chng-obj_name = 'SENDFILE'.</P><UL><LI level="1" type="ul"><P>Mail Subject</P></LI></UL><P> concatenate 'title1'</P><P> 'title2'</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 user,'.</P><P>APPEND objtxt.</P><P>objtxt = ' '.</P><P>APPEND objtxt.</P><P>objtxt = 'Text1'.</P><P>APPEND objtxt.</P><P></P><P>objtxt = 'text2'.</P><P></P><P>APPEND objtxt.</P><P>objtxt = ' '.</P><P>APPEND objtxt.</P><P>objtxt = 'text3 '.</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><P></P><P></P><P>DESCRIBE TABLE itab LINES tab_lines.</P><P></P><P>DESCRIBE TABLE objbin LINES tab_lines.</P><P></P><P></P><UL><LI level="1" type="ul"><P>target recipent</P></LI></UL><P>CLEAR reclist.</P><P></P><P>reclist-receiver = 'name@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 = 'name@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><LI level="1" type="ul"><P>Sending the document</P></LI></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>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></BODY></HTML> Thu, 11 Oct 2007 06:19:37 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898759#M681621 dev_parbutteea 2007-10-11T06:19:37Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898760#M681622 <HTML><HEAD></HEAD><BODY><P>hi</P><P></P><P>Now i need to implement same thing useing classes and methods.</P><P></P><P>i have used </P><P> TRY.</P><UL><LI level="1" type="ul"><P> -------- create persistent send request ------------------------</P></LI></UL><P> send_request = cl_bcs=>create_persistent( ).</P><P></P><UL><LI level="1" type="ul"><P> -------- create and set document with attachment ---------------</P></LI><LI level="1" type="ul"><P> create document from internal table with text</P></LI></UL><P></P><P> APPEND 'Hello world!' TO text.</P><P> document = cl_document_bcs=>create_document(</P><P> i_type = 'RAW'</P><P> i_text = text</P><UL><LI level="1" type="ul"><P> i_hex = gti_contents_hex</P></LI></UL><P> i_length = '12'</P><P> i_subject = 'test created by BCS_EXAMPLE' ).</P><P></P><UL><LI level="1" type="ul"><P> add attachment to document</P></LI><LI level="1" type="ul"><P> BCS expects document content here e.g. from document upload</P></LI><LI level="1" type="ul"><P> binary_content = ...</P></LI></UL><P> CALL METHOD document->add_attachment</P><P> EXPORTING</P><P> i_attachment_type = 'RAW'</P><P> i_attachment_subject = 'My attachment'</P><P> <b> i_att_content_hex = gti_contents_hex.</b></P><UL><LI level="1" type="ul"><P> add document to send request</P></LI></UL><P> CALL METHOD send_request->set_document( document ).</P><P></P><UL><LI level="1" type="ul"><P> --------- set sender -------------------------------------------</P></LI><LI level="1" type="ul"><P> note: this is necessary only if you want to set the sender</P></LI><LI level="1" type="ul"><P> different from actual user (SY-UNAME). Otherwise sender is</P></LI><LI level="1" type="ul"><P> set automatically with actual user.</P></LI></UL><P></P><P> sender = cl_sapuser_bcs=>create( sy-uname ).</P><P> CALL METHOD send_request->set_sender</P><P> EXPORTING</P><P> i_sender = sender.</P><P></P><UL><LI level="1" type="ul"><P> --------- add recipient (e-mail address) -----------------------</P></LI><LI level="1" type="ul"><P> create recipient - please replace e-mail address !!!</P></LI></UL><P> recipient = cl_cam_address_bcs=>create_internet_address(</P><P> 'sudheer.kumar@gmail.com' ).</P><P></P><UL><LI level="1" type="ul"><P> add recipient with its respective attributes to send request</P></LI></UL><P> CALL METHOD send_request->add_recipient</P><P> EXPORTING</P><P> i_recipient = recipient</P><P> i_express = 'X'.</P><P> CALL METHOD send_request->set_send_immediately( 'X' ).</P><P></P><UL><LI level="1" type="ul"><P> ---------- send document ---------------------------------------</P></LI></UL><P> CALL METHOD send_request->send(</P><P> EXPORTING</P><P> i_with_error_screen = 'X'</P><P> RECEIVING</P><P> result = sent_to_all ).</P><P> IF sent_to_all = 'X'.</P><P> WRITE text-003.</P><P> ENDIF.</P><P></P><P> COMMIT WORK.</P><P></P><P></P><UL><LI level="1" type="ul"><P>-----------------------------------------------------------</P></LI><LI level="1" type="ul"><P>* exception handling</P></LI><LI level="1" type="ul"><P>-----------------------------------------------------------</P></LI><LI level="1" type="ul"><P>* replace this very rudimentary exception handling</P></LI><LI level="1" type="ul"><P>* with your own one !!!</P></LI><LI level="1" type="ul"><P>-----------------------------------------------------------</P></LI></UL><P> CATCH cx_bcs INTO bcs_exception.</P><P> WRITE: 'Fehler aufgetreten.'(001).</P><P> WRITE: 'Fehlertyp:'(002), bcs_exception->error_type.</P><P> EXIT.</P><P></P><P> ENDTRY.</P><P></P><P>Eery thing is working fine ,but the data in pdf file is not comming .</P><P>i think problem is convertion of tline to solix_tab.</P><P>(</P><P> CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'</P><P> EXPORTING</P><P> src_spoolid = gd_spool_nr</P><P> no_dialog = c_no</P><P> dst_device = c_device</P><P> IMPORTING</P><P> pdf_bytecount = gd_bytecount</P><P> TABLES</P><P> pdf = it_pdf_output</P><P> EXCEPTIONS</P><P> err_no_abap_spooljob = 1</P><P> err_no_spooljob = 2</P><P> err_no_permission = 3</P><P> err_conv_not_possible = 4</P><P> err_bad_destdevice = 5</P><P> user_cancelled = 6</P><P> err_spoolerror = 7</P><P> err_temseerror = 8</P><P> err_btcjob_open_failed = 9</P><P> err_btcjob_submit_failed = 10</P><P> err_btcjob_close_failed = 11</P><P> OTHERS = 12.</P><P><b> it_pdf_output needs to be converted in to gti_contents_hex</b>.</P><P>Help me ,its very urgent</P><P></P><P>Message was edited by: </P><P> sudheer kumar</P></BODY></HTML> Thu, 11 Oct 2007 07:07:12 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898760#M681622 Former Member 2007-10-11T07:07:12Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898761#M681623 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P> </P><P>I am also fetching the same problem.Kindly post the solution.</P><P></P><P>regards,</P><P>padmaja.</P></BODY></HTML> Mon, 19 Oct 2009 10:01:24 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898761#M681623 Former Member 2009-10-19T10:01:24Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898762#M681624 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P> </P><P>I am also fetching the same problem.Kindly post the solution.</P><P></P><P>regards,</P><P>padmaja.</P></BODY></HTML> Mon, 19 Oct 2009 10:01:56 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898762#M681624 Former Member 2009-10-19T10:01:56Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898763#M681625 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P> </P><P>I am also fetching the same problem.Kindly post the solution.</P><P></P><P>regards,</P><P>padmaja.</P></BODY></HTML> Mon, 19 Oct 2009 10:02:15 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898763#M681625 Former Member 2009-10-19T10:02:15Z Re: sending email https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898764#M681626 <HTML><HEAD></HEAD><BODY><P>hi,</P><P>If anybody face the same problem like mail body as attachment then go for the bellow solution.</P><P></P><P>Check your settings in TCODE SCOT</P><P></P><P>Double click on SMTP note . For "Internet" click on set, under "Output format for SAP documents" RAW Text musts be set as "TXT"</P><P></P><P>Regards</P><P></P><P>padmaja.</P></BODY></HTML> Tue, 20 Oct 2009 03:59:35 GMT https://community.sap.com/t5/application-development-and-automation-discussions/sending-email/m-p/2898764#M681626 Former Member 2009-10-20T03:59:35Z