经典 ASP CDOSYS 和 Exchange CAS 服务器

经典 ASP CDOSYS 和 Exchange CAS 服务器

我遇到了一个问题,我的公司正在将我们的交换迁移到新的 CAS 服务器。

我们网站上有几个页面使用经典 asp,使用 CDOSYS 发送电子邮件,这些页面与当前的 Exchange 服务器配合良好。

当我切换到新的 CAS 服务器时,发生了一件奇怪的事情。电子邮件按预期立即发送,但脚本本身需要 30 多秒才能完成。没有错误或任何其他问题,只是延迟非常长。

这是我用来测试这个的代码。

Set myMail = CreateObject("CDO.Message")
myMail.Subject = "A test email"
myMail.From = "A valid email address"
myMail.To = "A valid email address"
myMail.TextBody = "This is a test email."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "1.2.3.4"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail = Nothing

我不知道为什么会这样,是代码出了问题还是新的 Exchange 服务器出了问题。

我已经尝试过 smtpconnectiontimeout,但没有什么区别。

objCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 5

Web 服务器运行的是带有 IIS7 的 Windows 2008。

有谁经历过类似的事情吗?

答案1

是的 - 刚刚在 IIS 框上安装了 SMTP 服务,然后将电子邮件从那里退回。找不到解决方法,因此需要长期更新代码。

相关内容