比如是:网络问题 或是错误的邮箱名!
加急啊~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~````
<% '本邮件发送程序由w3 jmail 4.3 做支持,如果有错误,请连续我(belin2000@163.com) function sendemail(sname,mailbody) 'sname 接受邮件的人的邮件地址(string) 'mailbody 邮件内容 (string(可以是html)) dim jmail err.clear on error resume next set jmail=server.CreateObject("jmail.message") if err.number<>0 then sendemail=0 : err.clear : exit function end if smtp="smtp.163.com" '邮件发送服务器 如stmtp.163.com
jmail.silent=true 'JMAIL不会抛出例外错误,返回的值为FALSE跟TRUE jmail.logging=true '启用日杂 jmail.charset="gb2312" '邮件编码 jmail.contenttype="text/html" '邮件格式(html) jmail.From ="邮箱" '发信人的邮箱 jmail.FromName ="发信人的名字" '发信人的名字 jmail.priority=1 jmail.AddRecipient sname '收信人的邮箱 jmail.subject="邮件主题" ' 邮件主题 jmail.body=mailbody '内容 jmail.mailserverusername= "用户名" '发信人邮件用户名 jmail.mailserverpassword="密码" '发信人邮件密码 jmail.send smtp sendemail=1 set jmail=nothing end function %> 测试成功
我写了一个让客户按提交把表单资料发送到信箱里的asp文件,
下边是处理页面部分源代码,
(我用的是自己的邮箱往自己的邮箱里发件办法)
页面也可以正常处理,可是邮箱里就是收不到邮件,请问是为什么??????
请哪位高手帮帮我吧,我弄了三天了也没有弄出来,谢谢~~~~~~~~~~~!
“li是做好的要发送的资料”
function sendemail(sname,mailbody)
sname="webmaster@sjcww.com"
mailbody=li
dim jmail
err.clear
on error resume next
set jmail=server.CreateObject("jmail.message")
if err.number<>0 then
sendmail=0 : err.clear : exit function
end if
smtp="mail.sjcww.com"
'设置发邮件服务器
jmail.serveraddress=smtp
jmail.silent=true
jmail.logging=true
jmail.charset="gb2312"
jmail.contenttype="text/html"
'设置发件人信箱
jmail.sender=sname
'设置发信人名字
jmail.FromName=name1
jmail.priority=1
'设置收信人信箱
jmail.AddRecipient sname
'设置主题
jmail.subject="我要定购"
'设置信件内容
jmail.body=mailbody
'设置发件信箱用户名
jmail.mailserverusername= "webmaster"
'设置发件信箱秘码
jmail.mailserverpassword="***********"
'开始发送
jmail.send smtp
jmail.Close
sendmail=1
set jmail=nothing
end function