SAP 邮件发送配置及开发
1、设置邮件发送用户
添加参数文件：S_A.SCON
2、 RZ10配置参数
> icm/server_port_<*> = PROT=SMTP,PORT=25$$,TIMEOUT=600,PROCTIMEOUT=3600
> is/SMTP/virt_host_<*> = *:25$$ 注：<*>代表是第几个，数字表示，最多10 ，需要重启服务器
3、 SICF激活服务
4、 SCOT配置邮箱节点
此邮箱为发送者邮箱，在项目中申请一个专用邮箱
5、 设置发送作业：
6、SBWP发送邮件测试
发送之后回到SCOT中：
7、SPST可以查看队列
** 代码示例： ** _ _
*&---------------------------------------------------------------------**& Report YTEST008*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT ytest008.DATA:ls_document_data TYPE sodocchgi1, "邮件属性 lt_packing_list TYPE TABLE OF sopcklsti1, ls_packing_list TYPE sopcklsti1, lt_contents_bin TYPE TABLE OF solisti1, lt_contents_txt TYPE TABLE OF solisti1, lt_receivers TYPE TABLE OF somlreci1, ls_receivers TYPE somlreci1. DATA lv_lines TYPE i.DATA:lv_buffer TYPE xstring, lv_output_length TYPE i.DATA lt_binary_tab TYPE TABLE OF x255. *将附件数据转化成二进制CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' EXPORTING buffer = lv_buffer IMPORTING output_length = lv_output_length TABLES binary_tab = lt_binary_tab. *邮件正文APPEND '一、此邮件为SAP专用账户发送请勿直接回复' TO lt_contents_txt.APPEND '二、检验批号：XXXXX,检验项目：A(0~10),B(0.1%~0.3%),C(0.01~0.03)' TO lt_contents_txt.APPEND '三、合格数量：100' TO lt_contents_txt.APPEND '四、不合格数量：1' TO lt_contents_txt.DESCRIBE TABLE lt_contents_txt LINES lv_lines. * 邮件属性ls_document_data-obj_langu = sy-langu.ls_document_data-obj_name = 'Email'.ls_document_data-expiry_dat = sy-datum + 10.ls_document_data-obj_descr = '检验结果通知'."主题ls_document_data-sensitivty = 'F'.ls_document_data-doc_size = lv_lines * 255 + lv_output_length. "邮件大小 * 邮件内容CLEAR ls_packing_list-transf_bin.ls_packing_list-head_start = 1.ls_packing_list-head_num = 0.ls_packing_list-body_start = 1.ls_packing_list-body_num = lv_lines.ls_packing_list-doc_type = 'RAW'.APPEND ls_packing_list TO lt_packing_list. * 邮件附件*ls_packing_list-transf_bin = abap_on.*ls_packing_list-head_start = 1.*ls_packing_list-head_num = 1.*ls_packing_list-body_start = 1.*CLEAR lv_lines.*DESCRIBE TABLE lt_binary_tab LINES lv_lines.*ls_packing_list-doc_size = lv_output_length.*ls_packing_list-body_num = lv_lines.*ls_packing_list-doc_type = 'PDF'.*ls_packing_list-obj_name = 'PO'.*ls_packing_list-obj_descr = 'TEST.PDF'. "附件名称*APPEND ls_packing_list TO lt_packing_list. * 收件人邮箱ls_receivers-receiver = 'zhigang.duan@jgdt.com'.ls_receivers-rec_type = 'U'.APPEND ls_receivers TO lt_receivers. ls_receivers-receiver = 'anyu.shen@jgdt.com'.ls_receivers-rec_type = 'U'.APPEND ls_receivers TO lt_receivers. CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' EXPORTING document_data = ls_document_data put_in_outbox = ' ' commit_work = abap_on TABLES packing_list = lt_packing_list "邮件内容* contents_bin = lt_contents_bin "附件内容（二进制） contents_txt = lt_contents_txt "邮件内容（直接填入） receivers = lt_receivers "收件箱地址 EXCEPTIONS too_many_receivers = 1 document_not_sent = 2 document_type_not_exist = 3 operation_no_authorization = 4 parameter_error = 5 x_error = 6 enqueue_error = 7 OTHERS = 8.
来源说明：本文内容由「SAP邮件发送配置及开发.md」整理生成，仅用于内部技术分享与学习交流。