vbscript - CDO.MESSAGE.1 传输无法连接到服务器

Question

我知道有几个线程与此相关，但没有一个能回答我的问题。

只是代码 (VBScript):

With cdomsg.Configuration.Fields
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "robot@gmail.com"
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"
  .Update
End With

使用该代码，我的电脑一切正常。但在其他 PC 上出现此错误:

CDO.MESSAGE.1 The transport failed to connect to the server.

我做过的事情:

1. 通过 telnet 端口 25、465、587 检查。只有 465 不工作。
2. 将端口更改为 465、25、587。
3. 在 AntiVirus 中排除我的 .exe(这个程序)。

我有那些 smtpusessl、autheticate 等。

我不知道该做什么和检查什么了。系统是否可能阻止此类事件？

Answer 1

我已经找到了这个问题背后的原因，似乎是 ISP 导致的。我已经在 3 台以上的计算机中尝试了 2 个以上的 ISP，比方说 A、B、C。A 和 B 使用相同的代码可以正常工作，但每台计算机都有 C 提供程序错误。使用端口 587 或 465 都可以正常工作。我不太了解这个端口，但两者都可以正常工作。