ABAP-如何发送EXCEL附件

最新推荐文章于 2024-02-26 11:09:27 发布

原创

最新推荐文章于 2024-02-26 11:09:27 发布 · 2.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#sap #abap

这篇博客展示了如何在SAP系统中利用ABAP代码创建并发送带有Excel附件的电子邮件。通过调用BCS_EXAMPLE_7的示例代码，程序首先创建邮件正文，然后将一个示例 spreedsheet 转换为二进制内容作为附件，最后发送到指定的收件人地址。

在工作中，我们常常需要将订单、出库单和发票等单据用excel的方式发给用户或者客户。

网上有很多的相关的代码，但简洁已于使用的还是SAP的样例代码，请参见BCS_EXAMPLE_7

sap代码我摘抄如下：

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=