topic Re: Email send issue in QlikView

Email send issue

keerthika — Wed, 25 Nov 2020 16:16:04 GMT

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

Re: Email send issue

Miguel_Angel_Baeyens — Mon, 24 Sep 2018 12:32:08 GMT

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

Re: Email send issue

andrey_krylov — Mon, 24 Sep 2018 12:40:31 GMT

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

Re: Email send issue

keerthika — Mon, 24 Sep 2018 12:44:15 GMT

Hi,

Error: The transport failed to connect to the server.

Re: Email send issue

keerthika — Mon, 24 Sep 2018 12:44:46 GMT

Hi,

Its already 'On' but its not working

Re: Email send issue

Miguel_Angel_Baeyens — Mon, 24 Sep 2018 12:58:44 GMT

Does the account have two step verification enabled?

Re: Email send issue

keerthika — Mon, 24 Sep 2018 13:06:09 GMT

Sry, how to find that

Re: Email send issue

andrey_krylov — Mon, 24 Sep 2018 13:23:14 GMT

Strangely enough. Try to check login and password.

Re: Email send issue

Miguel_Angel_Baeyens — Mon, 24 Sep 2018 13:45:59 GMT

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