SEND EMAIL SO_DOCUMENT_SEND

FUNCTION zcrm_send_email_and_attach .

*"----------------------------------------------------------------------

*"*"Local Interface:

*"  IMPORTING

*"     VALUE(IV_TITLE) TYPE  STRING OPTIONAL

*"     VALUE(IV_HEADER) TYPE  STRING OPTIONAL

*"     VALUE(IV_BODY) TYPE  STRING OPTIONAL

*"     VALUE(IT_TABLE) TYPE  ANY TABLE OPTIONAL

*"  EXPORTING

*"     VALUE(ES_ZCRMS_MESSAGE) TYPE  ZCRMS_MESSAGE

*"  TABLES

*"      IT_RECLIST STRUCTURE  SOMLRECI1 OPTIONAL

*"----------------------------------------------------------------------

***数据定义

  FIELD-SYMBOLS:

    <fs_comp>  TYPE abap_compdescr,

    <fs_value> TYPE any,

    <fs_line>  TYPE any,

    <fs_col>   TYPE any.

***fill_text

  CLEAR:gs_solisti1.

  REFRESH:gt_solisti1.

  gs_solisti1 = '<head>'.

  APPEND gs_solisti1 TO gt_solisti1.

  gs_solisti1 = '</head>'.

  APPEND gs_solisti1 TO gt_solisti1.

  gs_solisti1 = '<body>'.

  APPEND gs_solisti1 TO gt_solisti1.

  IF iv_header IS NOT INITIAL.

    CONCATENATE '<h3>' iv_header '</h3>' INTO gs_solisti1.

    APPEND gs_solisti1 TO gt_solisti1.

  ENDIF.

  gs_solisti1 = '<table border="0">'.

  APPEND gs_solisti1 TO gt_solisti1.

  IF iv_body IS NOT INITIAL.

    gs_solisti1 = '<tr>'.

    APPEND gs_solisti1 TO gt_solisti1.

    gs_solisti1 = iv_body.

    APPEND gs_solisti1 TO gt_solisti1.

    gs_solisti1 = '</tr>'.

    APPEND gs_solisti1 TO gt_solisti1.

  ENDIF.

  gs_solisti1 = '<table border="1">'.

  APPEND gs_solisti1 TO gt_solisti1.

  gs_solisti1 = '<tr>'.

  APPEND gs_solisti1 TO gt_solisti1.

  REFRESH:gt_dd03t,gt_ddfields.

  CLEAR:gv_tablesize,gv_check.

  IF it_table IS NOT INITIAL.

    LOOP AT it_table ASSIGNING <gs_line>.

      gr_cl_abap_structdescr ?= cl_abap_typedescr=>describe_by_data( <gs_line> ).

*表头

      IF gt_ddfields[] IS INITIAL.

        CALL METHOD gr_cl_abap_structdescr->get_ddic_field_list

          EXPORTING

            p_langu      = sy-langu

          RECEIVING

            p_field_list = gt_ddfields

          EXCEPTIONS

            not_found    =

            no_ddic_type =

            OTHERS       = .

        IF sy-subrc <> .

*       Implement suitable error handling here

        ENDIF.

      ENDIF.

      IF gv_check = abap_false.

        CLEAR:gs_solisti1.

        LOOP AT gt_ddfields INTO gs_ddfields.

          IF gs_solisti1 IS INITIAL.

            CONCATENATE '<td>' gs_ddfields-fieldtext '</td>' INTO gs_solisti1.

          ELSE.

            CONCATENATE gs_solisti1 '<td>' gs_ddfields-fieldtext '</td>' INTO gs_solisti1.

          ENDIF.

          gv_check = abap_true.

          gv_tablesize = gv_tablesize + gs_ddfields-leng.

        ENDLOOP.

        APPEND gs_solisti1 TO gt_solisti1.

      ENDIF.

*表内容

      gs_solisti1 = '<tr>'.

      LOOP AT gr_cl_abap_structdescr->components ASSIGNING <fs_comp>.

        ASSIGN <fs_comp>-name TO <fs_col>.

        ASSIGN COMPONENT <fs_col> OF STRUCTURE <gs_line> TO <gs_field>.

        WRITE <gs_field> TO gv_field.

        CONCATENATE gs_solisti1 '<td >' gv_field '</td> ' INTO gs_solisti1.

      ENDLOOP.

      APPEND gs_solisti1 TO gt_solisti1.

      gs_solisti1 = '</tr>'.

      APPEND gs_solisti1 TO gt_solisti1.

    ENDLOOP.

  ENDIF.

  gs_solisti1 = '</table>'.

  APPEND gs_solisti1 TO gt_solisti1.

  gs_solisti1 = '</table>'.

  APPEND gs_solisti1 TO gt_solisti1.

***fill_object_details

  CLEAR:gv_strlen.

  DESCRIBE TABLE gt_solisti1 LINES gv_strlen.

  READ TABLE gt_solisti1 INTO gs_solisti1 INDEX gv_strlen.

  CLEAR:gs_sodocchgi1.

  REFRESH:gt_sopcklsti1.

  gs_sodocchgi1-obj_name = 'SAPCRM'.

  gs_sodocchgi1-obj_descr = iv_title.

  gs_sodocchgi1-sensitivty = 'F'.

  gs_sodocchgi1-obj_langu = sy-langu.

  gs_sodocchgi1-doc_size = ( gv_strlen -  ) *  + strlen( gs_solisti1 ).

  CLEAR gs_sopcklsti1-transf_bin.

  gs_sopcklsti1-head_start = .

  gs_sopcklsti1-head_num = .

  gs_sopcklsti1-body_start = .

  gs_sopcklsti1-body_num = gv_strlen.

  gs_sopcklsti1-doc_type = 'HTM'.

  APPEND gs_sopcklsti1 TO gt_sopcklsti1.

****Define Attachment

****EXCEL附加抬头

  CLEAR:gv_string,gv_lines,gv_number.

  DESCRIBE TABLE gt_ddfields LINES gv_lines.

  LOOP AT gt_ddfields INTO gs_ddfields.

    gv_number = gv_number + .

    IF gv_lines = gv_number.

      CONCATENATE gv_string  gs_ddfields-fieldtext gc_crlf INTO gv_string.

    ELSE.

      IF gv_string IS INITIAL.

        CONCATENATE gs_ddfields-fieldtext gc_tab INTO gv_string.

      ELSE.

        CONCATENATE gv_string  gs_ddfields-fieldtext gc_tab INTO gv_string.

      ENDIF.

    ENDIF.

  ENDLOOP.

****EXCEL附加内容

  LOOP AT it_table ASSIGNING <gs_line>.

    gr_cl_abap_structdescr ?= cl_abap_typedescr=>describe_by_data( <gs_line> ).

    CLEAR:gv_number.

    LOOP AT gr_cl_abap_structdescr->components ASSIGNING <fs_comp>.

      gv_number = gv_number + .

      ASSIGN <fs_comp>-name TO <fs_col>.

      ASSIGN COMPONENT <fs_col> OF STRUCTURE <gs_line> TO <gs_field>.

      WRITE <gs_field> TO gv_field.

      IF gv_lines = gv_number.

        CONCATENATE gv_string gv_field gc_crlf INTO gv_string.

      ELSE.

        CONCATENATE gv_string gv_field gc_tab INTO gv_string.

      ENDIF.

    ENDLOOP.

  ENDLOOP.

* Convert string to xstring type

* 'APPLICATION/MSEXCEL;charset=utf-16le'

  CLEAR:gv_xstring.

  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'

    EXPORTING

      text     = gv_string

      mimetype = gc_mimetype

    IMPORTING

      buffer   = gv_xstring

    EXCEPTIONS

      failed   =

      OTHERS   = .

* Add the file header for utf-16le. .

  IF sy-subrc = .

    CONCATENATE cl_abap_char_utilities=>byte_order_mark_little

    gv_xstring INTO gv_xstring IN BYTE MODE.

  ENDIF.

  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'

    EXPORTING

      buffer     = gv_xstring

    TABLES

      binary_tab = gt_solix.

***计算附件大小分配空间*******************

  DESCRIBE TABLE it_table LINES gv_lines.

  gv_lines = gv_lines * .

  gs_sopcklsti1-transf_bin = 'X'.

  gs_sopcklsti1-head_start = .

  gs_sopcklsti1-head_num   = .

  gs_sopcklsti1-body_start = .

  gs_sopcklsti1-body_num = gv_lines + .

  gs_sopcklsti1-doc_type = 'xls'.

  gs_sopcklsti1-obj_name   = 'ATTACHMENT'.

  gs_sopcklsti1-obj_descr  = iv_title.

  gs_sopcklsti1-doc_size =  gs_sopcklsti1-body_num * gv_tablesize * gv_lines  .

*gv_tablesize

  APPEND gs_sopcklsti1 TO gt_sopcklsti1.

***SO_DOCUMENT_SEND_API1邮件函数

  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'

    EXPORTING

      document_data              = gs_sodocchgi1

      put_in_outbox              = ''

      commit_work                = 'X'

    TABLES

      packing_list               = gt_sopcklsti1

*     OBJECT_HEADER              =

*     CONTENTS_BIN               =

      contents_txt               = gt_solisti1

      contents_hex               = gt_solix

*     OBJECT_PARA                =

*     OBJECT_PARB                =

      receivers                  = it_reclist

*     ET_VSI_ERROR               =

    EXCEPTIONS

      too_many_receivers         =

      document_not_sent          =

      document_type_not_exist    =

      operation_no_authorization =

      parameter_error            =

      x_error                    =

      enqueue_error              =

      OTHERS                     = .

  IF sy-subrc = .

    es_zcrms_message-type = gc_s.

    es_zcrms_message-message = text-."'Message sent successfully!'.

* Implement suitable error handling here

    "立即发送

    SUBMIT rsconn01 WITH mode = 'INT'

*                    with output = 'X'

    AND RETURN.

*    MESSAGE s001(00) WITH 'Message sent successfully!'.

  ELSE.

    es_zcrms_message-type = gc_e.

    es_zcrms_message-message =  text-."'Message sent failure!'.

  ENDIF.

ENDFUNCTION.

SEND EMAIL SO_DOCUMENT_SEND_API1的更多相关文章

Try to write a script to send e-mail but failed
#-*-coding: utf-8 -*- '''使用Python去发送邮件但是不成功,运行后,等待一段时间, 返回[Errno 10060] A connection attempt failed ...
python auto send email
/*************************************************************************** * python auto send emai ...
Check SMTP Server Availability for ORA-29278 or ORA-29279 errors using UTL_SMTP to Send Email
Check SMTP Server Availability for ORA-29278 or ORA-29279 errors using UTL_SMTP to Send Email. (文档 I ...
Send Email in Robot Framework Python Using Gmail
转载自:http://seleniummaster.com/sitecontent/index.php/selenium-robot-framework-menu/selenium-robot-fra ...
5 Ways to Send Email From Linux Command Line
https://tecadmin.net/ways-to-send-email-from-linux-command-line/ We all know the importance of email ...
[476] Database Mail is not enabled for agent notifications. Cannot send e-mail to
配置完DB Mail后JOB的的通知邮件不能发送,日志报错476] Database Mail is not enabled for agent notifications. Cannot send ...
Send email alert from Performance Monitor using PowerShell script （检测windows服务器的cpu 硬盘服务等性能，发email的方法） -摘自网络
I have created an alert in Performance Monitor (Windows Server 2008 R2) that should be triggered whe ...
Send Email
private string SendEmail(string mailTo, string body, ref int sendresult) { string errorEmailAddress ...
.Net Core Send Email
1.安装Nuget包MailKit,引用命名空间. using MailKit.Net.Smtp; using MimeKit; 注意:引用MailKit对应最新版本 2.定义收发地址和标题 Mime ...

随机推荐

Derek解读Bytom源码-创世区块
作者:Derek 简介 Github地址:https://github.com/Bytom/bytom Gitee地址:https://gitee.com/BytomBlockchain/bytom ...
UVa 11624 Fire!（着火了！）
UVa 11624 - Fire!(着火了!) Time limit: 1.000 seconds Description - 题目描述 Joe works in a maze. Unfortunat ...
20165306 预备作业3 Linux安装及学习
查看了许多教程,VirtualBox和Ubuntu已安装完成.以下为学习Linux基础入门课程的实验报告.实验截图.尚未解决的问题及体会. 实验三用户及文件权限管理一.Linux用户管理 (一)查 ...
【链接】linuxCentOS权限问题修复（chmod777-R或者chmod755- http://www.cnblogs.com/kofxxf/p/5220836.html
[链接]linuxCentOS权限问题修复(chmod777-R或者chmod755- http://www.cnblogs.com/kofxxf/p/5220836.html
memset()函数用法及其作用
memset()函数原型是: extern void *memset(void *buffer, int c, int count) //buffer:为指针或是数组, //c:是赋给buffer的值 ...
清除memcached缓存
telnet localhost 11211 flush_all 最后要一定要关闭dos窗体,不然会导致memcached写值返回ture,但是实际上并没有写入值
CSS--外发光与内阴影
外阴影:box-shadow: X轴 Y轴 Rpx color; 属性说明(顺序依次对应): 阴影的X轴(可以使用负值) 阴影的Y轴(可以使用负值) 阴影模糊值(大小) 阴影的 ...
[osg][opengl]透视投影的参数Perspective
gluPerspective这个函数指定了观察的视景体(frustum为锥台的意思,通常译为视景体)在世界坐标系中的具体大小,一般而言,其中的参数aspect应该与窗口的宽高比大小相同.比如说,asp ...
从classloader的变更说起
classloader从1.6到1.7整体分成了两个版本.重点区别就是并行类加载. 1.6版本 protected synchronized Class loadClass(String name, ...
Android 通过 JNI 访问 Java 字段和方法调用
在前面的两篇文章中,介绍了 Android 通过 JNI 进行基础类型.字符串和数组的相关操作,并描述了 Java 和 Native 在类型和签名之间的转换关系. 有了之前那些基础,就可以实现 Jav ...

SEND EMAIL SO_DOCUMENT_SEND_API1

SEND EMAIL SO_DOCUMENT_SEND_API1的更多相关文章

随机推荐

热门专题