<%

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

function sendmail
'==================================================
' 參數(shù)設(shè)置開始，請修改相應(yīng)參數(shù)
smtpserver = "smtp.163.com" '發(fā)送郵件所使用的SMTP服務(wù)器，例如smtp.163.com，請修改
smtpuser = "" '與SMTP服務(wù)器對應(yīng)的郵箱用戶名，請修改
smtppwd = "" '與SMTP服務(wù)器對應(yīng)的郵箱密碼，請修改
'如果SMTP服務(wù)器需要發(fā)信認(rèn)證，則設(shè)置登錄SMTP服務(wù)器的用戶名和密碼
'與相應(yīng)SMTP服務(wù)器對應(yīng)的郵件地址
'注意：很多SMTP服務(wù)器除了要驗證用戶名和密碼外，還要驗證發(fā)件人地
'址，比如163.com的SMTP服務(wù)器在檢查發(fā)信人郵件地址是不是以163.com
'結(jié)尾，否則不予發(fā)送，因此，使用相應(yīng)的信箱做為發(fā)信人信箱是必要的
'smtpemail = ""? 'SMTP服務(wù)器發(fā)信郵箱，請修改
' 參數(shù)設(shè)置結(jié)束
'==================================================

aryEmail = split("123@123.com;345@345.com", ";")'可以填寫多個郵箱,用分號隔開
username = request("name")
tel = request("tel")
kehumail = request("email")
feedtitle = request("title")
feedcontent =request("content")
senddata = now()
username = Request.form("Somane")
?'這里用來調(diào)用提交表單的值，然后可以在mail的body中返回這些值
content = trim(Request("content"))

myemail=myemail &"""" '用來接收郵件的郵箱，請修改,可以與SMTP服務(wù)器發(fā)信郵箱不同
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 &"<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 = "" '發(fā)件人email,與SMTP服務(wù)器對應(yīng)的郵箱用戶名，請修改
jmail.FromName =""同上
jmail.ReplyTo =email
jmail.Subject ="客戶反饋,詳細(xì)"'郵件主題
for i=0 to UBound(aryEmail)
? JMail.AddRecipient Trim(aryEmail(i))
next '給多人發(fā)送就是這里的FOR循環(huán).
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
end function
%>
?

轉(zhuǎn)載于:https://www.cnblogs.com/deve/archive/2006/10/15/2242941.html

總結(jié)

以上是生活随笔為你收集整理的Jmail的使用,可以发送给多人的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。