XL 2019 macro vba envoi email

[nassnass]

Bonjour,
je voudrais créer une macro "simple" qui envoie un email.
je suis sous windows 10, office 2019. j'ai une @email gmail et j'ai configuré mon compte gmail dans outlook
j'ai trouvé ce code mais qd j'exécute j'ai l'assistant outlook qui s'ouvre pour ajouter un compte alors que je l'ai déjà fait
d'avance merci de votre aide


Sub mail_outlook_débutant() 'début du programme 'mail_outlook_debutant'

Dim OutApp As Object 'Déclaration de l'application objet Outlook
Dim OutMail As Object 'Déclaration du mail objet Outlook

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


With OutMail 'début de la boucle
.To = "monadresse@gmail.com" 'champ envoyer à
'ne pas oublier les "" lorsque le texte est écrit 'en dur'
'séparer les adresses mail par un ;
'.CC = "contact@automatiseoffice.com; tonadresse@gmail.com" 'champ mail en copie
'.BCC = "" 'champ mail en copie caché
.Subject = "Test" 'champ du sujet du mail
.Body = "Ceci est un message test." & vbCrLf & "ceci est une nouvelle ligne"
'champ du corps du mail
' ajouter & vbCrlF & pour aller à la ligne entre deux valeurs

'.Display 'affiche le mail en brouillon dans Outlook, pratique
'pour vérifier avant d'envoyer
.Send 'envoie directement le mail
.Save 'sauvegarde le mail

End With 'fin de la boucle

Set OutMail = Nothing 'nettoie la mémoire en nettoyant les variables
Set OutApp = Nothing 'nettoie la mémoire en nettoyant les variables


End Sub 'fin du programme

 

[Dudu2]

Bonjour,
Tu peux toujours essayer ça -> https://www.excel-downloads.com/thr...l-les-embbeded-images.20059371/#post-20447730

 

[nassnass]

Bonjour,
Tu peux toujours essayer ça -> https://www.excel-downloads.com/thr...l-les-embbeded-images.20059371/#post-20447730

Bonjour Dudu
merci mais le résultat reste le même. à l'exécution j'ai la boîte de dialogue pour créer un compte outlook. alors que j'ai créé un compte gmail dans outlook

 

[Dudu2]

Ah bien, oui. Il faut au moins 1 compte créé dans Outlook pour pouvoir envoyer un message.

 

[nassnass]

Ah bien, oui. Il faut au moins 1 compte créé dans Outlook pour pouvoir envoyer un message.

c'est justement mon problème. j'ai créé un compte dans outlook avec mon @ gmail. donc je ne comprends pas pourquoi j'ai cette fenêtre qui me demande de créer un compte. je voudrais envoyer un email en utilisant le compte créé

 

[nassnass]

je peux fermer cette discussion car le problème est réglé.je n'avais pas bien configurer mon compte outlook
merci à tous