Schlagwort: ABAP-Templates

ABAP – Emailversand aus Report

Sie wollen eine Email aus einem Report heraus verschicken? Kein Problem, mit nur ganz wenigen Zeilen Code läßt sich das realisieren. REPORT  zpxxxx_send_html_mail. DATA: gr_send_request TYPE REF TO cl_bcs.DATA: gr_document TYPE REF TO cl_document_bcs.DATA: gr_sender TYPE REF TO cl_sapuser_bcs.DATA: gr_receiver TYPE REF TO if_recipient_bcs.DATA: gt_body TYPE soli_tab.DATA: g_subject TYPE so_obj_des.DATA: l_recipient(241) TYPE c VALUE ‘bittner@hr-manager.de’.DATA: l_line TYPE string. START-OF-SELECTION. * Sendeauftrag anlegen  gr_send_request = cl_bcs=>create_persistent( ).* Betreff  g_subject = ‘Test – Emailversand’.* Text für den Mailbody  l_line = ‘<p><b>This is a test</b></p>’.* Mailbody zeilenweise aufbauen  APPEND l_line TO gt_body.* HTML-Mail anlegen  gr_document = cl_document_bcs=>create_document( i_type = ‘HTM’                                                  i_text = gt_body                                                  i_subject = g_subject ).* Dokument übergeben  gr_send_request->set_document( gr_document ).* Absender  gr_sender = cl_sapuser_bcs=>create( sy–uname ).  gr_send_request->set_sender( gr_sender ).* Empfänger  gr_receiver = cl_cam_address_bcs=>create_internet_address( l_recipient ).  gr_send_request->add_recipient( gr_receiver ).* Sofort senden – nicht in SCOT Queue  gr_send_request->set_send_immediately( abap_true ).* Senden  gr_send_request->send( ).   COMMIT WORK.   WRITE:/ ‘Dokument verschickt’. Das war es dann auch schon. Hier wird der Business Communication Service – Klasse CL_BCS – verwendet. Hinweis: Wenn Sie den zur Verfügung gestellten Code verwenden so geschieht […]