2019.11.29 SAP SMTP郵件服務器配置 發送端 QQ郵箱
今天群裏的小夥伴問了如何配置郵件的問題，隨自己在sap裏面配置了一個
1. RZ10配置參數
a) 参数配置前，先导入激活版本
执行完毕后返回
b) 输入参数文件DEFAULT，点击修改
c) 查看是否存在下面2条参数配置
is/SMTP/virt_host_0 值： *:25;
icm/server_port_1 值： PROT=SMTP,PORT=25,TIMEOUT=60,PROCTIMEOUT=120
没有则需要创建。
注意：若是端口25被占用，可以使用其他端口。
端口配置参数为icm/server_port_*。
如果需要在多个client中收发邮件，则需要在每个client中配置虚拟邮件主机参数：
is/SMTP/virt_host_*。最多可以添加10个。
icm/server_port_<*> = PROT=SMTP,PORT=<port>
is/SMTP/virt_host_<*> = <host>:<port>,<port>,...;
如下图为配置完得参数：
注意配置完之後要點擊 左上方的複製按鈕，
返回後點擊保存並激活
2. 端口检查
事务码：SMICM
a) 点击服务按钮
没有SMTP的服务，创建一个,若端口不是25000可以删除并重新创建一个
此时可以看到SMTP服务已经激活
3. 用户配置
我们需要创建一个邮件服务mail server 用户，profile 赋值权限S_A.SCON,并给所使用SAP SMTP功能的用户分配一个邮箱地址
a) TCODE:SU01 用户类型改为系统
我们需要创建一个邮件服务mail server 用户，profile 赋值权限S_A.SCON,并给所使用SAP SMTP功能的用户分配一个邮箱地址
b) 参数文件添加 S_A.SCON
c) 给所有用的邮件功能的用户分配邮箱地址(不是上面的mail server)
4. SICF配置
修改HOST配置
直接进入点执行，右击并激活SMTP主机
5. SAPconnect服务管理配置(SCOT)
1. 使用向导创建节
输入节点和名称
指定主机名和端口
点击 设置：
下面輸入的密碼不一定是qq密碼，若是qq郵箱啓用了安全
指定地址区域
指定文档输出格式
失败的发送间隔
配置缺省域
2. 配置发送作业
10分钟发送一次。
6. 测试
TCODE SBWP 进入工作台点击新邮件
输入标题，内容，收件人，点击发送邮件
然后去SOST中
状态为已发送，qq邮箱中有收到邮件
至此，邮件服务器已经配置完毕
7. 其他功能
sost ： 所有待发送的邮件清单，也可以监视邮件发送状态，也可以在此页面发送邮件！
sbwp：发送邮件功能
so01 ：邮件/消息
8. 用ABAP发送邮件代码
1 REPORT ztest_jxzhu_mail. 2 3 4 */.. Internal Table Declaration 5 DATA: li_otf TYPE TABLE OF itcoo, 6 li_pdf_tab TYPE TABLE OF tline, 7 li_content_txt TYPE soli_tab, 8 li_content_hex TYPE solix_tab, 9 li_objhead TYPE soli_tab, 10 gi_main_text TYPE bcsy_text. 11 12 13 14 */.. Work Area Declarations 15 DATA: lw_control_parameters TYPE ssfctrlop, 16 lw_output_options TYPE ssfcompop, 17 lw_ssfcrescl TYPE ssfcrescl, 18 lw_content TYPE soli, 19 lw_otf TYPE itcoo. 20 */..Variables Decalrations 21 22 DATA: gv_fname TYPE rs38l_fnam, "fucntion MODULE 23 gv_subject TYPE so_obj_des, 24 gv_title TYPE so_obj_des, 25 lv_bin_filesize TYPE i, 26 lv_transfer_bin TYPE sx_boolean, 27 lv_len TYPE so_obj_len, 28 lv_email TYPE ad_smtpadr, 29 lv_sent_to_all TYPE os_boolean. 30 */.. Class Declarations 31 32 DATA: go_send_request TYPE REF TO cl_bcs, 33 go_document TYPE REF TO cl_document_bcs, 34 lo_recipient TYPE REF TO if_recipient_bcs, 35 lo_bcs_exception TYPE REF TO cx_bcs. 36 37 38 39 CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' 40 EXPORTING 41 formname = 'ZF2_TEST' 42 IMPORTING 43 fm_name = gv_fname 44 EXCEPTIONS 45 no_form = 1 46 no_function_module = 2 47 OTHERS = 3. 48 49 IF sy-subrc <> 0. 50 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 51 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 52 ENDIF. 53 54 55 56 57 */.. Get OTF data 58 lw_control_parameters-getotf = 'X'. 59 */.. To supress preview 60 lw_control_parameters-no_dialog = 'X'. 61 lw_control_parameters-langu = sy-langu. 62 lw_output_options-tdnoprev = 'X'. 63 64 */.. To add multiple attachments write below code till Add attachment method in LOOP and ENDLOOP. 65 66 */.. Call Smart Form FM 67 CALL FUNCTION gv_fname 68 EXPORTING 69 control_parameters = lw_control_parameters 70 output_options = lw_output_options 71 user_settings = 'X' 72 IMPORTING 73 job_output_info = lw_ssfcrescl 74 EXCEPTIONS 75 formatting_error = 1 76 internal_error = 2 77 send_error = 3 78 user_canceled = 4 79 OTHERS = 5. 80 IF sy-subrc <> 0. 81 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 82 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 83 ENDIF. 84 85 86 87 88 */.. Get OTF data to convert to PDF 89 REFRESH li_otf[]. 90 li_otf[] = lw_ssfcrescl-otfdata[]. 91 CLEAR : lv_bin_filesize. 92 93 94 */.. Convert OTF data to binary 95 CALL FUNCTION 'CONVERT_OTF' 96 EXPORTING 97 format = 'PDF' 98 IMPORTING 99 bin_filesize = lv_bin_filesize 100 TABLES 101 otf = li_otf 102 lines = li_pdf_tab 103 EXCEPTIONS 104 err_max_linewidth = 1 105 err_format = 2 106 err_conv_not_possible = 3 107 err_bad_otf = 4 108 OTHERS = 5. 109 IF sy-subrc <> 0. 110 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 111 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 112 ENDIF. 113 REFRESH li_content_txt. 114 115 116 LOOP AT li_otf INTO lw_otf. 117 CLEAR lw_content. 118 CONCATENATE lw_otf-tdprintcom lw_otf-tdprintpar 119 INTO lw_content. 120 APPEND lw_content TO li_content_txt. 121 122 ENDLOOP. 123 REFRESH : li_content_hex, 124 li_objhead. 125 CLEAR : lv_transfer_bin, 126 lv_len. 127 */.. FM to convert OTF to PDF 128 CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF' 129 EXPORTING 130 format_src = 'OTF' 131 format_dst = 'PDF' 132 CHANGING 133 transfer_bin = lv_transfer_bin 134 content_txt = li_content_txt 135 content_bin = li_content_hex 136 objhead = li_objhead 137 len = lv_len 138 EXCEPTIONS 139 err_conv_failed = 1 140 OTHERS = 2. 141 IF sy-subrc <> 0. 142 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 143 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 144 ENDIF. 145 146 TRY. 147 */.. Create persistent send request 148 go_send_request = cl_bcs=>create_persistent( ). 149 go_document = cl_document_bcs=>create_document( 150 i_type = 'RAW' 151 i_text = gi_main_text 152 i_subject = gv_subject ). 153 154 IF NOT li_content_hex IS INITIAL. 155 go_document->add_attachment( 156 i_attachment_type = 'PDF' 157 i_attachment_subject = gv_title 158 i_attachment_size = lv_len 159 i_att_content_hex = li_content_hex ). 160 ENDIF. 161 */.. Add document object to send request 162 go_send_request->set_document( go_document ). 163 164 lv_email = '123456789@qq.com'. 165 166 */.. Add recipient (e-mail address) 167 */.. create recipient object 168 lo_recipient = cl_cam_address_bcs=>create_internet_address( 169 lv_email ). 170 171 */.. Add recipient object to send request 172 go_send_request->add_recipient( lo_recipient ). 173 174 */.. Send document 175 lv_sent_to_all = go_send_request->send( i_with_error_screen = 176 abap_true ). 177 178 COMMIT WORK. 179 180 SUBMIT rsconn01 WITH mode = 'INT' 181 WITH output = '' 182 AND RETURN. 183 184 IF lv_sent_to_all IS INITIAL. 185 "error message 186 ELSE. 187 "success message 188 ENDIF. 189 190 */.. Exception handling 191 CATCH cx_bcs INTO lo_bcs_exception. 192 "exception handling 193 ENDTRY.
- TAB 熱愛技術 享受生活
