excel - 端口 25 被阻止尝试从 Excel VBA 发送 CDO 电子邮件

Question

我有一个从 Excel 发送电子邮件的 VBA 脚本。

该脚本昨天在我的酒店工作；但是，今天在我的家庭网络上，我收到了这个错误：

“传输无法连接到服务器。”

我的家庭网络使用 Google wifi 点并连接 VIA Comcast Xfinity。如果我使用 AT&T 网络从我的手机设置热点，它工作正常。这是否意味着此端口在我的家庭网络或 XFinity 上被阻止？

脚本如下：

Dim Mail As New Message
Dim Config As Configuration
Set Config = Mail.Configuration

Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = "smtp.gmail.com"
Config(cdoSMTPServerPort) = 25
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = True
Config(cdoSendUserName) = "****"
Config(cdoSendPassword) = "****"
Config.Fields.Update

Mail.To = Config(cdoSendUserName)
Mail.From = Config(cdoSendUserName)
Mail.Subject = "Subject"
Mail.TextBody = "Body"

On Error Resume Next

Mail.Send

If Err.Number <> 0 Then
    MsgBox Err.Description, vbCritical, "There was an error"
    Exit Sub
End If

标签： excelvbaemailnetworkingcdo.message