XL 2010 Probleme pour envoi d'un mail depuis excel avec gmail

[chris66000]

Bonjour,
Malgré mes recherches sur tous les sites, je ne trouve pas de solution à mon problème.
Quand je veux envoyer un mail depuis Excel par Gmail, je reçois un message d'erreur
Le transport a échoué dans sa connexion au serveur
ci-joint mon code ou j'ai enlevé les adresses
si quelqu'un peux m'aider cela serait avec plaisir
Merci d'avance

Public Function envoi_mail() ' pour envoi controle Set cdomsg = CreateObject("CDO.message") With cdomsg.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 25 '465 '587 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********" .Update End With ' build email parts With cdomsg .To = "*****@gmail.com" .From = "****@gmail.com" .Subject = "essai de transmission" .TextBody = "BONJOUR" .Send End With Set cdomsg = Nothing End Function

si quelqu'un pouvait m'aider

Merci d'avance

Chris

 

[dysorthographie]

bonjour,
à ma connaissance, depuis mai 2022, google n'autorise plus l'acheminement par des application tiers moins sécurise!

voila sur quoi je planche en ce moment sans vraiment de succès!

VB6/ASP - Send Email using Microsoft OAuth 2.0 (Modern Authentication) + SMTP/EWS/Ms Graph API Protocol from Office 365 Account

 

[chris66000]

merci...peut etre que d'autres personnes auront une solution...

 

[kiki29]

Salut, à voir/tester sur Ron de Bruin

 

[dysorthographie]

merci...peut etre que d'autres personnes auront une solution...

Bonjour,
On c'est pas compris il n'est plus possible d'utiliser CDO pour envoyer des mails !

Il faut trouver un autre moyen comment outlook, thunderbird autres !

Je connais bien le processus d'envoi de mail via CDO m'a précédente réponse ne reflétait pas mon ignorance mais ce que j'ai lu à droite à gauche !

Les applications moins sécurisées et votre compte Google - Aide Compte Google

Pour vous aider à sécuriser votre compte, à compter du 30 mai 2022, Google ne prendra plus en charge l'utilisation d'applications ou d'appareils tiers qui vous demandent uni

support.google.com

 

[kiki29]

Re, Excel/CDO/Gmail donne ceci :

 

[chris66000]

ok merci je vais essayer en passant par outlook

merci de l'aide