Comment insérer tous les noms des destinataires directement dans le corps d’un e-mail dans Outlook ?

Il peut arriver que vous ayez besoin d’insérer les noms de tous les destinataires directement dans le corps de votre e-mail sous Outlook. Bien sûr, vous pourriez les copier et les coller un par un — mais imaginez la corvée si vous devez insérer des dizaines de noms ! Dans cet article, je vous dévoile une méthode simple pour réaliser cette tâche en toute efficacité.

Insérer tous les noms des destinataires dans le corps de l’e-mail à l’aide d’un code VBA dans Outlook

---

Insérer tous les noms des destinataires dans le corps de l’e-mail à l’aide d’un code VBA dans Outlook

Le code VBA suivant vous permet d’insérer dans le corps du message tous les noms des destinataires figurant dans le champ « À ». Voici la marche à suivre :

1. Lancez Outlook, puis maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : insérer les noms des destinataires dans le corps du message :

Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
    xRecipAddress = xRecipient.Address
    Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    For i = 1 To 3
        xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
        Set xFoundContact = xItems.Find(xFilterAddr)
        If Not (xFoundContact Is Nothing) Then
           xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
           Exit For
        End If
    Next
    If (xFoundContact Is Nothing) Then
       xRecipName = Split(xRecipAddress, "@")(0)
       xRecipNames = xRecipNames & xRecipName & Chr(10)
    End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub

3. Toujours dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Outils > Références pour ouvrir la boîte de dialogue Références - Projet1, puis cochez l’option Microsoft Word Object Library dans la liste Références disponibles, comme illustré ci-dessous :

4. Cliquez ensuite sur OK pour fermer la boîte de dialogue. Vous devez maintenant ajouter ce code à la Barre d’outils Accès rapide.

5. Créez un nouveau message en cliquant sur Nouveau email. Dans la fenêtre Message, cliquez sur l’icône Personnaliser la barre d’outils Accès rapide, puis sélectionnez Autres commandes, comme illustré ci-dessous :

6. Dans la boîte de dialogue Options Outlook :

(1.) Sélectionnez Macrosdans la liste déroulante Choisir les commandes à partir de;

(2.) Ensuite, choisissez le nom de la macro VBA que vous venez d’insérer ;

(3.) Cliquez sur le bouton Ajouter pour ajouter la macro à la zone de liste Personnaliser la barre d’outils Accès rapide.

7. Une icône de macro apparaît alors dans la barre d’outils Accès rapide, comme illustré ci-dessous :

8. Désormais, lorsque vous cliquez sur l’icône de la macro, les noms des destinataires du champ « À » s’insèrent automatiquement dans le corps du message, comme illustré ci-dessous :