91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

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

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

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

　　fare="3.gif,00.jpg,1.gif" //多個(gè)附件列表

　　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("**接收郵件地址**") '//此句：若需要都多個(gè)郵件接收人，可將此句寫(xiě)上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 為默認(rèn)值

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

　　jmail.Close

　　set jmail = nothing

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

該文章在 2011/3/2 23:35:41 編輯過(guò)