通过SMTP发送电子邮件 - Outlook和Powershell确定，但VBscript / CDO不起作用

Question

我尝试通过远程SMTP：端口25发送电子邮件，不进行身份验证。我有这个脚本，它给我80040213错误（＆＃34;传输无法连接到服务器＆＃34;）。但是，当我尝试使用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为某些应用程序进行通信，以防止“群发电子邮件蠕虫”。