ASP用Jmail组件发信，smtp验证版

时间：2007-03-16 19:21:54浏览：73489 本站原创



<%
'发送到邮箱
dim jmail,msgto,msgsubj,msgbody
msgto=\"kenriydh@163.com\"
BCCEmail=\"66228045@qq.com\"
msgsubj=\"梁平信息网[取回密码]！\"
msgbody=\"
亲爱的用户：<font color=#FF0000>xxx</font>，您好！

您在梁平信息的用户名为：xxxx
新密码为：xxxx

取回密码的时间：\"&now()&\"

\"
msgbody=msgbody&\"-----------------------------------------------\"&vbcrlf
msgbody=msgbody&\"
\"&vbcrlf
msgbody=msgbody&\"此邮件由梁平信息网系统发出，请勿直接回复！\"&vbcrlf
msgbody=msgbody&\"

\"&vbcrlf
msgbody=msgbody&\"如果您有任何疑问，请登录梁平信息网获取帮助：<a href=\"\"http://www.lp023.com\"\" target=\"\"_blank\"\">http://www.lp023.com</a>

\"&vbcrlf
msgbody=msgbody&\"梁平信息网版权所有(C) 2006-2007
\"&vbcrlf
Set jmail = Server.CreateObject(\"JMAIL.Message\") '建立发送邮件的对象
'jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE值？？？？？？？？
jmail.logging = true '启用邮件日志
jmail.Charset = \"GB2312\" '邮件的文字编码为国标
jmail.ContentType = \"text/html\" ' 邮件格式 普通为：text/plain  HTML为：text/html
jmail.AddRecipient(msgto) '邮件收件人的地址
jmail.AddRecipientBCC BCCEmail '密件收件人的地址 
'jmail.AddRecipientCC CCEmail '邮件抄送者的地址
jmail.From = \"lp023@163.com\" '发件人的E-MAIL地址
jmail.MailServerUserName = \"lp023\" '登录邮件服务器所需的用户名
jmail.MailServerPassword = \"123456\" '登录邮件服务器所需的密码
jmail.Subject = msgsubj '邮件的标题 
jmail.Body = msgbody '邮件的内容
jmail.Send(\"smtp.163.com\") '执行邮件发送（通过邮件服务器地址）'
jmail.Close() '关闭对象
%>

1 只要把这点代码复制过去，改下邮箱用户密码就可以了，注释得很详细的，可以看明白的

上一篇：求一个表中次最大值
下一篇：现在这些人太能忽悠了

发表评论

昵称：验证码：

关于博主

博主：BlueCode

职业：web程序

简介：2002年开始一直从事Web制作，网站运营，会PHP+MYSQL ASP+MSSQL，微信开发

Linux文章
PHP文章
随机文章

BlueCode的自留地

ASP用Jmail组件发信，smtp验证版

关于博主