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

最新推荐文章于 2024-10-06 12:10:31 发布

加菲猫的VFP

最新推荐文章于 2024-10-06 12:10:31 发布

阅读量2.7k

点赞数 1

分类专栏： VFP 文章标签：电子商务

本文链接：https://blog.csdn.net/fitche/article/details/120869201

版权

VFP 专栏收录该内容

143 篇文章

订阅专栏

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 = "system@abc.com"*设定发送者显示的名称，如不设置，则显示发送者邮箱地址，要编码为utf-8，否则中文乱码objMail.FromName = objMail.EncodeHeader("加菲猫","utf-8")*添加接收者的地址objMail.AddAddress ("zty@abc.com")*邮件抄送地址，可选objMail.AddCC ("zty@abc.com")*邮件密送地址，可选objMail.AddBcc ("zty@abc.com")*添加回复地址，可选objMail.AddReplyTo ("zty@abc.com")*设置邮件标题，要编码为utf-8，否则中文乱码objMail.Subject = objMail.EncodeHeader("加菲猫的VFP有更新啦","utf-8")*邮件内容为html，根据实际情况设置，默认.f.objMail.IsHTML = .t.*邮件内容objMail.Body = [<div style=""color:red;"">知之为知之不知为不知</div>]*smtp身份认证信息objMail.Username="system@abc.com"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="system@abc.com"Mail.Password="Pinj*"Mail.Host = "smtp.abc.com"Mail.From = "system@abc.com"Mail.FromName = Mail.EncodeHeader("加菲猫的VFP","utf-8")Mail.AddAddress("zty@abc.com")* 添加附件，注意路径（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 <HTML><HEAD><STYLE>BODY {COLOR: #427d64; FONT-FAMILY: "Arial"; FONT-SIZE: 12pt; MARGIN-LEFT: 8em}</STYLE></HEAD><BODY BACKGROUND="cid:My-Background-Image"><CENTER><H2>VFP混合一切</H2><B>欢迎关注加菲猫的VFP公众号</B><P><A HREF="http://www.sn58.cn"><IMG SRC="cid:Persits-Software-Logo" BORDER=0></A></CENTER></BODY></HTML>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="system@abc.com"Mail.Password="abcc*"Mail.Host = "smtp.abc.com"Mail.From = "system@abc.com"Mail.FromName = Mail.EncodeHeader("加菲猫的VFP","utf-8")Mail.AddAddress("zty@abc.com")* 邮件主题Mail.Subject = Mail.EncodeHeader("加菲猫的VFP最新消息","utf-8")* 邮件正文，也可以从文件添加 AppendBodyFromFile Mail.Body = lcHtml  Mail.Send()