"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'[email protected]'.
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作為附加發送至郵件”