Come inserire tutti i nomi dei destinatari nel corpo del messaggio email in Outlook?

A volte potrebbe essere necessario inserire i nomi di tutti i destinatari direttamente nel corpo del messaggio durante la composizione di un'email in Outlook. Certo, è possibile copiare e incollare i nomi uno alla volta, ma l’operazione diventa rapidamente noiosa se si devono gestire decine di contatti. In questo articolo ti mostrerò un metodo semplice per farlo in Outlook.

Inserire tutti i nomi dei destinatari nel corpo dell'email con codice VBA in Outlook

---

Inserire tutti i nomi dei destinatari nel corpo dell'email con codice VBA in Outlook

Il seguente codice VBA inserisce automaticamente tutti i nomi dei destinatari presenti nella colonna A direttamente nel corpo del messaggio. Procedere come segue:

1. Avvia Outlook, quindi tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fare clic su Inserisci > Modulo, quindi incollare il codice seguente nella finestra del Modulo.

Codice VBA: Inserire i nomi dei destinatari nel corpo del messaggio:

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. Sempre nella finestra di Microsoft Visual Basic for Applications, fare clic su Strumenti > Riferimenti per aprire la finestra di dialogo Riferimenti - Progetto1, quindi selezionare l'opzione Microsoft Word Object Library dall'elenco Riferimenti disponibili, come mostrato nello screenshot:

4. Fare quindi clic su OK per chiudere la finestra di dialogo. A questo punto, è necessario aggiungere questo codice alla Barra di accesso rapido.

5. Crea un nuovo messaggio facendo clic su Nuova Email. Nella finestra Messaggio, fai clic sull'icona Personalizza barra di accesso rapido e seleziona Altri comandi, come mostrato nello screenshot:

6. Nella finestra di dialogo Opzioni di Outlook:

(1.) Selezionare Macrodal menu a discesa Scegli comandi da;

(2.) Scegliere quindi il nome della macro VBA appena inserita;

(3.) Fare clic sul pulsante Aggiungi per aggiungere la macro all'elenco della Personalizza barra di accesso rapido.

7. A questo punto, un’icona della macro verrà visualizzata nella Barra di accesso rapido, come mostrato nello screenshot seguente:

8. Ora, quando fai clic sull'icona della macro, i nomi dei destinatari presenti nel campo A: verranno inseriti direttamente nel corpo del messaggio, come mostrato nello screenshot seguente: