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

我正在尝试通过远程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

Set objMessage=CreateObject（“CDO.Message”）
objMessage.Subject=“CDO测试”
objMessage.From=”person@firm.com"
objMessage.To=”person@firm.com"
objMessage.TextBody=“这是一封测试电子邮件。”
objMessage.Configuration.Fields.Item_
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objMessage.Configuration.Fields.Item_
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
objMessage.Configuration.Fields.Item_
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send

好的。最后我发现了。McAfee Enterprise会阻止某些应用程序通过端口25进行通信，以防止“群发电子邮件蠕虫”