jmail组件 对象不支持此属性或方法: 'JMail.ServerAddress' 的解决办法

jmail组件是asp最常用的邮件发送工具,自己有一个网站,已经使用这个jmail组件有8年了,但不知道为什么在12号突然出现无法正常发送邮件的问题,

后来经过测试代码,发现IIS报的错误为:对象不支持此属性或方法: 'JMail.ServerAddress',遇到不明白的,当然就是先度娘了,百度了2天都没有发现有相同错误的案例及解决的办法,

我的代码如下:

Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
if err then
SendMail= "<br><li>没有安装JMail组件</li>"
err.clear
exit function
end if
''''''''''''''''''''邮件服务器配置''''''''''''''''''''''
'邮件等级,1为加急,3为普通,5为低级
Priority=2
MailDomain=""
FromName=adtitle
MailFrom=MailServerUserName

MailtoAddress=MailtoAddress '收信地址
MailtoName=MailtoName '收信人
Subject=Subject '主题
MailBody=MailBody '内容

JMail.Charset="GB2312" '邮件编码
JMail.silent=true
JMail.ContentType = "text/html" '邮件正文格式
'JMail.ServerAddress= MailServer '用来发送邮件的SMTP服务器
'如果服务器需要SMTP身份验证则还需指定以下参数
JMail.MailServerUserName = MailServerUserName '登录用户名
JMail.MailServerPassWord = MailServerPassWord '登录密码
'JMail.MailDomain = MailDomain '域名(如果用“name@domain.com”这样的用户名登录时,请指明domain.com
JMail.AddRecipient MailtoAddress,MailtoName '收信人
JMail.Subject=Subject '主题
'JMail.HMTLBody=MailBody '邮件正文(HTML格式)
JMail.Body=MailBody '邮件正文(纯文本格式)
'JMail.FromName=FromName '发信人姓名
JMail.From = MailFrom '发信人Email
'JMail.Priority=Priority '邮件等级,1为加急,3为普通,5为低级
JMail.Send(MailServer)
SendMail =JMail.ErrorMessage
JMail.Close
Set JMail=nothing

 

问题没有解决就先放了一天,今天再想时,实然想是否可以看看其它ASP程序的邮件是使用什么实现的,就想是否有代替jmail的组件,

我查了一个ASP程序,它使用的也是jmail组件,但它写的代码行数没有我的这么多,我就一行一行的对比,发现它竟然没有'JMail.ServerAddress= MailServer '用来发送邮件的SMTP服务器 句代码。

难道不需要填写吗?然后我就把这些红色部分都注释了。

测试结果:成功了。

虽然想不明白原因是什么,为什么使用了8年都没有问题,现在才有问题,但总算邮件可以发送,也算是解决了。

 

posted on 2016-01-14 14:08  龙烟  阅读(1351)  评论(0编辑  收藏  举报

导航