Отправить CDO электронной почты с помощью Outlook через код Excel VBA - PullRequest
Новая
       14

Отправить CDO электронной почты с помощью Outlook через код Excel VBA

0 голосов
/ 28 апреля 2019

У меня есть код для отправки электронной почты с использованием CDO из Интернета, но я продолжаю получать сообщение «Транспорт не смог подключиться к серверу»

Я пробовал различные изменения настроек для обмена сервером, но не повезло. 

`````
strSubject = "Results from Excel Spreadsheet"
strFrom = "jceast7@hotmail.com"   '"rdube02@gmail.com"
strTo = "jceast7@hotmail.com"     '"rdube02@gmail.com"
strCc = ""
strBcc = ""
strBody = "The total results for this quarter are: "   '& Str

'STEP 3
'The next section of code is where you will configure CDO to use any
 external SMTP server to send the email.


Set CDO_Mail = CreateObject("CDO.Message")
On Error GoTo Error_Handling

Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1

Set SMTP_Config = CDO_Config.Fields

With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "Microsoft Exchange"  '"smtp.hotmail.com"   '"smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")
= "jceast7@hotmail.com"     '"email@website.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
= "123456"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") 
= 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update
End With

With CDO_Mail
Set .Configuration = CDO_Config
End With
``````

1 Ответ

2 голосов
/ 29 апреля 2019 
 " The transport failed to connect to the server"

Эта ошибка означает, что вам нужно войти в свою учетную запись на веб-сайте (Google или что-то еще) и выбрать «Разрешить внешним программам использовать электронную почту» (что-то подобное), это сработало для меня, я был вто же место, что и вы!

...