XL 2019 macro vba envoi email

nassnass

XLDnaute Nouveau
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
 

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal