通过RPGLE在IBM i上发送电子邮件

该示例展示了如何使用RPGLE在IBM i上发送电子邮件。邮件内容可以包含附件。

/copy qsysinc/qrpglesrc,pbEmail

dcl-s fileName char(128);
dcl-s emailAddress char(128);

fileName = '/home/myfile.txt';    // 附件的文件路径
emailAddress = 'someone@example.com';    // 收件人电子邮件地址

pbEmailApi_t emailApi;

pbEmailApi_Init(emailApi);

// 设置邮件发送信息
emailApi.fromAddr = 'myemail@example.com';
emailApi.toAddr = emailAddress;
emailApi.subject = '这是电子邮件的主题';
emailApi.bodyFmt = 'HTML';

// 添加附件
pbEmailApi_AddAttach(emailApi: fileName);

// 发送邮件
pbEmailApi_Send(emailApi);

pbEmailApi_CleanUp(emailApi);

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