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=>createsyuname ).
  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.

close

Wollen Sie ab sofort per Mail über neue Beiträge informiert werden? Dann tragen Sie sich in unsere Mailingliste ein.

Schreibe einen Kommentar

Ihre E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.