Comment envoyer un email dans Outlook avec VBA ?

Mise à jour : août 2021 ; Applicable à Microsoft Outlook 365/2019/2016

Voici une note que nous avons reçue d'un lecteur.

Merci pour votre aide très utile au codage Outlook. Je me demande si vous pouvez partager du code pour aider à automatiser l'envoi d'un e-mail dans Outlook ? Je sais qu'il existe plusieurs façons d'envoyer des messages récurrents, mais je suis particulièrement intéressé par l'utilisation de VBA pour cette tâche.

Merci pour la question. L'envoi automatique d'e-mails semble être l'une des tâches les plus utiles et les plus populaires que vous pouvez automatiser à l'aide de VBA. Lisez la suite pour plus de détails et un script simple pour vous aider à démarrer ici.

Écriture de VBA pour l'envoi d'e-mails Outlook

Dans l'exemple assez simple ci-dessous, nous couvrirons les étapes suivantes :

1. Tout d'abord, nous allons utiliser le modèle d'objet VBA Outlook pour créer un nouvel élément de courrier électronique.
2. Ensuite, nous allons continuer et définir l'importance du message, les destinataires (séparés par des points-virgules) et le style et le contenu du corps du texte.
3. Ensuite, nous afficherons le message dans votre application Microsoft Outlook.
4. Enfin, nous allons continuer et l'envoyer aux destinataires.

Voici le code VBA simple pour créer et envoyer automatiquement des e-mails simples. Notez que vous devez facilement améliorer ce script pour inclure des pièces jointes, des tâches, etc., mais commençons par un script très basique.

Sub SendMail()
Dim MyEmail As MailItem
Set MyEmail = Application.CreateItem(olMailItem)

With MyEmail
.To = ""
.Importance = olImportanceHigh
.Subject = ""
.Body = ""
.BodyFormat = olFormatHTML
.Display
End With

'I purposely commented the next line, uncomment it by removing the "'" sign to send your email.
' MyEmail.Send
End Sub

Raccourci macro Outlook VBA

Vous voudrez peut-être envisager d'associer le code VBA que vous venez d'écrire à un bouton de commande dans Outlook. Cela vous permettra de le lancer facilement depuis un raccourci placé dans le ruban Outlook.

Voici comment procéder :

1. Tout d'abord, allez-y et ouvrez Microsoft Outlook.
2. Appuyez sur Fichier puis sélectionnez Options
3. Maintenant, allez-y et sélectionnez Personnaliser le ruban.
4. Dans la section Personnaliser le ruban, vous remarquerez la zone de liste Choisir les commandes dans.
5. Sélectionnez les macros
6. Sélectionnez ensuite votre code VBA nouvellement créé, dans notre cas, le nom doit être SendMail.
7. Appuyez ensuite sur Ajouter puis sur OK. Vous pouvez éventuellement attribuer une icône à votre macro.
8. Votre macro sera disponible dans la barre d'outils d'accès rapide dans le coin supérieur gauche de votre application Outlook.

Problèmes possibles avec les paramètres de macro VBA

Vos paramètres de macro Outlook doivent peut-être être réglés pour exécuter des macros. Si oui, voici comment procéder.