传输无法连接到服务器错误

Question

Set emailObj      = CreateObject("CDO.Message")

emailObj.Sender   = "zzz@xxx.com"
emailObj.To       = "xxx@xxx.com"

emailObj.Subject  = "Test CDO"
emailObj.TextBody = "Test CDO"

Set emailConfig   = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.live.com"
emailConfig.Fields("----/smtpserverport")   = 465
emailConfig.Fields("----/sendusing")        = 2  
emailConfig.Fields("----/smtpauthenticate") = 1  
emailConfig.Fields("----/smtpusessl")       = true 
emailConfig.Fields("----/sendusername")     = "xxxx@gmail.com"
emailConfig.Fields("----/sendpassword")     = "*****"

emailConfig.Fields.Update

emailObj.Send

If Err.Number = 0 Then 
  MsgBox "Done"
End If

If Err.Number <> 0 Then 
  MsgBox "Can't Proceed"
End If

这是通过 live.com 发送电子邮件的代码，但我收到“传输无法连接到服务器”错误。谁能帮我解决这个错误？

Answer 1

mail.live.com 只是一个网络服务器（农场）：

xxx@iridium:~ $ nmap mail.live.com

在 2016-03-31 08:53 CEST 开始 Nmap 6.47 ( http://nmap.org )
mail.live.com (157.56.198.204) 的 Nmap 扫描报告
主机已启动（0.029 秒延迟）。
mail.live.com 的其他地址（未扫描）：157.55.230.252
157.56.198.204 的 rDNS 记录：origin.du130w.dub130.mail.live.com
未显示：965 个封闭端口，33 个过滤端口
港口国服务
80/tcp 打开 http
443/tcp 打开 https

Nmap 完成：在 8.32 秒内扫描了 1 个 IP 地址（1 个主机启动）

要向 Outlook.com 提交邮件，请使用 smtp-mail.outlook.com 和端口 25 或 587（请参阅 here）。

但不确定您是否可以使用 Gmail 地址对 Microsoft 的邮件服务进行身份验证。