Я использую следующий код, чтобы попытаться отправить электронное письмо в Excel с помощью VBA. Я получаю сообщение об ошибке:Отправка электронной почты в Excel с помощью VBA, без Outlook, 64 бит
Run-time error '-2147220973 (80040213)': The transport failed to connect to the server.
Я попытался изменить порты (25, 465, 587), изменение почтовых серверов (smtp.gmail.com, smtp.live.com), пытались как Gmail и Hotmail, включен менее безопасен на обеих учетных записях gmail, даже настроить Outlook и отключить брандмауэр в Avast.
Вот код:
Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '587 '465 '25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
.Update
End With
strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
With iMsg
Set .Configuration = iConf
.To = "[email protected]"
.CC = ""
.BCC = ""
.From = "[email protected]"
.Subject = "New figures"
.TextBody = strbody
.Send
End With
End Sub
теперь я начинаю думать, что это связанно с тем, я использую Windows 10 64 битных и офис 2016 64 бита. - Просто догадка, также, я новичок в 64 бит, люблю его, но я учусь.
Может кто-нибудь посоветует, если я нахожусь на правильном пути и как я могу это сделать, чтобы летать. Если я не на правильном пути, что еще может быть зависанием?
Я искал Поиск Q & A, но ничего не нашел.
Run Ошибка ошибки, связанной с сетью, не может подключиться к указанной почте сервер. попробуйте использовать соединение ssl, см. мой ответ, он должен работать. – 0m3r