¿Cómo insertar todos los nombres de los destinatarios en el cuerpo del correo en Outlook?
A veces, puede que necesite 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 del mensaje. Sin embargo, esto puede ser muy tedioso si hay docenas de nombres de destinatarios que deben pegarse. En este artículo, hablaré sobre una manera fácil de resolver 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 puede ayudarlo a insertar todos los nombres de los destinatarios del campo Para en el cuerpo del mensaje; por favor, haga lo siguiente:
1. Inicie Outlook, y luego mantenga presionadas las teclas ALT + F11 para abrir la ventana 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 nombres de 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. Luego, todavía en la ventana Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias para ir al cuadro de diálogo Referencias-Proyecto1, y marque la opción Biblioteca de objetos de Microsoft Word en el cuadro de lista Referencias disponibles, vea la captura de pantalla:
4. Luego haga clic en Aceptar para cerrar el cuadro de diálogo; ahora, debe agregar este código a la Barra de herramientas de acceso rápido.
5. Cree un nuevo mensaje haciendo clic en Nuevo Email; en la ventana Mensaje, haga clic en el icono Personalizar barra de herramientas de acceso rápido, y seleccione Más comandos, vea la captura de pantalla:
6. En el cuadro de diálogo Opciones de Outlook:
(1.) Seleccione Macros desde la lista desplegable Elegir comandos de;
(2.) Luego elija el nombre del código VBA que acaba de insertar;
(3.) Haga clic en el botón Agregar para añadir el código al cuadro de lista Personalizar barra de herramientas de acceso rápido.
7. Luego, un icono de macro se muestra en la Barra de herramientas de acceso rápido como se muestra en la siguiente captura de pantalla:
8. Ahora, cuando haga clic en el icono de la macro, los nombres de los destinatarios del campo Para se insertarán en el cuerpo del mensaje como se muestra en la siguiente captura de pantalla:
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
