请大家帮我看看Jmail程序,邮箱收不到邮件(加上smtp验证用户名密码也收不到。)

来源:百度知道 编辑:UC知道 时间:2024/06/07 04:37:56
请大家帮我看看,为什么我的邮箱abc@163.com收不到邮件?(加上smtp验证用户名密码我也试过了,也收不到。)

<%
'首先使用Request方法取得表单数据,取得的数据放在等号左侧的变量中;
danwei= Request.Form ("danwei")
email= Request.Form ("email")
%>

<%
Set Jmail=server.createobject("Jmail.Message")
SendMail =JMail.ErrorMessage
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312"
Jmail.From=email ' 发件人的信箱
JMail.Subject = 杂志订单"' 邮件标题
JMail.AddRecipient "abc@163.com" ' 设置邮件的收件人信箱;
jmail.ContentType = "text/html" '邮件的格式为HTML格式

'下面就是填表在内容区填写的内容,&是连接符,vbcrlf表示换行回车。

mess = "---------------杂志订单开始-------------------" & vbcrlf
mess = mess & "单位/个人:" & danwei & vbcrlf
mess = mess & "email:" & email & vbcrlf

mess = mess & "---------------杂志订单结束-------------------"

JMail.Body

<%
'参数说明
'Subject : 邮件标题
'MailAddress : 发件服务器的地址,如smtp.163.com
'Email : 收件人邮件地址
'Sender : 发件人姓名
'Content : 邮件内容
'Fromer : 发件人的邮件地址

Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = mailaddress '发送邮件的服务器
jmail.AddRecipient Email '邮件的收件人
jmail.SenderName = sender '邮件发送者的姓名
jmail.Sender = fromer '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Subject = subject '邮件的标题