方法一:用函数'SO_DOCUMENT_SEND_API1'发送邮件
DATA lt_message TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0 WITH HEADER LINE.
DATA: lv_cont1(250),
lv_cont2(200).
DATA: lt_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
lt_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
w_sent_all(1) TYPE c,
w_doc_data LIKE sodocchgi1.
FORM send_email USING is_out LIKE ls_data.
"邮件文本内容
REFRESH lt_message.
CONCATENATE '物料号:' is_out-matnr '、数量:' is_out-menge
'、金额:' is_out-dmbtr ' 、单位:' is_out-meins
'、该物料数量低于目标数量,请及时联系采购组'
INTO lv_cont1. "第一段
lt_message = lv_cont1.
APPEND lt_message.
CLEAR:lt_message.
lv_cont2 = '如果您已填写【采购数量】还能收到这封邮件,可能是因为您填写的【采购数量】小于【目标数量】,请检查。'."第二段
lt_message = lv_cont2.
APPEND lt_message.
CLEAR:lt_message.
DESCRIBE TABLE lt_message[] LINES lv_line.
C