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

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

剧本昨天在我住的酒店完成了；但是，今天在我的家庭网络上，我在家中遇到以下错误：

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

我的家庭网络使用谷歌wifi点，并通过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

Dim邮件作为新邮件
Dim配置为配置
Set Config=Mail.Configuration
配置（cdoSendUsingMethod）=cdoSendUsingPort
配置（cdoSMTPServer）=“smtp.gmail.com”
配置（cdoSMTPServerPort）=25
配置（cdoSMTPAuthenticate）=cdoBasic
配置（cdoSMTPUseSSL）=真
配置（cdoSendUserName）=“**”
配置（cdoSendPassword）=“**”
Config.Fields.Update
Mail.To=Config（cdoSendUserName）
Mail.From=Config（cdoSendUserName）
Mail.Subject=“Subject”
Mail.TextBody=“Body”
出错时继续下一步
邮寄
如果错误号为0，则
MsgBox Err.Description，vbCritical，“发生错误”
出口接头
如果结束

安全电子邮件（CDOSMTPUSESL）不使用端口25。你应该阅读关于如何配置SMTP的GMail文档，这将为你提供正确的端口。哈哈！那很容易。想知道为什么它在其他网络上工作，而不是在我的家庭网络上工作。。。