Send email with new class CL_BCS is very simple!

Send email from ABAP with class CL_BCS

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82

*&-------------------------------------------------------------* *& Report  ZTEST_CLASS_SEND_MAIL                                       * *&-------------------------------------------------------------* *& Shimon Ben *&-------------------------------------------------------------*   REPORT  ZTEST_CLASS_SEND_MAIL.   CONSTANTS:     gc_subject  TYPE so_obj_des VALUE 'ABAP Email with CL_BCS',     gc_raw      TYPE char03 VALUE 'RAW'.   DATA:     gv_mlrec         TYPE so_obj_nam,     gv_sent_to_all   TYPE os_boolean,     gv_email         TYPE adr6-smtp_addr,     gv_subject       TYPE so_obj_des,     gv_text          TYPE bcsy_text,     gr_send_request  TYPE REF TO cl_bcs,     gr_bcs_exception TYPE REF TO cx_bcs,     gr_recipient     TYPE REF TO if_recipient_bcs,     gr_sender        TYPE REF TO cl_sapuser_bcs,     gr_document      TYPE REF TO cl_document_bcs.   TRY.       "Create send request       gr_send_request = cl_bcs=>create_persistent( ).       "Email FROM...       gr_sender = cl_sapuser_bcs=>create( sy-uname ).       "Add sender to send request       CALL METHOD gr_send_request->set_sender         EXPORTING           i_sender = gr_sender.       "Email TO...       gv_email = 'frodo.baggins@outlook.com'.       gr_recipient = cl_cam_address_bcs=>create_internet_address( gv_email ).       "Add recipient to send request       CALL METHOD gr_send_request->add_recipient         EXPORTING           i_recipient = gr_recipient           i_express   = 'X'.       "Email BODY       APPEND 'Hello world! My first ABAP email!' TO gv_text.       gr_document = cl_document_bcs=>create_document(                       i_type    = gc_raw                       i_text    = gv_text                       i_length  = '12'                       i_subject = gc_subject ).       "Add document to send request       CALL METHOD gr_send_request->set_document( gr_document ).       "Send email       CALL METHOD gr_send_request->send(         EXPORTING           i_with_error_screen = 'X'         RECEIVING           result              = gv_sent_to_all ).       IF gv_sent_to_all = 'X'.         WRITE 'Email sent!'.       ENDIF.       "Commit to send email       COMMIT WORK.       "Exception handling     CATCH cx_bcs INTO gr_bcs_exception.       WRITE:         'Error!',         'Error type:',         gr_bcs_exception->error_type.   ENDTRY.