ASPeMail邮件组件,附件、内嵌图片，消息队列让邮件发送更丝滑

ASPeMail邮件组件,附件、内嵌图片，消息队列让邮件发送更丝滑

aspemail 是用外部smtp服务器发送电子邮件消息的活动服务组件。它是一个com组件，原来ASP的开发用得非常多。

aspemail  支持多收件人，多人抄送, 多人密送,多附件,可以使用html格式, 还可插入图片, 和非us ascii字符集设置. 

aspemail 是一个免费的组件，扩展功能收费。

除了内嵌图形功能、quoted-printable编码支持功能、消息队列功能需要另外的购买许可。

还支持SSL发送邮件。邮件支持完全Unicode。具有高级日志记录。

值得一提的是高可用的邮件消息队列，对于互联网应用来说，不卡有多么重要。

首先是安装ASPEMAIL组件

http://www.persits.com/aspemail.exe

VFP发送邮件代码

*初始化aspEmail组件objMail = CreateObject("Persits.MailSender")*设定SMTP模式为SSL，端口号为465objMail.SSL=.T.objMail.Port=465
*设置邮件编码格式为UTF-8，MIME编码为Quoted-Prontable，必须有，否则中文乱码objMail.CharSet="UTF-8"objMail.ContentTransferEncoding="Quoted-Prontable"*设定邮箱的smtp服务器地址，如smtp.abc.com，使用时要替换为自己的地址objMail.Host = "smtp.abc.com"*设定发送者的邮箱地址objMail.From = "[email protected]"*设定发送者显示的名称，如不设置，则显示发送者邮箱地址，要编码为utf-8，否则中文乱码objMail.FromName = objMail.EncodeHeader("加菲猫","utf-8")*添加接收者的地址objMail.AddAddress ("[email protected]")*邮件抄送地址，可选objMail.AddCC ("[email protected]")*邮件密送地址，可选objMail.AddBcc ("[email protected]")*添加回复地址，可选objMail.AddReplyTo ("[email protected]")*设置邮件标题，要编码为utf-8，否则中文乱码objMail.Subject = objMail.EncodeHeader("加菲猫的VFP有更新啦","utf-8")*邮件内容为html，根据实际情况设置，默认.f.objMail.IsHTML = .t.*邮件内容objMail.Body = [知之为知之不知为不知]*smtp身份认证信息objMail.Username="[email protected]"objMail.Password="Pinjia123*"*发送邮件objMail.Send()附件支持Mail = Createobject("Persits.MailSender")*设置邮件编码格式为UTF-8，MIME编码为Quoted-Prontable，必须有，否则中文乱码Mail.CharSet="UTF-8"Mail.ContentTransferEncoding="Quoted-Prontable"*smtp身份认证信息Mail.Username="[email protected]"Mail.Password="Pinj*"Mail.Host = "smtp.abc.com"Mail.From = "[email protected]"Mail.FromName = Mail.EncodeHeader("加菲猫的VFP","utf-8")Mail.AddAddress("[email protected]")* 添加附件，注意路径（BS注意用getwwwrootpath定位网站根目录）　Mail.AddAttachment("WebApi文档编写说明.md") * 邮件主题Mail.Subject = Mail.EncodeHeader("WebApi文档编写说明","utf-8")* 邮件正文Mail.Body = "像风一样自由"Mail.Send()

支持内存文件，BLOB字段

Mail.AddAttachmentMem("名称",BLOB字段)

邮件内嵌图片

*-- cid就是占位符TEXT TO lcHtml NOSHOW TEXTMERGE BODY {COLOR: #427d64; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-LEFT: 8em}VFP混合一切欢迎关注加菲猫的VFP公众号
ENDTEXT Mail = Createobject("Persits.MailSender")*--添加内嵌图片Mail.AddEmbeddedImage("1.jpg", "My-Background-Image")Mail.AddEmbeddedImage("3.jpg", "Persits-Software-Logo")*设置邮件编码格式为UTF-8，MIME编码为Quoted-Prontable，必须有，否则中文乱码Mail.CharSet="UTF-8"Mail.ContentTransferEncoding="Quoted-Prontable"*smtp身份认证信息Mail.Username="[email protected]"Mail.Password="abcc*"Mail.Host = "smtp.abc.com"Mail.From = "[email protected]"Mail.FromName = Mail.EncodeHeader("加菲猫的VFP","utf-8")Mail.AddAddress("[email protected]")* 邮件主题Mail.Subject = Mail.EncodeHeader("加菲猫的VFP最新消息","utf-8")* 邮件正文，也可以从文件添加 AppendBodyFromFile Mail.Body = lcHtml  Mail.Send() 

邮件测试发送，完美