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

%>
...全文
155 点赞 收藏 1
写回复
1 条回复
youlongzaitian 2007年05月25日
JMAIL已经安装了
回复 点赞
发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告