SAP 调用OO类发送邮件测试（可发送表格和附件）

原文链接：https://blog.csdn.net/sapliumeng/article/details/134152739
在SAP实施中，邮件发送功能在很多项目都会用到，而且往往是把内表以Excel或者CSV的格式发送附件，最好是这个表格也可以显示在正文中，这样的话如果数据行数比较少，就不需要打开附件了。

发送的邮件如下图所示：

以往这种需要都是每个程序单独写好长的代码，代码的工作量非常大，本文就是把功能都集成到几个子程序和函数中，大大减少了开发工作量。

程序特点：
1、支持发送到多个外部邮箱
2、支持发送到SAP账号（使用事务码SBWP看邮件）
3、可以选择是否紧急邮件
4、支持多个内表发送，表格和附件分别显示
5、附件压缩为ZIP文件
6、邮件表格界面友好美观
7、如果正文表格未显示所有内表行，则最后一行为省略号

示例代码：

*&---------------------------------------------------------------------*
*& Report ZCYCLE064
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zcycle064.
**** RFC 版发送邮件测试 START ********
*DATA: it_document_data  TYPE sodocchgi1,
*      it_content_text   TYPE STANDARD TABLE OF solisti1 WITH HEADER LINE,
*      it_packing_list   TYPE TABLE OF sopcklsti1 WITH HEADER LINE,
*      it_receivers      TYPE STANDARD TABLE OF somlreci1 WITH HEADER LINE,
*      lc_mail_attach    TYPE string,
*      lt_content_hex    TYPE STANDARD TABLE OF solix WITH HEADER LINE,
*      lt_object_header  TYPE STANDARD TABLE OF solisti1 WITH HEADER LINE,
*      lc_mail_xattach   TYPE xstring,
*      lv_send_all       TYPE c,
*      it_makt           LIKE TABLE OF makt WITH HEADER LINE,
*      fir_date          TYPE sy-datum,
*      mimetype          TYPE char64.
*DATA: it_itab           TYPE TABLE OF itab WITH HEADER LINE,
*      wa_itab           TYPE itab.
*
*CONSTANTS:lc_tab  TYPE c VALUE cl_bcs_convert=>gc_tab,       "excel换格符
*          lc_ctrl TYPE c VALUE cl_bcs_convert=>gc_crlf.      "excel换行符
*
*PARAMETER p_flag  TYPE c AS CHECKBOX.
*
*IF p_flag = 'X'.
*  PERFORM send_email.
*ENDIF.
*
**&---------------------------------------------------------------------*
**&      Form  SEND_EMAIL
**&---------------------------------------------------------------------*
**       text
**----------------------------------------------------------------------*
*FORM send_email.
*  DATA sy_vline TYPE i.
*  DATA:mblnr TYPE string,   "物料凭证
*       matnr TYPE string,   "物料
*       mjahr TYPE string,   "年度
*       maktx TYPE string.   "物料描述
*
*  it_document_data-obj_descr = '邮件主题' .    "内容的简短描述
*  it_document_data-priority = '1'.             "优先次序  1~9  1：最高优先权
*  it_document_data-obj_name = 'OFFER'.
*  it_document_data-obj_langu = sy-langu.
*
**  ****邮件正文信息
*  it_content_text = '各位好：'.
*  APPEND it_content_text.
*  it_content_text = '  此邮件为测试邮件！！！！！！！'.
*  APPEND it_content_text.
*
*  DESCRIBE TABLE it_content_text LINES sy_vline.
*  it_document_data-doc_size = 255 * ( sy_vline - 1 ) + strlen( it_content_text ).  "SAPoffice 文档的大小（用于 API1）
*
*  it_packing_list-transf_bin = space.
*  it_packing_list-head_start = 1.
*  it_packing_list-head_num = 0 .
*  it_packing_list-body_num = sy_vline.
*  it_packing_list-body_start = 1.
*  it_packing_list-doc_type = 'RAW'.
*  APPEND it_packing_list.
*
*
****收件人信息
*  it_receivers-receiver = '1243327997@qq.com'.  "收件人地址
*  it_receivers-rec_type = 'U'.
*  it_receivers-com_type = 'INT'.
*  it_receivers-notif_del =  'X'.
*  it_receivers-notif_ndel = 'X'.
*  APPEND it_receivers.
*
*  CONCATENATE '物料'     lc_tab
*              '物料凭证' lc_tab
*              '物料描述' lc_tab
*              '年度'     lc_ctrl INTO lc_mail_attach.   "lc_ctrl换行符
*
*  CLEAR:mblnr, matnr, mjahr, maktx.
*  mblnr  = '7777777'.
*  matnr  = '7777777'.
*  mjahr  = '7777'.
*  maktx  = 'seven'."物料类型
*
*  CONCATENATE lc_mail_attach
*              matnr  lc_tab
*              mblnr  lc_tab
*              mjahr  lc_tab
*              maktx  lc_ctrl INTO lc_mail_attach.      "lc_ctrl换行符
*
*  CLEAR:mblnr, matnr, mjahr, maktx.
*  mblnr  = '8888888'.
*  matnr  = '8888888'.
*  mjahr  = '8888'.
*  maktx  = 'seven'."物料类型
*
*  CONCATENATE lc_mail_attach
*              matnr  lc_tab
*              mblnr  lc_tab
*              mjahr  lc_tab
*              maktx  lc_ctrl INTO lc_mail_attach.      "lc_ctrl换行符
*
*  mimetype = 'APPLICATION/MSEXCEL;CHARSET=UTF-16LE'.
*  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
*    EXPORTING
*      text       = lc_mail_attach
*      mimetype   = mimetype
**     ENCODING   =
*   IMPORTING
*      buffer     =  lc_mail_xattach
*   EXCEPTIONS
*      failed     = 1
*      others     = 2 .
*
*  IF sy-subrc = 0.
*    CONCATENATE cl_abap_char_utilities=>byte_order_mark_little lc_mail_xattach INTO lc_mail_xattach IN BYTE MODE.
*  ENDIF.
*
*  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
*    EXPORTING
*      buffer          = lc_mail_xattach
**    APPEND_TO_TABLE  = ' '
**  IMPORTING
**    OUTPUT_LENGTH    =
*    TABLES
*      binary_tab      = lt_content_hex.
*
*"不知道干啥用的
*  lt_object_header = 'Seven test'.
*  APPEND lt_object_header.
*
*  DESCRIBE TABLE lt_content_hex LINES sy_vline.
*
*  it_packing_list-transf_bin = 'X'.
*  it_packing_list-head_start = 1 .
*  it_packing_list-head_num =  0 .
*  it_packing_list-body_start = 1.
*  it_packing_list-body_num = sy_vline.
*  it_packing_list-doc_type = 'XLS'.
*  it_packing_list-doc_size = 255 * sy_vline.
*  it_packing_list-obj_name = '附件名'.
*  it_packing_list-obj_descr = it_packing_list-obj_name.
*  APPEND it_packing_list.
*
*
*"方法1  无法指定发送人邮箱
********  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
********    EXPORTING
********      document_data              = it_document_data
********      put_in_outbox              = 'X'
********      commit_work                = 'X'
********    IMPORTING
********      sent_to_all                = lv_send_all
*********       NEW_OBJECT_ID              =
********    TABLES
********      packing_list               = it_packing_list[]
********      object_header              = lt_object_header[]
*********     contents_bin               =
********      contents_txt               = it_content_text[]
********      contents_hex               = lt_content_hex[]
*********     object_para                =
*********     object_parb                =
********      receivers                  = it_receivers[]
********    EXCEPTIONS
********      too_many_receivers         = 1
********      document_not_sent          = 2
********      document_type_not_exist    = 3
********      operation_no_authorization = 4
********      parameter_error            = 5
********      x_error                    = 6
********      enqueue_error              = 7
********      others                     = 8 .
*
*"方法2  可以指定发送人邮箱
*  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
*    EXPORTING
*      document_data                    = it_document_data
*      put_in_outbox                    = 'X'
*      sender_address                   = 'lei.cao@lifotronic.com' "发件人邮箱
*      sender_address_type              = 'INT'
*      commit_work                      = 'X'
**     IP_ENCRYPT                       =
**     IP_SIGN                          =
**     IV_VSI_PROFILE                   =
*    IMPORTING
*      sent_to_all                      = lv_send_all
**     NEW_OBJECT_ID                    =
**     SENDER_ID                        =
*    TABLES
*      packing_list                     = it_packing_list[]
*      object_header                    = lt_object_header[]
**     CONTENTS_BIN                     =
*      contents_txt                     = it_content_text[]
*      contents_hex                     = lt_content_hex[]
**     OBJECT_PARA                      =
**     OBJECT_PARB                      =
*      receivers                        = it_receivers[]
**     ET_VSI_ERROR                     =
*    EXCEPTIONS
*      too_many_receivers               = 1
*      document_not_sent                = 2
*      document_type_not_exist          = 3
*      operation_no_authorization       = 4
*      parameter_error                  = 5
*      x_error                          = 6
*      enqueue_error                    = 7
*      others                           = 8
*            .
*  IF sy-subrc <> 0.
**   Implement suitable error handling here
*  ELSE.
*    SUBMIT RSCONN01 WITH MODE = 'INT'
*                   WITH OUTPUT = 'X'
*                   AND RETURN.
*  ENDIF.
*
*ENDFORM.                    "SEND_EMAIL
**** RFC 版发送邮件测试 END ********

**** OO 版发送邮件测试 START ********************
TABLES adr6.
DATA: BEGIN OF gt_out OCCURS 0,
        bukrs TYPE t001-bukrs,
        butxt TYPE t001-butxt,
        ort01 TYPE t001-ort01,
        land1 TYPE t001-land1,
        waers TYPE t001-waers,
        spras TYPE t001-spras,
      END OF gt_out.


SELECT-OPTIONS s_smtp FOR adr6-smtp_addr NO INTERVALS OBLIGATORY.
PARAMETERS p_subj TYPE so_obj_des DEFAULT '发送邮件测试'.


AT SELECTION-SCREEN OUTPUT.
  %_s_smtp_%_app_%-text = '接收邮箱'.
  %_p_subj_%_app_%-text = '邮件主题'.


START-OF-SELECTION.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_out FROM t001.
  PERFORM sendmail.
  MESSAGE s000(oo) WITH 'Done'.


*&---------------------------------------------------------------------*
*& sendmail
*&---------------------------------------------------------------------*
FORM sendmail.
  DATA lv_string TYPE string.
  DATA lv_csvxstr TYPE xstring.
  DATA lv_binlen  TYPE i.
  DATA lt_html TYPE TABLE OF w3html WITH HEADER LINE.
  DATA lt_smtp TYPE TABLE OF piqapp_email WITH HEADER LINE.
  DATA lt_atta TYPE wlftt_mail_attachment WITH HEADER LINE.


***邮件内容文本
  APPEND 'TEST TEST TEST TEST TEST TEST TEST TEST TEST TEST<br/>' TO lt_html.
  APPEND 'TEST TEST TEST TEST TEST TEST TEST TEST <br/>' TO lt_html.
  APPEND 'TEST TEST TEST TEST <br/><br/>' TO lt_html.


***下面显示表格，如果有多个内表需要发送，重复下面4个步骤即可
  SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_out FROM t001.
***内表转为CSV文件
  PERFORM itab_to_csv
                     TABLES gt_out
                     USING '公司代码,名称,城市,国家,货币,语言' "CSV文件的标题
                     CHANGING lv_string lv_csvxstr.


***压缩CSV文件
  PERFORM xstr2zipxstr
                       USING 'BUKRS.XLS' lv_csvxstr
                       CHANGING lv_csvxstr.


***压缩文件作为附件
  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer        = lv_csvxstr
    IMPORTING
      output_length = lv_binlen
    TABLES
      binary_tab    = lt_atta-binary_content.
  lt_atta-description = 'BUKRS.zip'.
  lt_atta-binary_size = lv_binlen.
  APPEND lt_atta.


***内表的前N条以表格的形式显示在邮件正文中
  PERFORM itab_to_mail_body
                            TABLES gt_out lt_html
                            USING '公司代码列表:' "表格上面文本
                                  '公司代码,名称,城市,国家,货币,语言' "表格标题
                                  'XXXXXX'  "要显示的列，按照顺序，如果显示为X，不显示为空格
                                  '10'.     "显示内表前N行，如果内表大于N行则最后一行显示省略号


***接收邮箱
  LOOP AT s_smtp.
    APPEND s_smtp-low TO lt_smtp.
  ENDLOOP.


***调用发送函数
  CALL FUNCTION 'ZPUB_SEND_MAIL'
    EXPORTING
      subject   = p_subj
      commit    = 'X'
      atta_tab  = lt_atta[]
    TABLES
      mail_body = lt_html
      recv_smtp = lt_smtp.
ENDFORM.

*&---------------------------------------------------------------------*
*& 内表转为CSV文件
*&---------------------------------------------------------------------*
FORM itab_to_csv TABLES t_intab USING pv_header
                 CHANGING cv_str cv_utf8x.
  DATA: lo_csv TYPE REF TO cl_rsda_csv_converter.
  DATA: lv_str TYPE char2048.


  CALL METHOD cl_rsda_csv_converter=>create
    RECEIVING
      r_r_conv = lo_csv.


  IF pv_header IS NOT INITIAL.
    cv_str = pv_header && %_cr_lf.
  ENDIF.


  LOOP AT t_intab.
    CALL METHOD lo_csv->structure_to_csv
      EXPORTING
        i_s_data = t_intab
      IMPORTING
        e_data   = lv_str.
    cv_str = cv_str && lv_str && %_cr_lf.
  ENDLOOP.


  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
    EXPORTING
      text     = cv_str
      mimetype = 'UTF8'
    IMPORTING
      buffer   = cv_utf8x
    EXCEPTIONS
      failed   = 1
      OTHERS   = 2.
  IF sy-subrc = 0.
    cv_utf8x = cl_abap_char_utilities=>byte_order_mark_utf8 && cv_utf8x.
  ENDIF.
ENDFORM.


*&---------------------------------------------------------------------*
*& XSTRING压缩为ZIP文件XSTRING
*&---------------------------------------------------------------------*
FORM xstr2zipxstr USING pv_filename pv_xstr CHANGING cv_zipxstr.
  DATA: lo_zip TYPE REF TO cl_abap_zip.
  DATA: lv_str TYPE string.


  lv_str = pv_filename.
  CREATE OBJECT lo_zip.
  CALL METHOD lo_zip->add
    EXPORTING
      name    = lv_str
      content = pv_xstr.
  CALL METHOD lo_zip->save
    RECEIVING
      zip = cv_zipxstr.
ENDFORM.


*&---------------------------------------------------------------------*
*& 内表写到邮件表格
*&---------------------------------------------------------------------*
FORM itab_to_mail_body TABLES t_intab t_contents STRUCTURE solisti1
                       USING pv_text pv_coldesc pv_mask pv_toline.
  DATA: lt_conts TYPE TABLE OF solisti1 WITH HEADER LINE,
        lt_title TYPE TABLE OF char40 WITH HEADER LINE.
  DATA: subrc   TYPE sy-subrc,
        index   TYPE sy-index,
        charc   TYPE char2048,
        charstr TYPE string,
        lmask   TYPE char200,
        omitnum TYPE i,
        ftype .
  FIELD-SYMBOLS <fs_fld> .


  CHECK t_intab[] IS NOT INITIAL.


  SPLIT pv_coldesc AT ',' INTO TABLE lt_title.
  lmask = pv_mask.


  APPEND pv_text TO lt_conts.
  APPEND:
    `<style type="text/css">.solid{BORDER-TOP: 1px solid;` TO lt_conts,
    `BORDER-RIGHT:1px solid;BORDER-BOTTOM: 1px solid;    ` TO lt_conts,
    `BORDER-LEFT: 1px solid}</style><table border=1      ` TO lt_conts,
    `cellpadding=2 style='border-collapse:collapse;font-`  TO lt_conts,
    `size:10.5pt'><tbody><tr style="background:#DDD9C4;">` TO lt_conts.


  LOOP AT lt_title.
    APPEND |<td class="solid">{ lt_title }</td>| TO lt_conts.
  ENDLOOP.
  APPEND `</tr>` TO lt_conts.


  LOOP AT t_intab FROM 0 TO pv_toline.
    APPEND '' TO lt_conts.
    CLEAR omitnum.
    DO.
      index = sy-index - 1.
      ASSIGN COMPONENT sy-index OF STRUCTURE t_intab TO <fs_fld>.
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.


      CHECK lmask+index(1) = 'X' OR lmask = ''.
      omitnum = omitnum + 1.


      DESCRIBE FIELD <fs_fld> TYPE ftype.
      CASE ftype.
        WHEN 'I' OR 'P' OR 'F' OR 'a' OR 'e' OR 'b' OR 's'.
          charc = abs( <fs_fld> ).
          CONDENSE charc NO-GAPS.
          IF <fs_fld> < 0.
            CONCATENATE '-' charc INTO charc.
          ENDIF.
          charstr = charc.
        WHEN 'D' OR 'T'.
          IF <fs_fld> IS INITIAL OR <fs_fld> = ''.
            charc = ''.
          ELSE.
            WRITE <fs_fld> TO charc .
          ENDIF.
          charstr = charc.
        WHEN 'X' OR 'y' OR 'g'.
          charstr = <fs_fld> .
        WHEN OTHERS.
          WRITE <fs_fld> TO charc .
          charstr = charc.
      ENDCASE.
      APPEND |<td class="solid">{ charstr }</td>| TO lt_conts.
    ENDDO.
    APPEND `</tr>` TO lt_conts.
  ENDLOOP.
  IF lines( t_intab ) > pv_toline.
    APPEND '' TO lt_conts.
    DO omitnum TIMES.
      APPEND |<td class="solid">...</td>| TO lt_conts.
    ENDDO.
    APPEND '' TO lt_conts.
  ENDIF.
  APPEND '</tbody></table> <br/> ' TO lt_conts.


  APPEND LINES OF lt_conts TO t_contents.
ENDFORM.
**** OO 版发送邮件测试 END ********************

发送函数 ZPUB_SEND_MAIL：



源代码：

FUNCTION zpub_send_mail.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(SUBJECT) TYPE  SO_OBJ_DES
*"     REFERENCE(SENDER) TYPE  AD_SMTPADR OPTIONAL
*"     REFERENCE(EXPRESS) TYPE  OS_BOOLEAN OPTIONAL
*"     REFERENCE(COMMIT) TYPE  CHAR1 OPTIONAL
*"     REFERENCE(ATTA_TAB) TYPE  WLFTT_MAIL_ATTACHMENT OPTIONAL
*"  EXPORTING
*"     REFERENCE(RTYPE) TYPE  BAPI_MTYPE
*"     REFERENCE(RTMSG) TYPE  BAPI_MSG
*"  TABLES
*"      MAIL_BODY STRUCTURE  SOLISTI1 OPTIONAL
*"      RECV_USER STRUCTURE  SSCRUSER OPTIONAL
*"      RECV_SMTP STRUCTURE  PIQAPP_EMAIL OPTIONAL
*"----------------------------------------------------------------------
  DATA lr_email  TYPE REF TO cl_bcs.
  DATA lr_body   TYPE REF TO cl_document_bcs.
  DATA lr_sender TYPE REF TO if_sender_bcs.
  DATA lr_recver TYPE REF TO if_recipient_bcs.
  DATA lr_cxbcs  TYPE REF TO cx_bcs.
  DATA ls_atta   TYPE wlfs_mail_attachment.
  DATA lv_result TYPE os_boolean.


  TRY.
      lr_email = cl_bcs=>create_persistent( ).
      lr_body = cl_document_bcs=>create_document( i_type = 'HTM'
                                                  i_text = mail_body[]
                                                  i_subject = subject ).
      LOOP AT atta_tab INTO ls_atta.
        CALL METHOD lr_body->add_attachment
          EXPORTING
            i_attachment_type    = ls_atta-type
            i_attachment_subject = ls_atta-description
            i_attachment_size    = ls_atta-binary_size
            i_att_content_hex    = ls_atta-binary_content.
      ENDLOOP.
      lr_email->set_document( lr_body ).


      IF sender IS INITIAL.
        lr_sender = cl_sapuser_bcs=>create( sy-uname ).
      ELSE.
        CALL METHOD cl_cam_address_bcs=>create_internet_address
          EXPORTING
            i_address_string = sender
            i_address_name   = 'Sender'
          RECEIVING
            result           = lr_sender.
      ENDIF.
      lr_email->set_sender( lr_sender ).


      LOOP AT recv_user.
        lr_recver = cl_sapuser_bcs=>create( recv_user-uname ).
        lr_email->add_recipient( i_recipient = lr_recver i_express = express ).
      ENDLOOP.


      LOOP AT recv_smtp.
        lr_recver = cl_cam_address_bcs=>create_internet_address( recv_smtp-e_mail ).
        lr_email->add_recipient( i_recipient = lr_recver i_express = express ).
      ENDLOOP.


      lr_email->set_send_immediately( 'X' ).
      lv_result = lr_email->send( i_with_error_screen = '' ).
      IF lv_result = 'X'.
        IF commit IS NOT INITIAL.
          COMMIT WORK. "在Update进程或者增强里面，禁止提交
        ENDIF.
      ENDIF.
    CATCH cx_bcs INTO lr_cxbcs. " cx_root INTO lr_cxroot.
      rtype = 'E'.
      rtmsg = lr_cxbcs->get_text( ).
  ENDTRY.





ENDFUNCTION.