SAP压缩excel并发送mail案例

"SAP压缩附件

REPORT ZMMR0033_DEL7 .

TYPES: BEGIN OF bin_file,
           name TYPE string,
          size TYPE i,
          data TYPE solix_tab,
     END OF bin_file.

DATA: lv_filename TYPE string,
          wa_bindata TYPE bin_file,
          it_bindata TYPE standard TABLE OF bin_file,
          oref_zip TYPE REF TO cl_abap_zip,
          lv_zip_xstring TYPE xstring,
          lv_xstring TYPE xstring,
          lv_xstring2 TYPE xstring,
          lv_path TYPE string,
          it_filetab TYPE filetable,
          ret_code TYPE i,
          v_usr TYPE i,
          v_zip_size TYPE i,
          it_zip_bin_data TYPE STANDARD TABLE OF raw255,
          v_dest_filepath TYPE string.

DATA: BEGIN OF it_t001 OCCURS 0,
        bukrs     TYPE t001-bukrs,
        butxt     TYPE t001-butxt,
        land1 TYPE t001-LAND1,
        waers TYPE t001-waers,
  END OF it_t001.

DATA main_text      TYPE bcsy_text.
  DATA: l_c_detal_1  TYPE solix_tab,
        l_detal_1     TYPE so_obj_len,
        l_filename_detal_1 TYPE sood-objdes.

DATA: g_datel_1     TYPE string.
CONSTANTS: gc_tab  TYPE c VALUE cl_bcs_convert=>gc_tab,
                    gc_crlf TYPE c VALUE cl_bcs_convert=>gc_crlf.

DATA: lv_filesize TYPE i.
DATA: wa_filetab LIKE LINE OF it_filetab.
DATA:  g_mail_address TYPE ad_smtpadr.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE TEXT-b03.
        SELECT-OPTIONS: s_addr FOR g_mail_address NO INTERVALS DEFAULT'1164684178@qq.com'.
SELECTION-SCREEN END OF BLOCK b3.

START-OF-SELECTION.
      PERFORM get_data.
      PERFORM DETAIL_DATA_1.
      PERFORM text.
*      PERFORM send_mail2 .
END-OF-SELECTION.

FORM get_data .

SELECT * FROM t001
    INTO CORRESPONDING FIELDS OF TABLE it_t001 ."UP TO 10 ROWS.

ENDFORM. " get_data

FORM DETAIL_DATA_1 .
  CLEAR: g_datel_1.
 DATA: l_line TYPE string.
 DATA:lv_text1(50),
          lv_text2(50),
          lv_text3(50),
          lv_text4(50),
          lv_text5(50).
*--> column header
  CONCATENATE '存储地点' '工厂' '物料类型'
              INTO l_line SEPARATED BY gc_tab.
*--> 斷行
      CONCATENATE g_datel_1 l_line gc_crlf INTO g_datel_1.
    LOOP AT it_t001.

lv_text1 = it_t001-bukrs .
        lv_text2 = it_t001-butxt .
        lv_text3 = it_t001-land1 .
        lv_text4 = it_t001-waers .
        lv_text5 = it_t001-bukrs .

CONCATENATE lv_text1 lv_text2 lv_text3 lv_text4 lv_text5
                          INTO l_line SEPARATED BY gc_tab.
*--> 斷行
          CONCATENATE g_datel_1 l_line gc_crlf INTO g_datel_1.
  ENDLOOP.

TRY.
      cl_bcs_convert=>string_to_solix(
        EXPORTING
          iv_string   = g_datel_1
          iv_codepage = '4103'  "suitable for MS Excel, leave empty
          iv_add_bom  = 'X'     "for other doc types
        IMPORTING
          et_solix  = l_c_detal_1
          ev_size   = l_detal_1 ).
    CATCH cx_bcs.
      MESSAGE e445(so).
  ENDTRY.

ENDFORM.

FORM text. " 压缩文件

DATA: l_send_request  TYPE REF TO cl_bcs,
        l_zip           TYPE REF TO cl_abap_zip,
        l_sender        TYPE REF TO cl_sapuser_bcs,
        l_recipient     TYPE REF TO cl_cam_address_bcs,
        l_body_text     TYPE bcsy_text,
        l_obj_len       TYPE so_obj_len,
        l_subject       TYPE so_obj_des,
        l_exception     TYPE REF TO cx_bcs,
        l_message       TYPE string,
        l_content       TYPE solix_tab,
        l_html_xstr     TYPE xstring,
        l_zip_xstr      TYPE xstring,
        l_len           TYPE i,
        l_document      TYPE REF TO cl_document_bcs.

DATA: lv_codepage(4) TYPE n,
           l_encoding(20),
           xstr TYPE xstring.
*           get_buffer TYPE buffer.

" create object
  CREATE OBJECT oref_zip.

DO 1 TIMES.  " 产生本地 zip 附件 及zip mail转换用
   wa_bindata-data = l_c_detal_1.
   wa_bindata-size = l_detal_1.
   wa_bindata-name = 'aa.xls'.
      APPEND wa_bindata TO it_bindata.
ENDDO.

"将文件换换为xstring 
     CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      input_length = wa_bindata-size
     IMPORTING
       buffer = lv_xstring
       TABLES
       binary_tab = wa_bindata-data. 
      
      
     CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      input_length = wa_bindata-size
     IMPORTING
       buffer = lv_xstring2
       TABLES
       binary_tab = wa_bindata-data. " 可替换为其他不同data
     
    "1. 产生本端zip   
    "2.zip mail 可省略以下代码 
    oref_zip->add( name = wa_bindata-name
            content = lv_xstring ).

*****************************本端 zip ************************************
*-----> 保存附件到压缩文件夹
  lv_zip_xstring = oref_zip->save( ).
  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
  EXPORTING
    buffer = lv_zip_xstring
  IMPORTING
      output_length = v_zip_size
   TABLES
     binary_tab = it_zip_bin_data.

*****************************************************
* 选择路径保存文件
  cl_gui_frontend_services=>file_save_dialog(
  EXPORTING
    window_title = 'SELECT THE LOCATING TO SAVE THE FILE'
    file_filter = '(*.zip)|*.ZIP|'
    CHANGING
      filename = lv_filename
      path = lv_path
      fullpath = v_dest_filepath ).
**
** 试图替换文件
    cl_gui_frontend_services=>gui_download(
    EXPORTING
      bin_filesize = v_zip_size
      filename = v_dest_filepath
      filetype = 'BIN'
      IMPORTING
        filelength =  lv_filesize
        CHANGING
          data_tab  = it_zip_bin_data ).
**************************************end 本端 zip *********************

TRY.

l_send_request = cl_bcs=>create_persistent( ).
      l_subject = '压缩文件名称'.
      APPEND:  '<HTML><BODY>'                                              TO l_body_text,
                 'Hi,'                                                     TO l_body_text,
                 '<p>Pls refer to the attached. Thanks.'                   TO l_body_text,
               '</BODY><HTML>'                                             TO l_body_text.
      l_document = cl_document_bcs=>create_document(
                            i_type        = 'HTM'
                            i_text        = l_body_text
                            i_subject     = l_subject
                    ).

*" 设置编码格式
* CALL FUNCTION 'SCP_CODEPAGE_BY_EXTERNAL_NAME'
*  EXPORTING
*    external_name = 'UTF-8'
*  IMPORTING
*    sap_codepage  = lv_codepage.
*
*   l_encoding = lv_codepage.
*
*   DATA: convout TYPE REF TO cl_abap_conv_out_ce.
*      " 创建编码对象
*   convout = cl_abap_conv_out_ce=>create( encoding = l_encoding ).
**   convout->write( data = g_datel_1 )."编码
*   convout->write( data = g_datel_1 )."编码
*   xstr = convout->get_buffer( )." 获取流码
*
*   DATA: convin TYPE REF TO cl_abap_conv_in_ce.
*   convin = cl_abap_conv_in_ce=>create( encoding = l_encoding input = xstr ).
*   DATA: str TYPE string.
*   CALL METHOD convin->read
*      importing data = str.
*
*      call function 'SCMS_STRING_TO_XSTRING'
*      exporting
*      text = str "g_datel_1
**       MIMETYPE = ' '
*      importing
*      buffer = l_html_xstr
*      exceptions

*      failed = 1

*      others = 2.

CREATE OBJECT l_zip.
      
CALL METHOD l_zip->add
        
EXPORTING
          name    
= '1111.xls'" 压缩附件名称  在这里不要用中文命名,会乱码
          content 
= lv_xstring."l_html_xstr.

CALL METHOD l_zip->add
        
EXPORTING
          name    
= '2222.xls'" 压缩附件名称  在这里不要用中文命名,会乱码
          content 
= lv_xstring2.

CALL METHOD l_zip->save
        RECEIVING
          zip

= l_zip_xstr.

CALL METHOD cl_bcs_convert=>xstring_to_solix
        
EXPORTING
          iv_xstring 
=  l_zip_xstr "lv_xstring
        RECEIVING
          et_solix

= l_content.

l_obj_len

= XSTRLEN( l_zip_xstr ) ."lv_xstring ).

CALL METHOD l_document->add_attachment
        
EXPORTING
          i_attachment_size    
= l_obj_len
          i_attachment_type    
= 'ZIP'
          i_attachment_subject 
= l_subject
          i_att_content_hex    
= l_content.
      l_send_request
->set_document( l_document ).
      l_sender 
= cl_sapuser_bcs=>create( sy-uname ).
      
LOOP AT s_addr.
        l_recipient 
= cl_cam_address_bcs=>create_internet_address( s_addr-low ).
        
CALL METHOD l_send_request->add_recipient
          
EXPORTING
            i_recipient 
= l_recipient.
      
ENDLOOP.
      
CALL METHOD l_send_request->set_send_immediately( 'X' ).
      
CALL METHOD l_send_request->send(
      
EXPORTING
        i_with_error_screen  
= 'X'
        
).
      
COMMIT WORK.
    
CATCH cx_bcs INTO l_exception.
      l_message 
= l_exception->get_text( ).
      
MESSAGE l_message TYPE 'E'.
  
ENDTRY.

ENDFORM

以上excel是以上案例是以下博友合并后原创.如有更好的方法及bug问题请联系作者，谢谢

https://www.cnblogs.com/StephenAmell/p/10278351.html “excel作为附加发送至邮件”

https://blog.csdn.net/zhongguomao/article/details/70224483 “压缩txt保存至本端”

https://wiki.scn.sap.com/wiki/display/ABAP/CL_ABAP_ZIP+usage+-+Zipping+ABAP+report+output “压缩pdf并发送至邮箱”