¿Cómo incluir todos los nombres de los archivos adjuntos en el cuerpo del mensaje al redactar un correo electrónico en Outlook?
¿Conoces buenas formas de insertar todos los nombres de los archivos adjuntos en el cuerpo del mensaje al redactar un correo electrónico en Outlook? En este artículo te explico cómo hacerlo.
Incluir todos los Nombre del Adjunto en el cuerpo del mensaje al redactar un correo electrónico mediante código VBA
Siga los pasos siguientes para completar esta tarea:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisOutlookSession del panel Project1 (VbaProject.OTM) para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.
Código VBA: Incluir todos los Nombre del Adjunto en el cuerpo del mensaje:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As MailItem
If Item.Class = olMail Then
Set xMailItem = Item
If xMailItem.Attachments.Count > 0 Then
AddAttachmentNamesToBody
End If
End If
End Sub
3. A continuación, haga clic en Insertar > Módulo, copie y pegue el siguiente código en el módulo en blanco que se abre; consulte la captura de pantalla:
Código VBA: Incluir todos los Nombre del Adjunto en el cuerpo del mensaje:
Public Sub AddAttachmentNamesToBody()
Dim xMailItem As MailItem
Dim xAttachment As Attachment
Dim xFileName As String
Dim xInspector As Outlook.Inspector
Dim xDoc As Word.Document
Dim xWdSelection As Word.Selection
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
If xMailItem.Attachments.Count = 0 Then
Exit Sub
End If
xFileName = ""
For Each xAttachment In xMailItem.Attachments
If xFileName = "" Then
xFileName = " <" & xAttachment.FileName & "> "
Else
xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
End If
Next xAttachment
Set xInspector = Outlook.Application.ActiveInspector()
Set xDoc = xInspector.WordEditor
Set xWdSelection = xDoc.Application.Selection
xWdSelection.HomeKey Unit:=wdStory
xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
Set xMailItem = Nothing
End Sub
4. A continuación, haga clic en Herramientas > Referencias en la ventana de Microsoft Visual Basic para Aplicaciones. En el cuadro de diálogo emergente Referencias - Proyecto1, active la opción Microsoft Word Object Library en el cuadro de lista Referencias disponibles. Consulte la captura de pantalla:
 |  |  |
5. Haga clic en Aceptar para cerrar el cuadro de diálogo y, a continuación, añada el botón de macro a la Barra de acceso rápido. En la nueva ventana de Mensaje, seleccione Más comandos en el menú desplegable Personalizar barra de acceso rápido; consulte la captura de pantalla:
6. En el cuadro de diálogo Opciones de Outlook, realice las siguientes operaciones:
(1.) Seleccione Macrosen la lista desplegable Elegir comandos de;
(2.) Haga clic en el nombre de la macro que acaba de insertar;
(3.) A continuación, haga clic en el botón Agregar para añadir la macro a la sección Personalizar barra de acceso rápido.
7. A continuación, haga clic en Aceptar para cerrar el cuadro de diálogo. Ahora, el botón de macro se ha insertado en la Barra de acceso rápido; consulte la captura de pantalla:
8. Ahora, al crear un nuevo mensaje y hacer clic en el botón de macro, los nombres de los archivos adjuntos se insertarán encima del cuerpo del mensaje, tal como se muestra en la siguiente captura de pantalla:
Incluir todos los Nombre del Adjunto en el cuerpo del mensaje al redactar un correo electrónico con una función sencilla
Quizás el código anterior le resulte algo difícil de aplicar. Si dispone de Kutools para Outlook, con su función Copiar nombres podrá copiar rápidamente los nombres de los archivos adjuntos de un mensaje y pegarlos donde los necesite.
Tras instalar Kutools para Outlook, proceda de la siguiente manera:
1. En primer lugar, cree los correos electrónicos que necesite y, a continuación, haga clic en Kutools > Copiar nombres en la nueva ventana de Mensaje; consulte la captura de pantalla:
2. A continuación, aparecerá un cuadro de diálogo que le recordará que los nombres de los archivos adjuntos se han copiado al portapapeles; consulte la captura de pantalla:
3. Ahora solo tiene que pulsar simultáneamente las teclas Ctrl + V para pegar el nombre del adjunto en el cuerpo del mensaje que desee; consulte la captura de pantalla:
Más artículos relacionados:
- Responder a Todos con Adjuntos Originales en Outlook
- Normalmente, al usar la función «Responder a todos» en Outlook para contestar a todos los destinatarios de un mensaje, los archivos adjuntos originales se pierden automáticamente. ¿Es posible incluir esos archivos adjuntos originales al responder a todos en Outlook?
- Descargar/Guardar archivos adjuntos de Outlook en una carpeta específica
- Generalmente, puede guardar todos los archivos adjuntos de un correo electrónico haciendo clic en **Archivos adjuntos > Guardar todos los archivos adjuntos** en Outlook. Pero, si necesita guardar todos los archivos adjuntos de **todos los correos recibidos**, ¿tiene alguna idea? Este artículo presenta dos soluciones para descargar automáticamente los archivos adjuntos de Outlook en una carpeta específica.
- Cambiar la ubicación predeterminada de los archivos adjuntos en Outlook
- ¿Cansado de tener que buscar cada vez la ubicación de los archivos adjuntos que especificó al iniciar Outlook? En este tutorial le mostraremos cómo cambiar la carpeta predeterminada para guardar archivos adjuntos. Una vez configurada, dicha carpeta se abrirá automáticamente cada vez que guarde un archivo adjunto, incluso tras reiniciar Outlook.
- Eliminar todos los archivos adjuntos de un correo electrónico en Outlook
- Normalmente, al previsualizar un correo electrónico, puede eliminar un archivo adjunto haciendo clic con el botón derecho y seleccionando **Eliminar archivo adjunto**. Sin embargo, cuando un mensaje contiene muchos archivos adjuntos, eliminarlos uno por uno resulta tedioso. Por eso, le ofrecemos dos sencillos trucos para borrar todos los archivos adjuntos de un solo correo electrónico e incluso eliminarlos de varios mensajes a la vez en Outlook.
Las mejores herramientas de productividad para Office
¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!
📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...
📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…
📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...
🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…
👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...
👩🏼🤝👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.
🚀 Descarga con un solo clic — Obtenga todos los complementos de Office
Muy recomendado: Kutools for Office (5 en 1)
Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!
- ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
- 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
- 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint