Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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 > Moduloe incolla il codice seguente nel file Modulo 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 > Referenze 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:


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.