1

我有一个相当奇怪的问题（我们不是都...），而下面的（非公司化的）Sub() 在我们的旧 Windows 2003 服务器上工作得很好，但拒绝在 Windows 2008 R2 上工作：

旧操作系统：Windows Server 2003 64 位

老埃尼夫 : IIS 6.0 w/ 配置为通过企业 SMTP 中继中继邮件的虚拟 SMTP 服务器。

sub SendMail()
on error resume next

  'Send Mail vars
  Dim ObjSendMail
  Dim iConf
  Dim Flds

  Set ObjSendMail = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields

  Set ObjSendMail.Configuration = iConf
    ObjSendMail.To = "dba1@blah.com;dba2@blah.com;dba3@blah.com"
    ObjSendMail.Subject = "Daily Primary Load Has Completed"
    ObjSendMail.From = "app-server@blah.com"

  ObjSendMail.Send
  Set ObjSendMail = Nothing
end Sub

新操作系统：Windows Server 2008 R2 64 位

新 Eniv .: IIS 7.5 w/ IIS 6.0 Manager & Compatibility w/ Virtual SMTP Server 配置为通过企业 SMTP 中继中继邮件（配置与旧服务器相同的设置）。

每次我尝试在新机器上运行上面的确切脚本时，我都会收到非常有用的错误消息：

C:\Users\digitalnoise\email_test.vbs(21, 4) CDO.Message.1: The "SendUsing" configuration value is invalid.

我没有开发这个系统或这些脚本，那些做过的早已不复存在，由我来维护。不幸的是，我从来没有使用 VBScripting 来自动化事情（我使用过其他项目，但我的观点正在改变），所以我只是不熟悉这个或如何弄清楚为什么我的配置不起作用。

我已经在这几个星期了，我想出的大部分结果要么不起作用（MS 的远程 SMTP 模式 - 服务器无法访问互联网），要么似乎专门适用于 VBScript在 ASP.Net 页面中 - 这些脚本不是。

我做过的事情：

  • 配置虚拟服务器后停止并重新启动 SMTP 服务
  • 配置后停止并重新启动虚拟 SMTP 服务器。
  • 停止并重新启动 IIS

有人有想法么？

4

0 回答 0