用Jmail组件发邮件错误的解决办法

       我所负责的网站服务器没有防火墙的保护，经常被黑客入侵，只好让一个做网管的朋友帮我在服务上做一些权限设置，没想到做完权限设置后，网站无法用Jmail组件发邮件了，每次都提示：

Server 对象 错误 'ASP 0178 : 80070005'
Server.CreateObject 访问错误
../sendmail.asp，行 3
检查权限时，对 Server.CreateObject 的调用失败。拒绝对此对象的访问。

 

    查看第3行的代码是Set JMail = Server.CreateObject("JMail.SMTPMail") ，这个问题让我头疼了好久，上google、csdn查了无数次，都没有找到解决的方法，后来由于工作忙，干脆把它仍到一边不管了，一放就是大半年。

 

     近来迫于工作需要，没有自动发邮件功能真的很不方便，网站上收到有很多提交的表单，想立即发一封通知邮件到自己邮箱，于是又把这个问题拿出来查，把jmail组件卸掉又重装，装好后，测试发邮件，不成功，用阿江探针查询，显示 Jmail组件没开启，在网上搜了一阵，无意中在一个网站上找到一个答案说是没有给IIS帐号开放对 dll 文件的读写权限，右击安装路径下的 jmail.dll 文件，选属性，把 ISUR_xxx 和 IWAM_xxx 两个帐号加进去，给予写入权限，确定。测试，发现邮件能发了，可是速度很慢，还好，成功了一半。

     我的服务器是双线出口的，有一个内网IP，把外网IP换成内网IP试试，找到JMail.ServerAddress = "xxx.xxx.xxx.xxx" 这句代码，换成内网IP，测试，成功了，1秒种就发出去了，至此这个问题解决了。

 

总结：

遇到Jmail组件发邮件的问题，按以下几点逐个查找。

1、看服务器上的smtp服务是否已启动。

2、安装好jmail后，给IIS用户对 jmail.dll文件的写权限。

3、用阿江探针，看Jmail组件是否已成功开启。(见附件)

4、用正确的邮件发送代码测试。

 

附邮件发送测试代码：

dim JMail
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "xxx.xxx.xxx.xxx"  '你服务器的IP或域名
JMail.LazySend = true
JMail.Charset = mcharset
JMail.ContentType = "text/html"
JMail.Sender =  " [email protected]"       '发送者邮箱
JMail.Subject = "测试发邮件"

JMail.AddRecipient " [email protected]"   '接收者邮箱

JMail.Body = "测试邮件"

JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
JMail.close
set JMail=nothing
if err.number<>0 then
response.write err.description
err.clear
else
response.write  "发送成功"
end if