sendmail.asp

站完全依据SEO技术建立

<%
sub sendmail
mailfoot="------------------- "&citytitle&" -------------------" & vbcrlf &"本邮件为系统自动发送，请不要直接回复。"
mailserver=citymailsmtp
mailserverloginname=citymaillog
mailserverloginpass=citymailpass
mailuserdomain=citymaildns

'获取表单数据
fromname=cityname
frommail=citymaildns
toname=toname
tomail=tomail
mailtitle=mailtitle
mailbody=mailbody

dim JMail
set JMail=server.CreateObject("Jmail.message")
jmail.Charset = "gb2312"
jmail.ContentTransferEncoding = "base64"
jmail.Encoding = "base64"
jmail.ISOEncodeHeaders = false
JMail.ContentType = "text/html"
Jmail.Silent = true
Jmail.Priority = 5
Jmail.MailServerUserName = "xmcomwe" '(这里换成您的SMTP验证帐号)
Jmail.MailServerPassword = "808868" '' （这里填写您的SMTP认证密码）
Jmail.From = "[e-mail]" ' （发信人邮件地址）
Jmail.FromName = "国药网"
JMail.AddRecipient tomail,toname
JMail.Subject = mailtitle
jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot
Jmail.Send("smtp.163.com") ' (这里填写发件服务器，如mail.china-data.com，需要与SMTP验证信息对应)

Set Jmail=nothing


end sub%>