SAP SMTP郵件服務器配置 發送端 QQ郵箱

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            = 1
    no_function_module = 2
    OTHERS             = 3.

IF sy-subrc <> 0.
  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   = 1
    internal_error     = 2
    send_error         = 3
    user_canceled      = 4
    OTHERS             = 5.
IF sy-subrc <> 0.
  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     = 1
    err_format            = 2
    err_conv_not_possible = 3
    err_bad_otf           = 4
    OTHERS                = 5.
IF sy-subrc <> 0.
  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 = 1
    OTHERS          = 2.
IF sy-subrc <> 0.
  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.