ABAP如何发送带EXCEL附件的邮件代码摘抄

最新推荐文章于 2024-04-18 14:47:58 发布

JackWu

最新推荐文章于 2024-04-18 14:47:58 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： 10 SAP ABAP

本文链接：https://blog.youkuaiyun.com/sap_jack/article/details/113882359

这篇报告提供了一个在Unicode系统中通过ABAP发送带有Excel附件的示例。通过创建持久发送请求，设置文档及附件，然后添加收件人并发送邮件。示例代码包括了内容创建和转换，以及异常处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

report bcs_example_7.

* This report provides an example for sending an Excel
* attachment in Unicode Systems

constants:
  gc_tab  type c value cl_bcs_convert=>gc_tab,
  gc_crlf type c value cl_bcs_convert=>gc_crlf.

parameters:
  mailto type ad_smtpadr
   default 'john.doe@crazy-company.com'.                    "#EC *

data send_request   type ref to cl_bcs.
data document       type ref to cl_document_bcs.
data recipient      type ref to if_recipient_bcs.
data bcs_exception  type ref to cx_bcs.

data main_text      type bcsy_text.
data binary_content type solix_tab.
data size           type so_obj_len.
data sent_to_all    type os_boolean.

start-of-selection.
  perform create_content.
  perform send.

*&---------------------------------------------------------------------*
*&      Form  send
*&---------------------------------------------------------------------*
form send.

  try.

*     -------- create persistent send request ------------------------
      send_request = cl_bcs=>create_persistent( ).

*     -------- create and set document with attachment ---------------
*     create document object from internal table with text
      append 'Hello world!' to main_text.                   "#EC NOTEXT
      document = cl_document_bcs=>create_document(
        i_type    = 'RAW'