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

A veces, puede necesitar 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 uno por uno en el cuerpo. Sin embargo, resulta muy tedioso si hay decenas de nombres que deben pegarse. En este artículo explicaré una forma sencilla de realizar esta tarea en Outlook.

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

---

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

El siguiente código VBA le permite insertar en el cuerpo del mensaje los nombres de todos los destinatarios del campo Para. Siga estos pasos:

1. Inicie Outlook y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.

Código VBA: Insertar 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. A continuación, en la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias para abrir el cuadro de diálogo Referencias - Proyecto1 y active la opción Microsoft Word Object Library en el cuadro de lista Referencias disponibles, como se muestra en la captura de pantalla:

4. A continuación, haga clic en Aceptar para cerrar el cuadro de diálogo. Ahora debe agregar este código a la Barra de acceso rápido.

5. Cree un mensaje nuevo haciendo clic en Nuevo Email. En la ventana del Mensaje, haga clic en el icono Personalizar barra de acceso rápido y seleccione Más comandos, como se muestra en la captura de pantalla:

6. En el cuadro de diálogo Opciones de Outlook:

(1.) Seleccione Macrosen la lista desplegable Elegir comandos de;

(2.) A continuación, elija el nombre de la macro que acaba de insertar;

(3.) Haga clic en el botón Agregar para añadir la macro al cuadro de lista Personalizar barra de acceso rápido.

7. A continuación, aparecerá un icono de macro en la Barra de acceso rápido, tal como se muestra en la siguiente captura de pantalla:

8. Ahora, al hacer clic en el icono de la macro, los nombres de los destinatarios del campo Para se insertarán directamente en el cuerpo del mensaje, tal como se muestra en la siguiente captura de pantalla: