在ASP編程中，遇到郵件發(fā)送的程序很多了，今天我將其做一整理。

　　利用Jmail組件群發(fā)郵件，同時包含多個附件的發(fā)送的實現(xiàn)：

　　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 = ****** '郵件發(fā)送者的郵件地址

　　jmail.MailServerUserName = ****** '登錄郵件服務(wù)器所需的用戶名

　　jmail.MailServerPassWord = "********" '登錄郵件服務(wù)器所需的密碼

　　jmail.FromName = "Haha" '發(fā)件人名稱

　　jmail.Subject = "主題"

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

　　JMail.AddRecipient("**接收郵件地址**") '//此句：若需要都多個郵件接收人，可將此句寫上N條！

　　jmail.Body = "內(nèi)容"

　　'''''群發(fā)附件

　　fare=split(fare,",")

　　for i=0 to ubound(fare)

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

　　next

　　jmail.Priority = 1 '郵件的緊急程序，1 為最快，5 為最慢， 3 為默認值

　　jmail.Send("mail.139.com") '執(zhí)行郵件發(fā)送（通過郵件服務(wù)器地址）

　　jmail.Close

　　set jmail = nothing

　　這樣就實現(xiàn)了郵件的群發(fā)（包含多個附件）的功能！

該文章在 2011/3/2 23:35:41 編輯過