"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并发送至邮箱”

SAP压缩excel并发送mail案例的更多相关文章

  1. 将生成的Excel表发送到邮箱

    本文接上一篇,将得到的Excel表发送到邮箱.. 在上一篇中,本人使用的是直接从数据库中获取数据,然后包装成Excel表.现在将该Excel表发送到目的邮箱,如果需要跟上篇一样,定时每天某时刻发送,就 ...

  2. 使用Excel快速发送大量的电子邮件

    使用Excel快速发送大量的电子邮件.两个步骤: 1. 准备发送数据: a.) 打开Excel,新Book1.xlsx b.) 填写以下内容. 第一列:接受者,第二列:邮件标题,第三列:文,第四列:附 ...

  3. VB SMTP用户验证发送mail

    转自 http://www.jishuzh.com/program/vb-smtp%E7%94%A8%E6%88%B7%E9%AA%8C%E8%AF%81%E5%8F%91%E9%80%81mail. ...

  4. 使用SpringBoot发送mail邮件

    1.前言 发送邮件应该是网站的必备拓展功能之一,注册验证,忘记密码或者是给用户发送营销信息.正常我们会用JavaMail相关api来写发送邮件的相关代码,但现在springboot提供了一套更简易使用 ...

  5. SQL Server数据库邮件发送异常案例

      最近遇到两起关于SQL Server数据库邮件发送异常的案例,这些问题也有点意思,顺便记录一下.方便以后遇到类似问题的人参考,不要被这些问题弄得抓狂! 案例1:我们一台数据库服务器突然发送邮件都不 ...

  6. 下载zip格式文件(压缩Excel文件为zip格式)

    Mongodb配置文件参考这一篇:http://www.cnblogs.com/byteworld/p/5913061.html package util; import java.io.Buffer ...

  7. PLSQL_批量压缩表Table Compress(案例)

    2015-04-01 Created By BaoXinjian

  8. jxl导入/导出excel(网上的案例)

    jxl导入/导出excel 1.jxl导入/导出excel案例,黏贴即可运行 package junit.test; import java.io.File; import java.io.IOExc ...

  9. [PHP] 邮件发送mail()函数失败问题 sendmail命令与postfix

    1. php的mail()函数是可以发送邮件的 , 但是一直就没有测试成功过 , 现在总结一下原因 : php的mail函数 基于sendmail命令来发送 , sendmail命令需要安装postf ...

随机推荐

  1. powerdesign进军(二)--oracle数据源配置

    目录 资源下载(oracle客户端) 配置 查看系统的数据源 powerdesign 连接数据库 title: powerdesign进军(二)--oracle数据源配置 date: 2019-05- ...

  2. Ubuntu 16.04 安装 SVN-Client (RaabitVCS)

    1.添加源 sudo add-apt-repository ppa:rabbitvcs/ppa 2. 更新源 sudo apt-get update 3.安装依赖库 sudo apt-get inst ...

  3. AVL树(查找、插入、删除)——C语言

    AVL树 平衡二叉查找树(Self-balancing binary search tree)又被称为AVL树(AVL树是根据它的发明者G. M. Adelson-Velskii和E. M. Land ...

  4. 最新 Flutter 团队工程师中文演讲 | Flutter 的性能测试和理论

    本视频为 Google Flutter 团队的软件工程师 Xiao Yu 在 2018 谷歌开发者大会做的演讲,演讲题目是<Flutter 的性能测试和理论>. 这个视频里将会通过近半个小 ...

  5. 2019牛客暑期多校训练营(第十场)J - Wood Processing (斜率优化DP)

    >传送门< 题意 $n$个宽度为$w_{i}$,高为$h_{i}$ 的 木块,要求分成$k$组,对于每组内的所有木块,高度都变为组内最低木块的高度,宽度保持不变,求变化的最小面积. 分析 ...

  6. 基于python的mysql复制工具

    一简介 python-mysql-replication 是由python实现的 MySQL复制协议工具,我们可以用它来解析binlog 获取日志的insert,update,delete等事件 ,并 ...

  7. N*N矩阵的旋转 不开辟新空间

    /* N*N矩阵的旋转 不开辟新空间 programmer:qpz time:2014-11-09 */ #include <iostream> using namespace std; ...

  8. IO核心子系统

    IO核心子系统 一.IO层次结构 IO实现普遍采用了层次式的结构.其基本思想与计算机网络中的层次结构相同:将系统IO的功能组织成一系列的层次,每一层完成整个系统功能的一个子集,其实现依赖于下层完成更原 ...

  9. OpenCV学习笔记(一)、VS2015+OpenCV-4.1.1环境配置(Windows10)

    1.登陆OpenCV官网,点击打开Releases,会看到各个版本的OpenCV安装文件,选择自己想要的版本下载即可.下载网址:https://opencv.org/releases/ 2.配置环境变 ...

  10. C#开发BIMFACE系列3 服务端API之获取应用访问凭证AccessToken

    系列目录     [已更新最新开发文章,点击查看详细] BIMFACE 平台为开发者提供了大量的服务器端 API 与 JavaScript API,用于二次开发 BIM 的相关应用. BIMFACE ...