The message was undeliverable. All servers failed to receive the message
dim mail
set mail=CreateObject("jmail.Message")
mail.Charset ="gb2312"
mail.ContentType = "text/html"
mail.From = "mts@0e2.net" '发件人真实邮件地址
mail.FromName = "密陀僧" '发件人名称
mail.AddRecipient "admin@0e2.net" '收件人地址
mail.MailServerUserName = "mts@0e2.net" '发件人帐号
mail.MailServerPassWord = "123456" '密码
mail.subject="test"
mail.body= "test"
On Error Resume Next
mail.Send("mail.0e2.net")
mail.close()
set mail=nothing
err.clear
此外,出现上述错误还可能有如下可能性
1.防火墙阻止了网络通讯或网络故障
2.杀毒软件限制
3.jmail组件权限不够
4.邮件服务器故障