¿Cómo insertar todos los nombres de los destinatarios en el cuerpo del correo electrónico en Outlook?

A veces, es posible que deba insertar los nombres de todos los destinatarios en el cuerpo del mensaje al redactar un correo electrónico en Outlook. Por supuesto, puede copiar y pegar los nombres en el cuerpo uno por uno. Pero es muy tedioso si hay que pegar docenas de nombres de destinatarios. En este artículo, hablaré sobre una manera fácil de resolver este trabajo en Outlook.

Inserte todos los nombres de los destinatarios en el cuerpo del correo electrónico con el código VBA en Outlook

Inserte todos los nombres de los destinatarios en el cuerpo del correo electrónico con el código VBA en Outlook

El siguiente código VBA puede ayudarlo a insertar todos los nombres de destinatarios del campo Para en el cuerpo del mensaje, haga lo siguiente:

1. Inicie Outlook y luego mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: inserte los nombres de los destinatarios en el cuerpo del mensaje:

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. Y luego todavía en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias para ir a la Referencias-Proyecto1 cuadro de diálogo y verifique Biblioteca de objetos de Microsoft Word Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:

4. Luego haga clic OK para cerrar el cuadro de diálogo, ahora debe agregar este código al Acceso rapido a la barra de herramientas.

5. Crea un nuevo mensaje haciendo clic Nuevo Email, En la Mensaje ventana, haga clic Personalizar la barra de herramientas de acceso rápido ícono y seleccione Más comandos, ver captura de pantalla:

6. En la Opciones de outlook caja de diálogo:

(1.) Seleccione Macros del desplegable Elija comandos de la lista desplegable;

(2.) Y luego elija el nombre del código VBA que acaba de insertar;

(3.) Haga clic en Añada para agregar el código en el Personalizar la barra de herramientas de acceso rápido cuadro de lista.

7. Y luego se muestra un icono de macro en el Acceso rapido a la barra de herramientas como se muestra en la siguiente captura de pantalla:

8. Ahora, cuando hace clic en el icono de macro, los nombres de los destinatarios del campo Para se insertarán en el cuerpo del mensaje como se muestra a continuación: