如何向IBM i (os/400)系统发送邮件

本示例代码展示了如何通过IBM i (os/400)系统发送邮件。实现方式是通过设置系统配置信息和使用SNDDST命令来发送邮件。

/* 设置邮件配置信息 */
EDTCFP CFGTCP
/* 设置SMTP服务器 */
CHGVAR VAR(&SMTPSRV) VALUE('smtp.example.com')
/* 设置邮件地址 */
ADDLIBLE SHARE
CALL ADDDIRE
CHGVAR VAR(&EMAILADDR) VALUE('user@example.com')
/* 设置邮件标题 */
CHGVAR VAR(&SUBJECT) VALUE('邮件标题')
/* 设置邮件正文 */
ADDLIBLE QTEMP
CRTTXTSTMF FILE(QTEMP/TXT1) TEXT('邮件正文') TEXTCCSID(1200)
/* 往SMTP服务器发送邮件 */
SNDDST TYPE(*DOC) TOINTNET((&EMAILADDR)) DOC(('QTEMP/TXT1' *TEXT)) SUBJECT((&SUBJECT)) SMTPRTEL(&SMTPSRV)

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com