请教jmail 发信问题 “jmail.Message 错误 '8000ffff' ”
osdk 2004-11-30 04:13:48 jmail.Message 错误 '8000ffff'
The message was undeliverable. All servers failed to receive the message
代码如下:
Function SendMail(MailtoAddress,Subject,MailBody,FromName,MailFrom,Priority)
'Function SendMail()
'on error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
if err then
SendMail= "<br><li>没有安装JMail组件</li>"
err.clear
exit Function
end if
JMail.Charset = "gb2312"
JMail.ContentType = "text/html" '邮件正文格式
JMail.ISOEncodeHeaders = False
JMail.From = MailFrom
JMail.FromName = FromName
JMail.Subject = Subject
JMail.MailServerUserName = "osdk"
JMail.MailServerPassword = "1234"
JMail.Priority = Priority
JMail.AddRecipient(MailtoAddress)
JMail.HTMLBody=MailBody '邮件正文(HTML格式)
JMail.Body=MailBody '邮件正文(纯文本格式)
'JMail.Body = "我们的邮件采用了HTML格式,但是您的邮件查看软件可能不支持。"
JMail.Send("osdk:1234@smtp.163.com")
SendMail =JMail.ErrorMessage
JMail.Close()
Set JMail = Nothing
End Function
各位大哥帮帮忙啊