Vai al contenuto principale

Come inserire tutti i nomi dei destinatari nel corpo dell'email in Outlook?

A volte, potrebbe essere necessario inserire i nomi di tutti i destinatari nel corpo del messaggio durante la composizione di un'e-mail in Outlook. Ovviamente puoi copiare e incollare i nomi nel corpo uno per uno. Ma è molto noioso se ci sono dozzine di nomi di destinatari che devono essere incollati. In questo articolo, parlerò di un modo semplice per risolvere questo lavoro in Outlook.

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


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

Il seguente codice VBA può aiutarti a inserire tutti i nomi dei destinatari dal campo A nel corpo del messaggio, per favore fai come segue:

1. Avvia Outlook, quindi tieni premuto il pulsante ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: inserisci 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. E poi ancora in Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Riferimenti per andare al Riferimenti-Progetto1 finestra di dialogo e selezionare Libreria di oggetti di Microsoft Word opzione dal Riferimenti disponibili casella di riepilogo, vedi screenshot:

4. Quindi fare clic OK per chiudere la finestra di dialogo, ora, dovresti aggiungere questo codice al file Barra degli strumenti di accesso rapido.

5. Crea un nuovo messaggio facendo clic nuova e-mail, Nella Messaggio finestra, fare clic Personalizza la barra degli strumenti di accesso rapido icona e selezionare Altri comandi, vedi screenshot:

6. Nel Opzioni di Outlook la finestra di dialogo:

(1.) Seleziona Macro dal Scegli comandi da menu `A tendina;

(2.) E poi scegli il nome in codice VBA che hai inserito proprio ora;

(3.) Fare clic su Aggiungi pulsante per aggiungere il codice nel file Personalizza la barra degli strumenti di accesso rapido casella di riepilogo.

7. Quindi viene visualizzata un'icona macro nel file Barra degli strumenti di accesso rapido come mostrato nella seguente schermata:

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


I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati ProSalvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations