关于jmail发邮件的问题！

monkeyhjl 2006-10-10 05:28:46

在服务器上，我用本地http://localhost:这种方式可以成功发送邮件，但用域名的方式却不能发送邮件，提示错误为：
服务器对象错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

/resortDeal.asp，行18

18行程序为：Set jmail = Server.CreateObject("JMail.Message")
请问这是为什么？是不是跟网络设置或者域名解析有关？

...全文

357 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

monkeyhjl 2006-10-11

打赏
举报

我用Set myEmail = Server.CreateObject("CDONTS.NEWMAIL")这种方式发邮件，在服务器上用http://localhost:这种方式也可以成功发送邮件，但外网用域名的方式就不能发送邮件。页面报错为：Microsoft VBScript 运行时错误错误 '800a0046'

没有权限

/resortDeal.asp，行39
39行为：myEmail.Send ()
是不是要进行什么权限设置呀？

monkeyhjl 2006-10-11

打赏
举报

to：byteh(火星菠菜)
代码和你的差不多，应该不是代码的问题。因为我在服务器上用http://localhost这种方式是能发送邮件的，现在是换到外网用域名访问发送不能成功。

byteh 2006-10-11

打赏
举报

我印象中:为了反垃圾邮件,现在的邮件服务器都不允许匿名发送邮件了!前段时间我也遇到了类似的问题,你看看这样能不能解决:
<body>
<%
Dim JMail,mess
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312"
JMail.MailServerUserName = "test@126.com" //必须的
JMail.MailServerPassword = "test" //必须的
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.From = "test@126.com"
JMail.FromName = request.form("Email")
JMail.AddRecipient "info@test.com.cn"
JMail.Subject = "Tailor Made"&now()

mess = "-------------------[Tailor Made]-------------------" & " "
mess = mess & "Title：" & request.form("sTitle") & " "
mess = mess & "Forename：" & request.form("Forename") & " "
mess = mess & "Surname：" & request.form("Surname") & " "
mess = mess & "Email：" & request.form("Email") & " "
mess = mess & "Telephone：" & request.form("Telephone") & " "
mess = mess & "Country：" & request.form("Country") & " "
mess = mess & "Address：" & request.form("Address") & " "
mess = mess & "ZIPcode：" & request.form("ZIPcode") & " "
mess = mess & "Requirements：" & request.form("Requirements") & " "
mess = mess & "DepartureDate：" & request.form("DepartureDate") & " "
mess = mess & "hotel：" & request.form("hotel") & " "
mess = mess & "Number of Persons：" & request.form("PersonsTravelling") & " "
mess = mess & "---------------test.com.cn-------------------"
JMail.HTMLBody = mess
JMail.Send "smtp.126.com"
' 关闭并清除对象 '
Set JMail = Nothing
response.write "<script language=JavaScript>{window.alert('Thank you！');window.location='index.asp'}</script>"
%>
</body>

monkeyhjl 2006-10-10