Mittwoch, 18. Oktober 2017

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.

DATAgr_send_request TYPE REF TO cl_bcs.
DATAgr_document TYPE REF TO cl_document_bcs.
DATAgr_sender TYPE REF TO cl_sapuser_bcs.
DATAgr_receiver TYPE REF TO if_recipient_bcs.
DATAgt_body TYPE soli_tab.
DATAg_subject TYPE so_obj_des.
DATAl_recipient(241TYPE VALUE 'bittner@hr-manager.de'.
DATAl_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_documenti_type 'HTM'
                                                  i_text gt_body
                                                  i_subject g_subject ).
* Dokument übergeben
  gr_send_request->set_documentgr_document ).
* Absender
  gr_sender cl_sapuser_bcs=>createsy-uname ).
  gr_send_request->set_sendergr_sender ).
* Empfänger
  gr_receiver cl_cam_address_bcs=>create_internet_addressl_recipient ).
  gr_send_request->add_recipientgr_receiver ).
* Sofort senden - nicht in SCOT Queue
  gr_send_request->set_send_immediatelyabap_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 das auf eigene Gefahr.

Keine Kommentare:

Kommentar veröffentlichen