* Konfiguration: SBCS_MAIL_CONFIGSMTP (BCS-E-Mail-Konfig)
* Tabelle: BCS_MSG_SMTPCONF (SMTP-Konfiguration)
TRY.
DATA(lv_sender) = CONV cl_bcs_mail_message=>ty_address( 'test1@testcompany.com' ).
DATA(lv_receiver) = CONV cl_bcs_mail_message=>ty_address( 'test2@testcompany.com' ).
DATA(o_mail) = cl_bcs_mail_message=>create_instance( ).
o_mail->set_sender( lv_sender ).
o_mail->add_recipient( iv_address = lv_receiver iv_copy = cl_bcs_mail_message=>to ).
o_mail->set_subject( 'Mailüberschrift' ).
* CL_BCS_MAIL_BODYPART um Texte und Anhänge
* CL_BCS_MAIL_TEXTPART Texte
* CL_BCS_MAIL_BINARYPART Binärformate.
DATA(lv_mailtext) = |<h1>Hello World</h1>| &&
|<p>Test</p>|.
o_mail->set_main( cl_bcs_mail_textpart=>create_text_html( lv_mailtext ) ).
DATA: it_status TYPE cl_bcs_mail_message=>tyt_status.
DATA: lv_mail_status TYPE cl_bcs_mail_message=>ty_status.
o_mail->send( IMPORTING et_status = it_status
ev_mail_status = lv_mail_status ).
* Daten im Inline-Browser im SAP-Fenster anzeigen
cl_abap_browser=>show_html( EXPORTING
title = 'Status'
html_string = cl_demo_output=>new( )->write_data( it_status )->write_data( lv_mail_status )->get( )
container = cl_gui_container=>default_screen ).
WRITE: space.
CATCH cx_root INTO DATA(e_text).
MESSAGE e_text->get_text( ) TYPE 'S' DISPLAY LIKE 'E'.
ENDTRY.
Links