ABAP 邮件发送

已于 2022-01-19 21:56:46 修改
阅读量2k 收藏 7
点赞数
分类专栏： ABAP 速食 文章标签： abap
于 2022-01-19 21:55:11 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xiefireworks/article/details/122590376
版权
ABAP 同时被 2 个专栏收录
61 篇文章 13 订阅
订阅专栏
速食
14 篇文章 0 订阅
订阅专栏
参数
PI_SUBJECTTYPE SO_OBJ_DES邮件主题
PI_SENDERTYPE AD_SMTPADR OPTIONAL发件人邮箱地址
PT_ACCEPTTYPE BCSY_SMTPA 收件人邮箱
PT_CCACCEPTTYPE BCSY_SMTPA OPTIONAL抄送人邮箱
PT_CONTENTTYPE SOLI_TAB邮件内容
PT_ATTACHMENTTYPE TFPATTACHMENTS OPTIONAL附件清单（只用filename：文件名，mimetype：BIN，data:xstring数据）
PS_RETURNTYPE BAPIRET2返回参数

*&------Send Email Parameter
    DATA: lt_contents_txt    TYPE soli_tab,
          ls_contents_txt    TYPE soli,
          lt_attach_header   TYPE soli_tab,
          ls_attach_header   TYPE soli,
          lt_att_content_hex TYPE solix_tab,
          lv_outlength       TYPE i,
          lv_attch_size      TYPE so_obj_len,
          lv_content_size    TYPE so_obj_len,
          lv_send_return     TYPE os_boolean.

    DATA: lr_send     TYPE REF TO cl_bcs,
          lr_document TYPE REF TO cl_document_bcs,
          lr_sender   TYPE REF TO cl_cam_address_bcs,
          lr_accept   TYPE REF TO cl_cam_address_bcs,
          lr_ccaccept TYPE REF TO cl_cam_address_bcs,
          lr_sap_user TYPE REF TO cl_sapuser_bcs,
          lr_bcs      TYPE REF TO cx_bcs.

    DATA:lr_cx_send_req_bcs TYPE REF TO cx_send_req_bcs,
         lr_cx_address_bcs  TYPE REF TO cx_address_bcs.

    DATA: lv_accept  TYPE ad_smtpadr,
          lv_message TYPE bapiret2-message.

    DATA: ls_attachment TYPE sfpattachments,
          lv_doctype    TYPE so_obj_tp,
          lv_attsubject TYPE so_obj_des.

    DEFINE mcr_fill_return.
      ps_return-id         = sy-msgid.
      ps_return-number     = sy-msgno.
      ps_return-type       = sy-msgty.
      ps_return-message_v1 = sy-msgv1.
      ps_return-message_v2 = sy-msgv2.
      ps_return-message_v3 = sy-msgv3.
      ps_return-message_v4 = sy-msgv4.
      ps_return-message    = &1.
      RETURN.
    END-OF-DEFINITION.

    " Content format
    lt_contents_txt = pt_content.

*&------Create Send Request
    TRY.
        CALL METHOD cl_bcs=>create_persistent
          RECEIVING
            result = lr_send.
      CATCH cx_send_req_bcs INTO lr_cx_send_req_bcs.

    ENDTRY.
    IF lr_cx_send_req_bcs IS NOT INITIAL.
      lv_message = lr_cx_send_req_bcs->get_text( ).
      mcr_fill_return lv_message.
    ENDIF.

*&------Get The Sender Email Adress
    IF pi_sender IS NOT INITIAL.
      TRY.
          CALL METHOD cl_cam_address_bcs=>create_internet_address
            EXPORTING
              i_address_string = pi_sender
              i_address_name   = 'System Notification'
*             i_incl_sapuser   =
            RECEIVING
              result           = lr_sender.

*&---------Set Sender
          CALL METHOD lr_send->set_sender
            EXPORTING
              i_sender = lr_sender.

        CATCH cx_address_bcs INTO lr_cx_address_bcs.
        CATCH cx_send_req_bcs INTO lr_cx_send_req_bcs.
      ENDTRY.

    ELSE.
      TRY.
          CALL METHOD cl_sapuser_bcs=>create
            EXPORTING
              i_user = sy-uname
            RECEIVING
              result = lr_sap_user.

          CALL METHOD lr_send->set_sender
            EXPORTING
              i_sender = lr_sap_user.

        CATCH cx_send_req_bcs INTO lr_cx_send_req_bcs.
        CATCH cx_address_bcs INTO lr_cx_address_bcs.
      ENDTRY.
    ENDIF.

    " Error Deal
    IF lr_cx_address_bcs IS NOT INITIAL.
      lv_message = lr_cx_address_bcs->get_text( ).
      mcr_fill_return lv_message.
    ENDIF.

    IF lr_cx_send_req_bcs IS NOT INITIAL.
      lv_message = lr_cx_send_req_bcs->get_text( ).
      mcr_fill_return lv_message.
    ENDIF.

*&------Create Send Document Content
    TRY.
        IF lr_sender IS NOT INITIAL.
          CALL METHOD cl_document_bcs=>create_document
            EXPORTING
              i_type        = 'RAW' "'HTM'"'RAW'
              i_subject     = pi_subject
              i_length      = lv_content_size
              i_language    = sy-langu
*             i_importance  = '1'
              i_sensitivity = 'O'
              i_text        = lt_contents_txt
*             i_hex         =
*             i_header      =
              i_sender      = lr_sender
*             iv_vsi_profile =
            RECEIVING
              result        = lr_document.
        ELSE.
          CALL METHOD cl_document_bcs=>create_document
            EXPORTING
              i_type        = 'RAW'
              i_subject     = pi_subject
              i_length      = lv_content_size
              i_language    = sy-langu
*             i_importance  = '1'
              i_sensitivity = 'O'
              i_text        = lt_contents_txt
*             i_hex         =
*             i_header      =
*             i_sender      =
*             iv_vsi_profile =
            RECEIVING
              result        = lr_document.
        ENDIF.
      CATCH cx_document_bcs INTO lr_bcs.
    ENDTRY.

    IF lr_bcs IS NOT INITIAL.
      lv_message = lr_bcs->get_text( ).
      mcr_fill_return lv_message.
    ENDIF.

*&------Add Attachment To Send Document
    TRY.
        LOOP AT pt_attachment INTO ls_attachment.

          CLEAR: lt_attach_header,ls_attach_header,lv_attch_size,lt_att_content_hex.
          ls_attach_header = ls_attachment-filename.
          APPEND ls_attach_header TO lt_attach_header.

          CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
            EXPORTING
              buffer        = ls_attachment-data
            IMPORTING
              output_length = lv_outlength
            TABLES
              binary_tab    = lt_att_content_hex.

          lv_attch_size = lv_attch_size.
          lv_doctype    = ls_attachment-mimetype.
          lv_attsubject = ls_attachment-filename.
          SHIFT lv_attch_size LEFT DELETING LEADING ' '.

          CALL METHOD lr_document->add_attachment
            EXPORTING
              i_attachment_type     = lv_doctype
              i_attachment_subject  = lv_attsubject
              i_attachment_size     = lv_attch_size
              i_attachment_language = sy-langu
*             i_att_content_text    =
              i_att_content_hex     = lt_att_content_hex
*             i_attachment_header   = lt_attach_header
*             iv_vsi_profile        =
            .
          CLEAR ls_attachment.
        ENDLOOP.
      CATCH cx_document_bcs INTO lr_bcs.

    ENDTRY.

    IF lr_bcs IS NOT INITIAL.
      lv_message = lr_bcs->get_text( ).
      mcr_fill_return lv_message.
    ENDIF.

*&------Set Send Document For Send Request
    TRY.
        CALL METHOD lr_send->set_document
          EXPORTING
            i_document = lr_document.
      CATCH cx_send_req_bcs INTO lr_bcs.
    ENDTRY.
    IF lr_bcs IS NOT INITIAL.
      lv_message = lr_bcs->get_text( ).
      mcr_fill_return lv_message.
    ENDIF.

*&------Add Accept For Email
    TRY.
        LOOP AT pt_accept INTO lv_accept.
          CLEAR lr_accept.
          CALL METHOD cl_cam_address_bcs=>create_internet_address
            EXPORTING
              i_address_string = lv_accept
*             i_address_name   =
*             i_incl_sapuser   =
            RECEIVING
              result           = lr_accept.

          CALL METHOD lr_send->add_recipient
            EXPORTING
              i_recipient  = lr_accept
              i_express    = 'X'
              i_copy       = ''
              i_blind_copy = ''
              i_no_forward = ''.
        ENDLOOP.

        " 抄送人
        LOOP AT pt_ccaccept INTO lv_accept.
          CLEAR lr_accept.
          CALL METHOD cl_cam_address_bcs=>create_internet_address
            EXPORTING
              i_address_string = lv_accept
*             i_address_name   =
*             i_incl_sapuser   =
            RECEIVING
              result           = lr_accept.

          CALL METHOD lr_send->add_recipient
            EXPORTING
              i_recipient  = lr_accept
              i_express    = 'X'
              i_copy       = 'X'
              i_blind_copy = ''
              i_no_forward = ''.
        ENDLOOP.

      CATCH cx_send_req_bcs INTO lr_bcs.
        lv_message = lr_bcs->get_text( ).
        mcr_fill_return lv_message.
      CATCH cx_address_bcs INTO lr_bcs.
        lv_message = lr_bcs->get_text( ).
        mcr_fill_return lv_message.
    ENDTRY.

    TRY.
        CALL METHOD lr_send->set_send_immediately
          EXPORTING
            i_send_immediately = 'X'.

      CATCH cx_send_req_bcs INTO lr_bcs.
        lv_message = lr_bcs->get_text( ).
        mcr_fill_return lv_message.
    ENDTRY.

*&------Send Email
    TRY.
        CALL METHOD lr_send->send
          EXPORTING
            i_with_error_screen = space
          RECEIVING
            result              = lv_send_return.

      CATCH cx_send_req_bcs INTO lr_bcs.
        lv_message = lr_bcs->get_text( ).
        mcr_fill_return lv_message.
    ENDTRY.

    COMMIT WORK AND WAIT.

*    SUBMIT rsconn01 WITH mode = '*'"INT'
*                  WITH output = ''
*                  AND RETURN.

1. 邮件内容为HTML格式时，create_document方法中类型需要传'HTM'

2. 如果需要立即发送，则要调用邮件发送程序，会比较慢

3. 可以为邮件设置重要等级

4. 发件邮箱显示名字 System Notification 可修改

5. ...

谢图图
关注
  • 0
    点赞
  • 踩
  • 7
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
SAP-ABAP程序发送邮件
heng0757的专栏
01-22 2955
1. 变量定义: 类: CL_BCS – Business Communication Service, 发送邮件主要用到的功能类, 包括创建发送请求, 添加发送内容,添加发送地址, 到最终的发送指令发出. send_request type ref to cl_bcs. 类: CL_DOCUMENT_BCS, 用来放置发送的内容. document type ref
ABAP发送邮件-带附件
小峰的ABAP博客
11-13 9424
<!-- @font-face {font-family:SimSun} @font-face {font-family:SimSun} @font-face {font-family:"맑은 고딕"} @font-face {font-family:나눔고딕코딩} @font-face {font-family:"\@나눔고딕코딩"} @font-face {
SAP ABAP 实现发送邮件功能
qq_41757790的博客
07-22 7840
sap ABAP实现发送邮件功能
ABAP 发送邮件 实例
最新发布
qq_42080586的博客
05-05 972
2、使用CL_DOCUMENT_BCS=>CREATE_DOCUMENT( )，创建发送内容对象，cl_content保存类对象；3、添加附件，使用cl_content->add_attachment，调用内容对象方法add_attachment；1、使用CL_BCS=>CREATE_PERSISTENT( )创建邮件发送请求,cl_send_mail保存对象；4、将发送邮件内容添加到请求对象，cl_send_mail的SET_DOCUMENT方法；5、使用set_attribute，设置节点属性值；
ABAP 调用本地程序打开文件 'CALL_INTERNET_ADRESS'
feijibin的专栏
05-12 1823
文章转自 http://blog.csdn.net/wren2004/article/details/5712815   比如DOC文件,就调用word, xls就自动调用Excel等. 函数: CALL_INTERNET_ADRESS CALL FUNCTION 'CALL_INTERNET_ADRESS' EXPORTING    PI_ADRESS
ABAP发送邮件
yutimes的博客
01-22 821
接下来，我们指定收件人的电子邮件地址，并调用函数模块SO_NEW_DOCUMENT_ATT_SEND_API1来发送邮件。请注意，此代码使用了固定的发送方名称“ZABAP_EMAIL”。此外，您还需要替换收件人的电子邮件地址，“email@example.com”。您需要与您的系统管理员合作，以确保邮件发送功能正常工作。如果您想要发送HTML格式的邮件，您需要将内容类型更改为HTML，并相应地设置内容。在ABAP中发送邮件，可以使用函数模块SO_DOCUMENT_SEND_API1。
SAP ABAP 实现发送邮件功能 （RFC:SO_DOCUMENT_SEND_API1）＜转载＞
qq_55488207的博客
02-10 1915
SAP
ABAP笔记 发送邮件
qq_43156252的博客
07-07 392
【代码】ABAP笔记 发送邮件。
SAP ABAP启动OUTLOOK发邮件.docx
01-27
在SAP系统中，有时需要实现自定义的邮件发送功能以满足特定的业务需求，例如在用户操作SAP采购订单报表时，直接通过Outlook发送邮件到供应商。针对这种需求，我们可以利用SAP的ABAP编程环境，通过OLE（Object ...
abap 发送邮件内容 通过 HTML 模板 发送 更改
07-03
首先，我们需要理解ABAP中的邮件发送机制。在SAP系统中，`CL_MAIL_SENDER`类是用于发送邮件的主要组件。它支持多种格式的邮件，包括纯文本和HTML。HTML邮件的优势在于可以提供更丰富的格式化内容，如字体、颜色、...
abap2 xlsx 项目程序
07-03
- 导出和下载：生成的XLSX文件可以通过SAP GUI或者Web Dynpro界面提供给用户下载，也可以通过邮件自动发送。 5. 应用场景： - 定制报告：根据业务需求，快速生成定制化的数据分析报告。 - 数据交换：与非SAP系统...
xml 生产excel 发送邮件
09-28
xml 转excel 发送 邮件
ABAP 发送邮件【函数】
我的心是烈日簇拥的花，在你的眼里找到了家
01-28 2012
导语：最近码农小夏和我说，想在一些自动的作业里加发送邮件功能，就是自动作业报错的时候，给用户发送系统邮件，避免报错石沉大海没人关注，这里就涉及到用代码给用户发邮件而非工作台里面发送，我翻了一些资料，借鉴了项目中老顾问的一些代码，封装了一个函数。 字段 描述 函数名称 ZYH_SEND_EMAIL 邮件发送 函数入参 L_TITLE 邮件的主题 ADD_TITLE 附件名称 IV_REC_TYPE 收件人类型的说明 表结构 IT_CONTXT 文本内容 IT_SMT
SAP ABAP 基于 CL_BCS 发送邮件
DeveloperMrMeng的博客
07-20 5422
通过ABAP代码实现发送各种类型的邮件内容，包括txt，csv，xls，pdf，image等，包括smartforms转PDF，ALV转PDF。
ABAP发送邮件代码示例
jianping456的博客
07-04 707
abap 发送邮件示例（后台配置好以后使用）
ABAP发送表格/附件类邮件
森林木的博客
10-31 900
在SAP实施中，邮件发送功能在很多项目都会用到，而且往往是把内表以Excel或者CSV的格式发送附件，最好是这个表格也可以显示在正文中，这样的话如果数据行数比较少，就不需要打开附件了。发送的邮件如下图所示：以往这种需要都是每个程序单独写好长的代码，代码的工作量非常大，本文就是把功能都集成到几个子程序和函数中，大大减少了开发工作量。程序特点：1、支持发送到多个外部邮箱2、支持发送到SAP账号（使用事...
简单SAP ABAP发送邮件示例代码
热门推荐
兔宝学习ABAP整理笔记
01-08 1万+
REPORT Z_WUWEI_0001. *类: CL_BCS 发送邮件主要用到的功能类, 包括创建发送请求, 添加发送内容,添加发送地址, 到最终的发送指令发出. *类: CL_DOCUMENT_BCS, 用来放置发送的内容. *类: CX_BCS, 不用多说,这是个异常类, 用于捕捉发送邮件过程中出现的异常. *接口: IF_RECIPIENT_BCS, 用来做邮件地址的存储转换. DAT
ABAP发送邮件（含EXCEl附件）
Nathan的博客
02-14 5424
邮箱配置请见SAP系统配置SMPT邮箱_Nathan的博客-CSDN博客_sap 邮件配置SAP系统配置SMPT邮箱首先要获取可以使用发送协议SMTP的邮件服务器地址，以及一个用于服务器验证的邮箱地址及其密码。1，登陆SAP系统进入事务码RZ10，通过以下路径可以查看当前可用的参数文件，通过搜索帮助带出文件名可自动带出活动的版本填入参数文件名选择扩展维护单击修改，这里我们需要填入两个参数参数：is/SMTP/virt_host_0 值：*:25;参数：ic...https://blog.csdn.net/S
abap邮件发送开发
10-27
ABAP邮件发送开发是指在SAP系统中使用ABAP编程语言开发邮件发送功能。ABAP是SAP系统的一种编程语言，可以用来开发和定制各种功能和业务逻辑。 在ABAP邮件发送开发中，我们可以使用ABAP语言中的内置函数和类来实现...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值