查人人中国名人网天翼对讲管理账号获得:jmail邮件发送问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 17:00:18
on error resume next
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.ContentType="text/html"
JMail.Encoding = "base64"
JMail.Charset="gb2312"
jmail.Sender="liuhj000@163.com"
JMail.Subject = "标题"
JMail.Body ="sdfsfds"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.ServerAddress = "smtp.163.com"
JMail.Execute()
JMail.Close
response.Write(err.description)
%>
为什么发不出邮件，错误总是：
The message was undeliverable. All servers failed to receive the message
你的JMAIL信息没有填写全面，没有登陆的用户名和密码等登陆STMP服务器的信息，试试下面的方法：
<%
Call SendMail("zhangzhenyu-555@163.com","浩方网络影院会员","注册成功确认","浩方网络会员注册成功 用户名：密码：注册时间：","浩方网络影院站长","gs057788@163.com")
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "user" '登录用户名
JMail.MailServerPassWord = "********" '登录密码
JMail.MailDomain = "163.com" '域名（如果用"name@domain.com"这样的用户名登录时，请指明domain.com），可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '邮件等级，1为加急，3为普通，5为低级
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
%>