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 ...

随机推荐

WijmoJS 使用Web Workers技术，让前端 PDF 导出效率更高效
概述 Web Workers是一种Web标准技术,允许在后台线程中执行脚本处理. WijmoJS 的2018v3版本引入了Web Workers技术,以便在生成PDF时提高应用程序的运行速度. 一般来 ...
Leetcode66-Plus One-Eassy
Given a non-empty array of digits representing a non-negative integer, plus one to the integer. The ...
openlayers空间点查询之GetFeatureInfo
在map对象上注册点击方法监听, 这里我用的是wms,当然你也可以查询wfs map.events.register('click', map, function (e) { ...
JAVA读取CSV文件到MySQL数据库中
maven项目pom配置: <dependency> <groupId>net.sourceforge.javacsv</groupId> <artifact ...
ashx和aspx的区别
1. ashx是一般处理程序,一般返回的数据有两种,一种是html页面,一种是只返回一个字符串. 2. aspx是web窗体程序,每次新建都回自带一个界面和一个后台处理程序. 3. 根据以上两点,可以 ...
ajax操作json的三种方式
一. 什么是json? 1. JSON是一种轻量级的数据交换格式 2. JSON 可以将 JavaScript 对象中表示的一组数据转换为字符串,然后就可以在网络或者程序之间轻松地传递这个字符串,并在 ...
React + Ant Design网页,配置
第一个React + Ant Design网页(一.配置+编写主页) 引用博主的另外一篇VUE2.0+ElementUI教程, 请移步: https://blog.csdn.net/u0129070 ...
自动化测试基础-断言（Assert）使用方法
junit中的assert方法全部放在Assert类中,总结一下junit类中assert方法的分类.1.assertTrue/False([String message,]boolean condi ...
Codeforces 920F - SUM and REPLACE
920F - SUM and REPLACE 思路1: 线段树(982 ms) 每个点最多更新6次代码: #include<bits/stdc++.h> using namespace ...
UCS2编码
UCS2就是标准的unicode编码, 它是某国际组织设计的一种文字符号编码表,包括了世界上绝大多数文字和符号,包括中文,每个字符使用2字节编码,因此叫ucs2. 这里有一篇文章对Unicode编码做 ...

SEND EMAIL SO_DOCUMENT_SEND_API1

SEND EMAIL SO_DOCUMENT_SEND_API1的更多相关文章

随机推荐

热门专题