REPORT ztest_jxzhu_mail.

 */.. Internal Table Declaration

 DATA: li_otf         TYPE TABLE OF itcoo,

       li_pdf_tab     TYPE TABLE OF tline,

       li_content_txt TYPE soli_tab,

       li_content_hex TYPE solix_tab,

       li_objhead     TYPE soli_tab,

       gi_main_text   TYPE bcsy_text.

 */.. Work Area Declarations

 DATA: lw_control_parameters TYPE ssfctrlop,

       lw_output_options     TYPE ssfcompop,

       lw_ssfcrescl          TYPE ssfcrescl,

       lw_content            TYPE soli,

       lw_otf                TYPE itcoo.

 */..Variables Decalrations

 DATA: gv_fname        TYPE rs38l_fnam,       "fucntion MODULE

       gv_subject      TYPE so_obj_des,

       gv_title        TYPE so_obj_des,

       lv_bin_filesize TYPE i,

       lv_transfer_bin TYPE sx_boolean,

       lv_len          TYPE so_obj_len,

       lv_email        TYPE ad_smtpadr,

       lv_sent_to_all  TYPE os_boolean.

 */.. Class Declarations

 DATA: go_send_request  TYPE REF TO  cl_bcs,

       go_document      TYPE REF TO  cl_document_bcs,

       lo_recipient     TYPE REF TO  if_recipient_bcs,

       lo_bcs_exception TYPE REF TO  cx_bcs.

 CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

   EXPORTING

     formname           = 'ZF2_TEST'

   IMPORTING

     fm_name            = gv_fname

   EXCEPTIONS

     no_form            =

     no_function_module =

     OTHERS             = .

 IF sy-subrc <> .

   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

 ENDIF.

 */.. Get OTF data

 lw_control_parameters-getotf        = 'X'.

 */.. To supress preview

 lw_control_parameters-no_dialog  = 'X'.

 lw_control_parameters-langu        = sy-langu.

 lw_output_options-tdnoprev          = 'X'.

 */.. To add multiple attachments write below code till Add attachment method in LOOP and ENDLOOP.

 */.. Call Smart Form FM

 CALL FUNCTION gv_fname

   EXPORTING

     control_parameters = lw_control_parameters

     output_options     = lw_output_options

     user_settings      = 'X'

   IMPORTING

     job_output_info    = lw_ssfcrescl

   EXCEPTIONS

     formatting_error   =

     internal_error     =

     send_error         =

     user_canceled      =

     OTHERS             = .

 IF sy-subrc <> .

   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

 ENDIF.

 */.. Get OTF data to convert to PDF

 REFRESH li_otf[].

 li_otf[] = lw_ssfcrescl-otfdata[].

 CLEAR : lv_bin_filesize.

 */.. Convert OTF data to binary

 CALL FUNCTION 'CONVERT_OTF'

   EXPORTING

     format                = 'PDF'

   IMPORTING

     bin_filesize          = lv_bin_filesize

   TABLES

     otf                   = li_otf

     lines                 = li_pdf_tab

   EXCEPTIONS

     err_max_linewidth     =

     err_format            =

     err_conv_not_possible =

     err_bad_otf           =

     OTHERS                = .

 IF sy-subrc <> .

   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

 ENDIF.

 REFRESH li_content_txt.

 LOOP AT li_otf  INTO  lw_otf.

   CLEAR lw_content.

   CONCATENATE lw_otf-tdprintcom lw_otf-tdprintpar

          INTO lw_content.

   APPEND lw_content TO li_content_txt.

 ENDLOOP.

 REFRESH : li_content_hex,

              li_objhead.

 CLEAR : lv_transfer_bin,

           lv_len.

 */.. FM to convert OTF to PDF

 CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF'

   EXPORTING

     format_src      = 'OTF'

     format_dst      = 'PDF'

   CHANGING

     transfer_bin    = lv_transfer_bin

     content_txt     = li_content_txt

     content_bin     = li_content_hex

     objhead         = li_objhead

     len             = lv_len

   EXCEPTIONS

     err_conv_failed =

     OTHERS          = .

 IF sy-subrc <> .

   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

 ENDIF.

 TRY.

 */.. Create persistent send request

     go_send_request = cl_bcs=>create_persistent( ).

     go_document = cl_document_bcs=>create_document(

           i_type    = 'RAW'

           i_text    = gi_main_text

           i_subject = gv_subject ).

     IF NOT li_content_hex IS INITIAL.

       go_document->add_attachment(

         i_attachment_type      =  'PDF'

         i_attachment_subject  =  gv_title

         i_attachment_size      =   lv_len

         i_att_content_hex       =   li_content_hex ).

     ENDIF.

 */.. Add document object to send request

     go_send_request->set_document( go_document ).

     lv_email = '123456789@qq.com'.

 */.. Add recipient (e-mail address)

 */.. create recipient object

     lo_recipient = cl_cam_address_bcs=>create_internet_address(

     lv_email ).

 */.. Add recipient object to send request

     go_send_request->add_recipient( lo_recipient ).

 */.. Send document

     lv_sent_to_all = go_send_request->send( i_with_error_screen =

     abap_true ).

     COMMIT WORK.

     SUBMIT rsconn01 WITH mode = 'INT'

                   WITH output = ''

                   AND RETURN.

     IF lv_sent_to_all IS INITIAL.

       "error message

     ELSE.

       "success message

     ENDIF.

 */.. Exception handling

   CATCH cx_bcs INTO lo_bcs_exception.

     "exception handling

 ENDTRY.