jmail发送邮件失败，请帮忙找不原因

youlongzaitian 2007-05-25 02:44:50

<%
dim JMail, msg
On error resume next
Set JMail=Server.CreateObject("JMail.Message") '建立发送邮件的对象
if err then
Response.Write("没有安装JMail组件")
err.clear
end if

JMail.silent = true
JMail.logging = true
JMail.Charset = "GB2312"
JMail.ContentType = "text/html"

JMail.From = "sunliang1912@163.com"

JMail.MailServerUserName = "sunliang1912" '这里是登陆邮箱的帐号,例如 test@126.com
JMail.MailServerPassword = "sunliang" '这里是登陆邮箱的密码

JMail.AddRecipient "youlongzaitian@yahoo.com.cn"

JMail.Subject = "邮件正文"
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body><font color=red>邮件正文</font><br><font color=green>邮件正文</font><br><b>邮件正文</b></body></html>"
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。邮件正文,邮件正文,邮件正文"
JMail.Priority = 2
msg=JMail.Send("smtp.163.com") '这里是邮件服务器的SMTP地址,例如smtp.126.com
Response.Write(msg)
if(msg="False") then
Response.Write("shibai")
else
Response.Write("chenggong")
end if
JMail.Close()
set JMail=nothing

%>

...全文