[SAP][ABAP]SO_OBJECT_SEND发送html格式邮件

定义内表、工作区间

  DATA:lt_message_content   TYPE TABLE OF soli,"邮件内容
       ls_message_content   TYPE soli,
       lt_receiver_list     TYPE TABLE OF soos1,   "收件人
       ls_receiver_list     TYPE soos1,   "SEND EMAIL
       lw_object_hd_change  TYPE sood1."标题

设置邮件标题

lw_object_hd_change-objdes = ‘你有新的邮件！（系统邮件请勿回复）’.

设置邮件内容

 CONCATENATE '<table border="1">' '<tr>' '<td>工厂</td>' '<td>采购订单号</td>'
               '<td>计划单号</td>' '<td>申请人</td>' '<td>物料号</td>' '<td>物料描述</td>'  '<td>到货数量</td>' '</tr>' INTO ls_message_content.
 APPEND ls_message_content TO lt_message_content.
 CLEAR ls_message_content.
 CONCATENATE  '<tr>' '<td>1001</td>' '<td>458924258</td>'
               '<td>0011</td>' '<td>张三</td>' '<td>3598</td>' '<td>水杯</td>'
               '<td>10</td>' '</tr>' INTO ls_message_content.
 APPEND ls_message_content TO lt_message_content.
 CLEAR ls_message_content. 
 CONCATENATE  '<tr>' '<td>1002</td>' '<td>458924259</td>'
               '<td>0013</td>' '<td>李四</td>' '<td>3599</td>' '<td>风扇</td>'
               '<td>15</td>' '</tr>' INTO ls_message_content.
 APPEND ls_message_content TO lt_message_content.
 CLEAR ls_message_content.
 ls_message_content = '</table>'.
 APPEND ls_message_content TO lt_message_content.
 CLEAR ls_message_content.

调用发送函数

**注意：**object_type 的参数需要设置为’HTM’

  CALL FUNCTION 'SO_OBJECT_SEND'
    EXPORTING
       object_hd_change           = lw_object_hd_change
       object_type                = 'HTM'
       originator_type            = 'B'           
       originator                 = 'SEMDEMAIL'  "指定SENDER 账号
    TABLES
       objcont                    = lt_message_content
       receivers                  = lt_receiver_list

效果

使用事务码SOST可以查看发送的邮件。

点击查看按钮，可以看到下图所示的效果：