Jmail的使用,可以發送給多人

<%

'使用時候直接CALL就可以了 

function sendmail

'==================================================

' 參數設定開始，請修改相應參數

smtpserver = "smtp.163.com" '發送郵件所使用的SMTP伺服器，例如smtp.163.com，請修改

smtpuser = "" '與SMTP伺服器對應的郵箱使用者名，請修改

smtppwd = "" '與SMTP伺服器對應的郵箱密碼，請修改

'如果SMTP伺服器需要發信認證，則設定登入SMTP伺服器的使用者名和密碼

'與相應SMTP伺服器對應的郵件位址

'注意：很多SMTP伺服器除了要驗證使用者名和密碼外，還要驗證發件人地

'址，比如163.com的SMTP伺服器在檢查發信人郵件位址是不是以163.com

'結尾，否則不予發送，是以，使用相應的信箱做為發信人信箱是必要的

'smtpemail = ""  'SMTP伺服器發信郵箱，請修改

' 參數設定結束

aryEmail = split("​​[email protected];[email protected]​​", ";")'可以填寫多個郵箱,用分号隔開

username = request("name")

tel = request("tel")

kehumail = request("email")

feedtitle = request("title")

feedcontent =request("content")

senddata = now()

username = Request.form("Somane")

 '這裡用來調用送出表單的值，然後可以在mail的body中傳回這些值

content = trim(Request("content"))

myemail=myemail &"""" '用來接收郵件的郵箱，請修改,可以與SMTP伺服器發信郵箱不同

mailbody=mailbody &"<style>A:visited {TEXT-DECORATION: none}"

mailbody=mailbody &"A:active  {TEXT-DECORATION: none}"

mailbody=mailbody &"A:hover   {TEXT-DECORATION: underline}"

mailbody=mailbody &"A:link   {text-decoration: none;}"

mailbody=mailbody &"BODY   {FONT-FAMILY: arial; FONT-SIZE: 9pt;}"

mailbody=mailbody &"TD   {FONT-FAMILY: arial; FONT-SIZE: 9pt}</style>"

mailbody=mailbody &"<TABLE border=0 width='800' align=center><TBODY><TR><TD>"

mailbody=mailbody &"<br/><br/>"

mailbody=mailbody &"<br/>"

mailbody=mailbody &"你收到以下這個回報表單<br/><br/>"

mailbody=mailbody &"回報時間為 "&senddata&"<br/>"

mailbody=mailbody &"回報人為:"&username &"<br/>"

mailbody=mailbody &"電話:"&tel&"<br/>"

mailbody=mailbody &"傳真:"&fax&"<br/>"

mailbody=mailbody &"Email："&kehumail&"<br/>"

mailbody=mailbody &"<div>"&content&"</div>"

mailbody=mailbody &"</TD></TR></TBODY></TABLE>"

set jmail= server.CreateObject ("jmail.message")

jmail.Silent = true

jmail.Charset = "gb2312"

JMail.ContentType = "text/html"

jmail.From = "" '發件人email,與SMTP伺服器對應的郵箱使用者名，請修改

jmail.FromName =""同上

jmail.ReplyTo =email

jmail.Subject ="客戶回報,詳細"'郵件主題

for i=0 to UBound(aryEmail)

  JMail.AddRecipient Trim(aryEmail(i))

next '給多人發送就是這裡的FOR循環.

jmail.Body = mailbody

jmail.MailServerUserName = smtpuser

jmail.MailServerPassWord = smtppwd

isgo = jmail.Send(smtpserver)

jmail.Close

set jmail = nothing

if err.number<>0 then

 response.write "send failed"

else

 response.write "send succeed."

end if