2014-01-31 54 views
0

一切正常,直到我们的邮件服务器脱机。但是当邮件服务器无法访问时,我们的脚本编写失败。当用户登录到网站时,服务器通过电子邮件向管理员发送通知。但是,如果邮件服务器处于脱机状态,登录失败并返回服务器错误。邮件服务器脱机时出现Windows 2008脚本错误

我们使用CDOSYS并使用本地SMTP服务器中继到我们的主邮件服务器。代码很简单...

Set ObjSendMail = CreateObject("CDO.Message") 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = artiscart_mail_server 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60  
ObjSendMail.Configuration.Fields.Update 
ObjSendMail.To = strEmail 
ObjSendMail.Subject = "Login activity" 
ObjSendMail.From = strEmail 
ObjSendMail.TextBody = strEmailBody 
ObjSendMail.Send 
Set ObjSendMail = Nothing 

类似的事情发生在我们发送电子报时,其中一封电子邮件是一个垃圾。在Windows Server 2003上,我们没有任何问题,但在Windows Server 2008上,相同的脚本编写失败。

有什么方法可以配置本地SMTP服务器以忽略错误并继续前进?

回答

0

为避免因邮件服务器故障和坏的电子邮件地址的所有错误,只需像这样的最后一行高于这个第一线......

On Error Resume Next 
ObjSendMail.Send 
相关问题