点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

 *＆---------------------------------------------  ------------------------ *

 *＆报告ZSENDEMAIL

 *＆

 *＆------------------------------------------------  --------------------- *

 *＆

 *＆

 *＆------------------------------------------------  --------------------- *



 报告ZSENDEMAIL。

 data：邮件数据类型为SODOCCHGI1。
 data：带有标题行的SOLISTI1的mailtxt类型表。
 数据：带有标题行的SOMLRECI1的mailrec类型表。


 选择开始。

 参数：mailcont类型SOLISTI1。
 清除：maildata，mailtxt，mailrec。
 刷新：mailtxt，mailrec。

 maildata-obj_name ='测试'。
 maildata-obj_descr ='测试'。
 maildata-obj_langu = sy-langu。
 mailtxt-line = mailcont。


 附加mailtxt。

 mailrec-receiver ='manasa.rudroju@gmail.com'。
 mailrec-rec_type ='U'。

 附加mailrec。



 通话功能" SO_NEW_DOCUMENT_SEND_API1"



   出口

     DOCUMENT_DATA = MAILDATA

    DOCUMENT_TYPE ='RAW'

 * PUT_IN_OUTBOX =''

    COMMIT_WORK ='X'

 *重要

 * SENT_TO_ALL =

 * NEW_OBJECT_ID =

   桌子

    OBJECT_HEADER = MAILTXT

    OBJECT_CONTENT = MAILTXT

 * CONTENTS_HEX =

 * OBJECT_PARA =

 * OBJECT_PARB =

     收货人= MAILREC

 *例外情况

 * TOO_MANY_RECEIVERS = 1

 * DOCUMENT_NOT_SENT = 2

 * DOCUMENT_TYPE_NOT_EXIST = 3

 * OPERATION_NO_AUTHORIZATION = 4

 * PARAMETER_ERROR = 5

 * X_ERROR = 6

 * ENQUEUE_ERROR = 7

 *其他= 8

           。

 如果SY-SUBRC <> 0。

 写：/'成功'。

 ENDIF。