<%
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312"
JMail.From = "zhenwangyi@126.com"
JMail.FromName = "zhenwangyi"
JMail.Subject = "你好"
JMail.MailServerUserName = "zhenwangyi"
JMail.MailServerPassword = "daringg"
JMail.AddRecipient("zhenwangyi@126.com")
JMail.Body = "我们"
JMail.Send("smtp.126.com")

JMail.Close()
Set JMail = Nothing

if err.number<>0 then
response.write "发送发送失败！"
else
response.write "邮件发送成功！"
end if
%>

错误类型：
jmail.Message (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message
/2.asp, 第 12 行