Проблемы с отправкой электронной почты с VBA

Question

Я знаю, что на эту тему довольно много тем, но все, что я пробовал, похоже, не работает, я использую следующий код для отправки электронной почты

Dim Mail As CDO.Message
Set Mail = New CDO.Message

'Enable SSL Authentication
Mail.Configuration.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'Make SMTP authentication Enabled=true (1)
Mail.Configuration.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Set the SMTP server and port Details
Mail.Configuration.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
Mail.Configuration.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Mail.Configuration.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Set your credentials of your Gmail Account
Mail.Configuration.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@gmail.com"
Mail.Configuration.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxx"

'Set All Email Properties
With Mail
   .Subject = "Write subject here"
   .From = "xxx@gmail.com"
   .To = "xxx@hotmail.co.uk"
   .CC = ""
   .BCC = ""
   .TextBody = "Test Mail"
End With

Mail.Configuration.fields.Update

'to send the mail
Mail.Send

Я получаюсообщение об ошибке:

Ошибка времени выполнения '-2147220973 (80040213 (': транспорт не смог подключиться к серверу

Я пытался

• Обновление моегоНастройки в моей учетной записи Gmail, чтобы разрешить менее безопасный доступ к приложению
• Изменение порта SMTP
• Запуск его дома и на работе в разных сетях Wi-Fi
• Запуск его в другихНоутбуки

Не могу заставить его работать.