jmail发邮件，哪位高手快来帮帮我~！~！~！

[复制链接]

清风

电梯直达

1^#

发表于 2010-1-19 02:50:34 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我写了一个让客户按提交把表单资料发送到信箱里的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

收藏0