标题:jmail发邮件,哪位高手快来帮帮我~!~!~!
取消只看楼主
长发男孩儿
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-12-27
 问题点数:0 回复次数:0 
jmail发邮件,哪位高手快来帮帮我~!~!~!

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

搜索更多相关主题的帖子: jmail 邮件 手快 
2005-12-27 13:49



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-40203-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.089299 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved