在ASP编程中，遇到邮件发送的程序很多了，今天我将其做一整理。

　　利用Jmail组件群发邮件，同时包含多个附件的发送的实现：

　　Set jmail=Server.CreateObject("jmail.message")

　　fare="3.gif,00.jpg,1.gif" //多个附件列表

　　jmail.Silent = true

　　jmail.Charset = "gb2312"

　　'JMail.ContentType = "text/html"

　　jmail.From = ****** '邮件发送者的邮件地址

　　jmail.MailServerUserName = ****** '登录邮件服务器所需的用户名

　　jmail.MailServerPassWord = "********" '登录邮件服务器所需的密码

　　jmail.FromName = "Haha" '发件人名称

　　jmail.Subject = "主题"

　　jmail.AddRecipient "**接收邮件地址**"

　　JMail.AddRecipient("**接收邮件地址**") '//此句：若需要都多个邮件接收人，可将此句写上N条！

　　jmail.Body = "内容"

　　'''''群发附件

　　fare=split(fare,",")

　　for i=0 to ubound(fare)

　　jmail.AddAttachment server.MapPath(fare(i)) '要发送的附件地址

　　next

　　jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值

　　jmail.Send("mail.139.com") '执行邮件发送（通过邮件服务器地址）

　　jmail.Close

　　set jmail = nothing

　　这样就实现了邮件的群发（包含多个附件）的功能！

该文章在 2011/3/2 23:35:41 编辑过