通過SMTP發送電子郵件-Outlook和Powershell正常，但是VBscript / CDO不起作用

Question

我正在嘗試通過遠程SMTP發送電子郵件：端口25，無身份驗證。 我有這個腳本，它給我80040213錯誤（“傳輸無法連接到服務器”）。 但是，當我嘗試使用Outlook或Powershell中的相同參數時，它可以工作。 我用谷歌搜索了...，但找不到解決方案。 歡迎任何建議。 謝謝。

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "CDO test"
objMessage.From = "person@firm.com"
objMessage.To = "person@firm.com"
objMessage.TextBody = "This is a test email."

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<SMTPserver>"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

objMessage.Send

Answer 1

好。 終於我找到了。 McAfee Enterprise阻止某些應用程序通過端口25進行通信，以防止出現“大量電子郵件蠕蟲”。