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传输无法连接到服务器。

我做过的事情：

1. 通过telnet端口25,465,587进行检查。只有465无效。
2. 将端口更改为465,25,587。
3. 在AntiVirus中排除我的.exe（此程序）。

我有那些smtpusessl，authenticticate等。

我不知道该做什么，再检查一下。系统是否有可能阻止此类活动？

Answer 1

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