1

以下の (法人化されていない) Sub() は、古い Windows 2003 サーバーでは問題なく動作しますが、Windows 2008 R2 では動作しません。

旧OS：Windows Server 2003 64bit

古いEniv。: エンタープライズ SMTP リレーを介してメールをリレーするように構成された仮想 SMTP サーバーを備えた IIS 6.0。

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

新OS：Windows Server 2008 R2 64ビット

New Eniv .: IIS 7.5 with IIS 6.0 Manager & Compatibility with 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