ABAP 发送邮件

最新推荐文章于 2024-05-05 08:05:24 发布

红红崽崽

最新推荐文章于 2024-05-05 08:05:24 发布

阅读量516

点赞数

分类专栏：发邮件 ABAP

本文链接：https://blog.csdn.net/suweishao/article/details/108576014

版权

ABAP 同时被 2 个专栏收录

63 篇文章 7 订阅

订阅专栏

发邮件

1 篇文章 0 订阅

订阅专栏

HTML 邮件发送格式
FORM daymail USING i_rec LIKE lt_receivers .

IF wa_receiver IS INITIAL.
EXIT.
ENDIF.

REFRESH lt_cont. " 清理文本输出

l_title = ‘销售订单未审核，请及时审核！’.

"构造邮件内容
wa_cont-line = '<BODY style=“PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px” id=MailContainerBody leftMargin=0 topMargin=0 bgColor=#ffffff '.
APPEND wa_cont TO lt_cont.
wa_cont-line = ‘<FONT face = ‘‘宋体’’>’.

APPEND wa_cont TO lt_cont.
wa_cont-line = ’ 请查收待审核信息!

‘.
APPEND wa_cont TO lt_cont.
wa_cont-line = ‘<TABLE border = 1 bordercolor = ‘’#000000’’ cellpadding = ‘‘0’’ cellspacing = ‘‘0’’>’.
APPEND wa_cont TO lt_cont.
wa_cont-line = ’ 销售凭证创建日期工厂对象状态对象状态名称 '.

APPEND wa_cont TO lt_cont.

WA_CONT-LINE = ’ '.
APPEND WA_CONT TO LT_CONT.
wa_cont-line = ‘’.
APPEND wa_cont TO lt_cont.
CLEAR:wa_cont.

"构造邮件内容
LOOP AT tmp.
CONCATENATE wa_cont-line ‘’ tmp-vbeln ‘’ INTO wa_cont-line.
CONCATENATE wa_cont-line ‘’ tmp-erdat ‘’ INTO wa_cont-line.
CONCATENATE wa_cont-line ‘’ tmp-werks ‘’ INTO wa_cont-line.
CONCATENATE wa_cont-line ‘’ tmp-txt04 ‘’ INTO wa_cont-line.
CONCATENATE wa_cont-line ‘’ tmp-txt30 ‘’ INTO wa_cont-line.
APPEND wa_cont TO lt_cont.
CLEAR: wa_cont.

ENDLOOP.

wa_cont-line = ‘
’.
APPEND wa_cont TO lt_cont.
wa_cont-line = ‘

备注：此邮件为SAP系统自动发送，请勿回复1。’.
APPEND wa_cont TO lt_cont.
wa_cont-line = ‘’.
APPEND wa_cont TO lt_cont.

"发送邮件
CALL FUNCTION ‘ZHR_SEND_EMAIL’
EXPORTING
im_title = l_title
im_body_content = lt_cont
TABLES
im_receivers = lt_receivers.

CLEAR: wa_cont.

ENDFORM.

 "构造邮件内容
  wa_cont-line = '<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px" id=MailContainerBody leftMargin=0 topMargin=0 bgColor=#ffffff '.
  APPEND wa_cont TO lt_cont.
  wa_cont-line = '<FONT face = ''宋体''>'.
  APPEND wa_cont TO lt_cont.

*  WA_CONT-LINE = '   请查收H011工厂库存低于安全库存信息! <br><br>'.
*  APPEND WA_CONT TO LT_CONT.

  wa_cont-line = '<TABLE border = 1 bordercolor = ''#000000'' cellpadding = ''0'' cellspacing = ''0''>'.
  APPEND wa_cont TO lt_cont.
  wa_cont-line =  '<TR><TD>物料号</TD><TD>物料描述</TD><TD>工厂</TD><TD>非限制库存</TD><TD>安全库存</TD><TD>总非限制库存</TD><TD>最大库存数量</TD><TD>采购地</TD><TD>责任人</TD> '.

  APPEND wa_cont TO lt_cont.
*  WA_CONT-LINE = '<TD>  </TD>'.
*  APPEND WA_CONT TO LT_CONT.
  wa_cont-line = '</TR>'.
  APPEND wa_cont TO lt_cont.
  CLEAR:wa_cont.

  LOOP AT tabemail.
    CONCATENATE wa_cont-line '<TR><TD>' tabemail-matnr1 '</TD>' INTO wa_cont-line.
    CONCATENATE wa_cont-line '<TD>'     tabemail-maktx '</TD>' INTO wa_cont-line.
    CONCATENATE wa_cont-line '<TD>'     tabemail-werks '</TD>' INTO wa_cont-line.
    CONCATENATE wa_cont-line '<TD>'     tabemail-labst1  '</TD>' INTO wa_cont-line.
    CONCATENATE wa_cont-line '<TD>'     tabemail-eisbe1  '</TD>' INTO wa_cont-line.
    CONCATENATE wa_cont-line '<TD>'     tabemail-zkcsl1  '</TD>' INTO wa_cont-line.
    CONCATENATE wa_cont-line '<TD>'     tabemail-mabst1  '</TD>' INTO wa_cont-line.
    CONCATENATE wa_cont-line '<TD>'     tabemail-ZCGD  '</TD>' INTO wa_cont-line.
    CONCATENATE wa_cont-line '<TD>'     tabemail-ZZRR  '</TD></TR>' INTO wa_cont-line.
    APPEND wa_cont TO lt_cont.
    CLEAR: wa_cont.

  ENDLOOP.

  wa_cont-line = '</TABLE><br>'.
  APPEND wa_cont TO lt_cont.
  wa_cont-line = '<br><br>备注：此邮件为SAP系统自动发送，请勿回复。</FONT>'.
  APPEND wa_cont TO lt_cont.
  wa_cont-line = '</BODY>'.
  APPEND wa_cont TO lt_cont.

  "发送邮件
  CALL FUNCTION 'ZHR_SEND_EMAIL'
    EXPORTING
      im_title        = l_title
      im_body_content = lt_cont
    TABLES
      im_receivers    = lt_receivers.

红红崽崽

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
ABAP 发送邮件

HTML 邮件发送格式FORM daymail USING i_rec LIKE lt_receivers .IF wa_receiver IS INITIAL.EXIT.ENDIF.REFRESH lt_cont. " 清理文本输出l_title = ‘销售订单未审核，请及时审核！’."构造邮件内容wa_cont-line = '<BODY style=“PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px”
复制链接

扫一扫