¿Cómo enumerar todos los nombres de los adjuntos en el cuerpo del mensaje al redactar un correo electrónico en Outlook?
¿Existen buenas maneras de insertar todos los nombres de los adjuntos en el cuerpo del mensaje al redactar un correo electrónico en Outlook? En este artículo, hablaré sobre cómo resolver esta tarea en Outlook.
Enumerar todos los nombres de los adjuntos en el cuerpo del mensaje al redactar un correo electrónico con código VBA
Por favor, sigue los siguientes pasos para completar esta tarea:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisOutlookSession desde el panel Project1(VbaProject.OTM) para abrir el modo, y luego copia y pega el siguiente código en el módulo en blanco.
Código VBA: Enumerar todos los nombres de los adjuntos 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. Luego continúa haciendo clic en Insertar > Módulo, copia y pega el siguiente código en el módulo en blanco abierto, consulta la captura de pantalla:
Código VBA: Enumerar todos los nombres de los adjuntos 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. Y luego haz clic en Herramientas > Referencias en la ventana de Microsoft Visual Basic para Aplicaciones, en el cuadro de diálogo Referencias-Project1 que aparece, selecciona la opción Microsoft Word Object Library de la lista de referencias disponibles, consulta la captura de pantalla:
 |  |  |
5. Haz clic en Aceptar para salir del cuadro de diálogo, luego debes agregar el botón de macro a la Barra de herramientas de acceso rápido. En la nueva ventana de Mensaje, selecciona Más comandos desde el menú desplegable Personalizar barra de herramientas de acceso rápido, consulta la captura de pantalla:
6. En el cuadro de diálogo Opciones de Outlook, realiza las siguientes operaciones:
(1.) Selecciona Macros desde la lista desplegable Elegir comandos de;
(2.) Haz clic en el nombre de la macro que acabas de insertar;
(3.) Y luego haz clic en el botón Agregar para añadir la macro a la Barra de herramientas de acceso rápido personalizada.
7. Luego haz clic en Aceptar para cerrar el cuadro de diálogo, ahora, el botón de la macro ha sido insertado en la Barra de herramientas de acceso rápido, consulta la captura de pantalla:
8. Ahora, cuando creas un nuevo mensaje y haces clic en el botón de la macro, los nombres de los adjuntos se insertarán encima del cuerpo del mensaje como se muestra en la siguiente captura de pantalla:
Enumerar todos los nombres de los adjuntos en el cuerpo del mensaje al redactar un correo electrónico con una función simple
Quizás el código anterior sea algo difícil de aplicar para ti, si tienes Kutools para Outlook, con su función Copiar nombres, puedes copiar rápidamente los nombres de los adjuntos de un mensaje y pegarlos donde lo necesites.
Después de instalar Kutools para Outlook, por favor haz lo siguiente:
1. Primero, crea el nuevo correo electrónico que necesitas, y luego haz clic en Kutools > Copiar nombres en la nueva ventana de Mensaje, consulta la captura de pantalla:
2. Y luego, aparecerá un cuadro de diálogo indicándote que los nombres de los adjuntos han sido copiados al portapapeles, consulta la captura de pantalla:
3. Ahora, solo necesitas presionar las teclas Ctrl + V juntas para pegar los nombres de los adjuntos en el cuerpo del mensaje que necesitas, consulta la captura de pantalla:
Más artículos relacionados:
- Responder a Todos Con Adjuntos Originales En Outlook
- Normalmente, cuando utilizas la función Responder a Todos para responder el mensaje a todos los destinatarios en Outlook, los adjuntos originales se perderán automáticamente. ¿Es posible adjuntar los adjuntos originales al responder a todos en Outlook?
- Descargar/Guardar Adjuntos De Outlook En Una Carpeta Específica
- Generalmente, puedes guardar todos los adjuntos de un correo electrónico haciendo clic en Adjuntos > Guardar todos los adjuntos en Outlook. Pero, si necesitas guardar todos los adjuntos de todos los correos recibidos y los que estás recibiendo, ¿alguna idea? Este artículo presentará dos soluciones para descargar automáticamente los adjuntos de Outlook a una carpeta específica.
- Cambiar La Ubicación Predeterminada Para Guardar Adjuntos En Outlook
- ¿Te has cansado de buscar la ubicación de los adjuntos que has especificado cada vez que inicias Outlook? En este tutorial, te mostraremos cómo cambiar la ubicación predeterminada de los adjuntos. Después de eso, la carpeta de guardado de adjuntos especificada se abrirá automáticamente cada vez que guardes los adjuntos incluso si reinicias Outlook.
- Eliminar Todos Los Adjuntos De Un Correo Electrónico En Outlook
- Normalmente, cuando estás viendo un correo electrónico, puedes eliminar un adjunto haciendo clic derecho y seleccionando la opción Eliminar adjunto. A veces puede haber muchos adjuntos en un mensaje de correo electrónico, y será tedioso eliminarlos uno por uno. Aquí te ofrecemos dos trucos fáciles para eliminar todos los adjuntos de un correo electrónico y eliminar todos los adjuntos de varios correos electrónicos también en Outlook.
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza una versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 funciones increíbles! ¡Haz clic para descargarlo ahora!
📧 Automatización de Email: Respuesta automática (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con varios destinatarios en mensajes individuales ...
📨 Gestión de Email: Recuperar correos electrónicos / Bloquear correos sospechosos 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 de la Interfaz: 😊Más emojis atractivos y geniales / Recibe avisos cuando lleguen emails 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 en lote contactos de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños ...
Utiliza Kutools en tu idioma preferido; ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!
