双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒,抽取你的专属好礼

— 惊喜奖品抢先看 —

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

youlongzaitian youlongzaitian 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
<%
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

%>
...全文
评论 1
收藏 已收藏
分享
返回顶部
youlongzaitian
ASP 28,401 成员 356,938 内容