SAP邮件发送_原创精品文档.pdfVIP

此邮件发送为附件⽂档，也可将参数设置为PDF，可发送PDF附件。

⼀、新建⾃定义表，如下:存储邮箱地址。若邮箱地址可直接从系统抓取则可忽略

⼆、数据定义

****邮件发送

CONSTANTS:

DATA:i_packing_listLIKEsopcklsti1OCCURS0WITHHEADERLINE,

i_sendmailLIKEzsendmailOCCURS0WITHHEADERLINE,

i_contents_binLIKEsolisti1OCCURS0WITHHEADERLINE,

w_doc_dataLIKEsodocchgi1.

DATA:c_mimetypeTYPEchar64VALUEAPPLICATION/MSEXCEL;charset=utf-16le.

DATA:v_xattachTYPExstring.

DATA:lv_stringTYPEstring.

DATA:tab_linesLIKEsy-tabix,

w_sent_all(1)TYPEc,

w_errorTYPEsy-subrc.

DATA:num1TYPEi.

三、相关代码

START-OF-SELECTION.

PERFORMgetdata.

DESCRIBETABLEgt_dataLINESnum1.

IFnum1NE0.

IFsy-batch=X.

PERFORMsend_mail.

ELSE.

PERFORMdisplay_data.

ENDIF.

ENDIF.

IFnum1EQ0.

MESSAGE没有符合条件的数据TYPEI.

ENDIF.

FORMsend_mail.

PERFORMget_send_mail.

***definemailmaincontext****

PERFORMdefine_mail_header.

***dfineattachment*******************

PERFORMdefine_mail_attachment.

***getmailreceiver*****************

PERFORMget_receivers.

*Sendemailmessage,althoughisnotsentfromSAPuntilmailsend

*programhasbeenexecuted(rsconn01)

PERFORMsend_email_message.

ENDFORM.

FORMget_send_mail.

SELECT*FROMzsendmail

INTOCORRESPONDINGFIELDSOFTABLEi_sendmail.

IFmatnr[]ISINITIAL.

成品

ELSE.

复配料

FORMdefine_mail_header.

DATA:tmp_dateLIKEsy-datum.

DATA:tmp_char(30).

tmp_date=sy-datum.

CONCATENATEOverdueBatchsy-datumINTOtmp_char.

********definesubjectandpriority************

IFmatnr[]ISINITIAL.

w_doc_data-obj_descr=

ELSE.

w_doc_data-obj_descr=复配料库存货龄表

ENDIF.

w_doc_data-obj_langu=sy-langu.

********mailmaincontext***********************

i_contents_txt=各位主管、同仁:.

APPENDi_contents_txt.

i_contents_txt=.

APPENDi_contents_txt.

IFmatnr[]ISINITIAL.