【SAP】ABAP开发——发送邮件

方法一：用函数'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