我所负责的网站服务器没有防火墙的保护，经常被黑客入侵，只好让一个做网管的朋友帮我在服务上做一些权限设置，没想到做完权限设置后，网站无法用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 =  "xxx@xxx.com"       '发送者邮箱 JMail.Subject = "测试发邮件" JMail.AddRecipient "xxx@xxx.com"   '接收者邮箱 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