关于Jmail

最新推荐文章于 2023-05-30 18:31:31 发布

wwwce

最新推荐文章于 2023-05-30 18:31:31 发布

阅读量1.1k

点赞数

文章标签： html email

本文链接：https://blog.csdn.net/wwwce/article/details/1562241

版权

realname=Trim(request.Form("realname"))
email=Trim(request.Form("email"))

On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"

' 发送者信息（可用变量方式赋值）
JMail.From = "wawa@163.com"
JMail.FromName = "SWU科技期刊编辑组"
JMail.Subject = "找回密码"

JMail.MailServerUserName = "wawa@163.com"
JMail.MailServerPassword = "********"

JMail.Priority = 5
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.AddRecipient email,realname

' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)

' 邮件主体（HTML(注意信件内链接附件的方式)）
HTML = "<html>"
HTML = HTML & "<title>找回密码</title>"
HTML = HTML & "<body>"
HTML = HTML & "亲爱的"& realname &"，您好： "
HTML = HTML & "系统已经自动将您登录密码改为 :swupub "
HTML = HTML & "请您登陆系统后尽快修改您的密码."
HTML = HTML & "请勿直接回复该邮件 ，谢谢合作。 "
HTML = HTML & "SWU科技期刊编辑部 "
HTML = HTML & "</body>"
HTML = HTML & "</html>"

JMail.HTMLBody = HTML
JMail.Body = "系统已经自动将您登录密码改为 : swupub .请您登陆系统后尽快修改您的密码."

JMail.Send("smtp.163.com")

JMail.Close() ' 关闭并清除对象
Set JMail = Nothing

if err.number<>0 then
response.write "发送邮件失败！请检查您的邮箱格式是否正确!"
else
response.write "您的用户名密码已经成功的发送到您的邮箱中，建议您收到后修改成您所熟悉的密码！"
end if