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

%>
...全文
247 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
youlongzaitian 2007-05-25
  • 打赏
  • 举报
回复
JMAIL已经安装了

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧