asp邮件发送代码

发布时间：2013-09-19 11:33:46来源：阅读（1113）

asp邮件发送代码，经测试，163的邮箱可以发送！其它的邮箱还未做发送邮件测试呢。呵呵！
邮件组件为 W3 jmail 4.3，侠客站长站推荐大家测试一下吧！

<%
Set msg=Server.CreateObject("Jmail.Message")
msg.silent=true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "yonghu" '163邮箱用户名
msg.MailServerPassword = "126456"      '163邮箱的用户密码
msg.From = "yonghu@163.com"      '邮件接收人地址
msg.FromName = "名称" '发件人名称
msg.AddRecipient "shouxin@qq.com" '接收人信箱
msg.Subject = "注册信息(自动发信,请勿回复)" '邮件标题
msg.HtmlBody = "您已在本站注册成功，谢谢您的支持"      '邮件内容
msg.Priority = 1 '优先级最高 1最快 3默认 5最慢
pan = msg.Send ("smtp.163.com") '邮件服务器地址
set msg = Nothing


'判断成功失败
If pan = true Then
Response.Write "邮件发送成功"
else
response.write "邮件发送失败"
end if
%>