<%
dim jmail,emailcontant
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312"
JMail.From = "e@vip.qq.com" '发送者邮箱地址
JMail.FromName = "易易网" '发送者姓名
JMail.Subject = "欢迎注册易易网yaoee.com生意会员" '邮件标题
JMail.MailServerUserName = "@vip.qq.COM" '用户名和你邮件帐号是对应的
JMail.MailServerPassword = "" '这里是你帐的密码
'设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority =5
'指定收件人地址，可以是多个
JMail.AddRecipient(""&email&"")
'邮件正文，这是文本部分的内容
emailcontant="欢迎注册易易网www.yaoee.com会员,你的会员号:<font color=red>"&username&"</font><br>易易网提醒：<a href=http://www.yaoee.com/html/news/3938.htm><font color=red>升级VIP会员可以提供更多优惠</font></a><br>易易网专业提供店面、写字楼、厂房、公司工厂转让等生意转让信息<br>客服QQ：13220016，TEL：0592-8616773" '主要是这里，是你发往客户端显示的东西
JMail.HTMLBody = "<html><body><br>"&emailcontant
JMail.appendHTML "<br><br></body></html>"
'如果对方信箱不支持HTML格式邮件，我们仍需要给他一个友善的提示
JMail.Body = "对不起，你的邮箱不支持HTML格式，可能看到到一些多余的代码，请见谅！."
JMail.appendText " "
JMail.Send("smtp.qq.com")
JMail.Close()
Set JMail = Nothing
邮件发送失败！错误原因：The message was undeliverable. All servers failed to receive the message
原因：1、发送邮件的帐号密码错误；2、发送邮件不支持SMTP等；（QQ，163邮箱一般都支持）；3、防火墙杀毒软件要设置允许w3wp.exe 进程。（一般都支持）
增加组件和邮件发送错误的判断
SetJMail=Server.CreateObject("JMail.Message")
iferrthen
err.clear
Response.Write"组件检测失败。"
JMail.close()
SetJMail=nothing
exitfunction
endif
在编码前面加:
JMail.Logging=True
JMail.Silent=true'忽略错误
标签: 代码
