[QDAC]QSendmail 单元已经加入到 QDAC 项目家族

【注意】QSendMail 支持 XE 以后的版本,以前的版本由于默认携带的 Indy 版本问题,无法直接支持。要在 XE 以前的版本编译,请在其上手动安装新版的 Indy 后再编译。

QSendmail 单元用于实现跨平台的邮件发送,它基于 Indy 的 TIdSmtpServer 实现,并简化了相应的接口,原来没有加入 QDAC 家族,现应群里朋友的要求,加入到 QDAC 家族并命名为 QSendmail。

QSendmail 使用 SMTP 协议来发送邮件,支持加密和非加密协议。

1、TQMailSender

TQMailSender 是邮件发送的主类型,它提供两个构造函数:

  • 第一个构造函数要求提供服务器地址、用户名和密码;
  • 第二个构造函数不要求提供,默认使用全局变量来控制(DefaultSMTPServer/DefaultSMTPUserName/DefaultSMTPPassword)。当然也可以在创建后,通过修改相关成员变量的值来改变。

在创建后,请设置相关成员的值,然后调用 Send /SendBySSL 方法发送邮件。区别在于后者通过 SSL 加密发送。

2、附件

邮件的附件,通过 TQMailSender 实例的 Attachements 在发送前进行添加和维护。

3、添加 HTML 邮件内容图片

通过 EncodeMailImage 函数可以将图片直接内置邮件中,而不需要做为附件上传。EncodeMailImage 的结果直接拼接到 TQMailSender.Body 中即可,如:

EncodeMailImage 有三个重载,用于直接支持三个不同的来源,这里不再缀述。

QSendMail 的源码请直接 SVN 检出。

分享到:

2 条评论

沙发空缺中,还不快抢~