<%

'使用時候直接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("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")
?'這里用來調用提交表單的值，然后可以在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 &"<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
end function
%>
?

轉載于:https://www.cnblogs.com/deve/archive/2006/10/15/2242941.html

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。