Email send issue

[keerthika]

Hi All,

Can you pls give some idea to fix this

Error: The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available

My Macro is

Sub SendGMail()

' Object creation

Set objMsg = CreateObject("CDO.Message")

Set msgConf = CreateObject("CDO.Configuration")

' Server Configuration

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****@gmail.com"

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 443

msgConf.Fields.Update

' Email

objMsg.To = "****@gmail.com"

objMsg.From = "****@gmail.com"

objMsg.Subject = "Test send with Gmail account"

objMsg.HTMLBody = "HTML/Plain text message."

objMsg.Sender = "Mr. Name"

Set objMsg.Configuration = msgConf

' Send

objMsg.Send

' Clear

Set objMsg = nothing

Set msgConf = nothing

End Sub

Tnaks,

Keke

[Miguel_Angel_Baeyens]

Log in with that account in Google Mail, then go to https://myaccount.google.com/lesssecureapps and set Less Secure to "On".

[andrey_krylov]

Try this

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****@gmail.com"

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"

msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true

[keerthika]

Hi,

Error: The transport failed to connect to the server.

[keerthika]

Hi,

Its already 'On' but its not working

[Miguel_Angel_Baeyens]

Does the account have two step verification enabled?

[keerthika]

Sry, how to find that

[andrey_krylov]

Strangely enough. Try to check  login and password.

[Miguel_Angel_Baeyens]

See Turn on 2-Step Verification - Android - Google Account Help