Кажется, порт заблокирован при попытке отправить письмо из Excel VBA - PullRequest
Новая
       26

Кажется, порт заблокирован при попытке отправить письмо из Excel VBA

0 голосов
/ 26 февраля 2020

У меня есть простой скрипт VBA для отправки электронной почты из Excel. Сценарий работал вчера из моего отеля; однако сегодня из дома в моей домашней сети я получаю эту ошибку: «Транспорту не удалось подключиться к серверу». Моя домашняя сеть использует точки Wi-Fi Google и подключается к 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
...