本文共 2123 字，大约阅读时间需要 7 分钟。

REPORT  ZBO.DATA: lv_title          TYPE so_obj_des,      send_request   TYPE REF TO CL_BCS,      document         TYPE REF TO CL_DOCUMENT_BCS,      conlengths        TYPE so_obj_len,      html                  TYPE STANDARD TABLE OF w3html,      wa_html           TYPE w3html,      sender_id         TYPE REF TO IF_SENDER_BCS,      recipient           TYPE REF TO IF_RECIPIENT_BCS,      sent_to_all       TYPE os_boolean,      bcs_exception  TYPE REF TO cx_bcs,      bcs_message   TYPE string.lv_title = 'This is the title'.wa_html-line = ''.APPEND wa_html TO html....wa_html-line = ''.APPEND wa_html TO html.TRY.    CLEAR send_request.    send_request = cl_bcs=>create_persistent( ).    CLEAR document .    document =  cl_document_bcs=>create_document(                    i_type =    'HTM'                    i_text =     html                    i_length =  conlengths                    i_subject = lv_title ).*   Add document to send request    CALL METHOD send_request->set_document( document ).*   Construct sender and receiver    CLEAR: sender_id , recipient .    sender_id = cl_cam_address_bcs=>create_internet_address( 'abc@zh.cn' ).    recipient = cl_cam_address_bcs=>create_internet_address( 'jerry.wang@sap.com' ).*   Set sender    CALL METHOD send_request->set_sender      EXPORTING        i_sender = sender_id.*   Add recipient with its respective attributes to send request    CALL METHOD send_request->add_recipient      EXPORTING        i_recipient = recipient        i_express   = 'X'.*   Set E-mail sending options    CALL METHOD send_request->set_status_attributes      EXPORTING        i_requested_status = 'E'        i_status_mail      = 'E'.    CALL METHOD send_request->set_send_immediately( 'X' ).*   Send document    CALL METHOD send_request->send(     EXPORTING       i_with_error_screen = 'X'     RECEIVING       result = sent_to_all ).    IF sent_to_all = 'X'.      MESSAGE 'Mail sent successfully ' TYPE 'S'.    ENDIF.    COMMIT WORK.  CATCH cx_bcs INTO bcs_exception.    bcs_message = bcs_exception->get_text( ).    MESSAGE bcs_exception TYPE 'E'.    EXIT.ENDTRY.

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

转载地址：https://jerry.blog.csdn.net/article/details/104033707 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！