gmail : Less Secure App will stop May, 30 2022 *Fixed*

[dutch]

Dear Detlef,

I got the new solution for smtp.gmail.com now.

1. 2 Step Verification (2SV)
2. App Password
2.1 Generate password with
Select app: "Mail", Select device: "Windows Computer"
2.2 Get 16 digits password.
2.3 Use this password instead of gmail's password.

done.

Thank you, Dutch.
Unfortunately my client wants to stay at gmail.com to send invoices to her customers.
I' ll try to convince her to change to a service like mailjet.com as you did.

Have a nice weekend.
Regards,
Detlef

[Detlef]

Uups! I didn't see your new post, Dutch.
Many thanks for it.
I'll give it a try.

Regards,
Detlef

[Jack]

Hi,
I try it and it works as expected.

Thanks for the feeback

Philippe

[jose_murugosa]

Muchas gracias por tan buen aporte.

thank you very much for such a good contribution!!

[hidroxid]

Hello dutch

Have you any example in harbour to implement your solution?

Thank you in advance

Dear Detlef,

I got the new solution for smtp.gmail.com now.

1. 2 Step Verification (2SV)
2. App Password
2.1 Generate password with
Select app: "Mail", Select device: "Windows Computer"
2.2 Get 16 digits password.
2.3 Use this password instead of gmail's password.

done.

[dutch]

Hi hidroxid,

Have you ever send email via gmail account? If so, just change password to "App Password". That's it.

Code: Select all  Expand view  RUN

         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value                 := cSmtp // "smtp.gmail.com"
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value         := nPort // iif(lSSL,465,25)  // 465 SSL
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value              := 2   // Remote SMTP = 2, local = 1
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value       := iif(lAuthen,.T.,.F.) // .T.
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value                 := lSSL // .T.
         :Item( "http://schemas.microsoft.com/cdo/configuration/savesentitems" ):Value          := lSave
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value           := cSender 
         :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value           := cPass // use App Password instead of gmail password
         :Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := 30
         :Update()

Hello dutch

Have you any example in harbour to implement your solution?

Thank you in advance

Dear Detlef,

I got the new solution for smtp.gmail.com now.

1. 2 Step Verification (2SV)
2. App Password
2.1 Generate password with
Select app: "Mail", Select device: "Windows Computer"
2.2 Get 16 digits password.
2.3 Use this password instead of gmail's password.

done.