¿Cómo enumerar todos los nombres de los archivos adjuntos en el cuerpo del mensaje al redactar un correo electrónico en Outlook?
¿Existen buenas maneras 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, hablaré sobre cómo resolver esta tarea en Outlook.
Enumerar todos los nombres de los archivos adjuntos en el cuerpo del mensaje al redactar un correo electrónico con código VBA
Por favor, siga los siguientes pasos para completar esta tarea:
1. Mantenga 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, haga doble clic en ThisOutlookSession en el panel Project1(VbaProject.OTM) para abrir el modo, y luego copie y pegue el siguiente código en el módulo en blanco.
Código VBA: Enumerar todos los nombres de los archivos 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úe haciendo clic en Insertar > Módulo, copie y pegue el siguiente código en el módulo en blanco abierto, vea la captura de pantalla:
Código VBA: Enumerar todos los nombres de los archivos 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 haga clic en Herramientas > Referencias en la ventana de Microsoft Visual Basic para Aplicaciones, en el cuadro de diálogo Referencias-Proyecto1 que aparece, marque la opción Biblioteca de objetos de Microsoft Word en el cuadro de lista de Referencias disponibles, vea la captura de pantalla:
 |  |  |
5. Haga clic en Aceptar para salir del cuadro de diálogo, luego debe agregar el botón de macro a la Barra de herramientas de acceso rápido. En la nueva ventana Mensaje, elija Más comandos desde el menú desplegable Personalizar barra de herramientas de acceso rápido, vea la captura de pantalla:
6. En el cuadro de diálogo Opciones de Outlook, realice las siguientes operaciones:
(1.) Seleccione Macros desde la lista desplegable Elegir comandos de;
(2.) Haga clic en el nombre de la macro que acaba de insertar;
(3.) Y luego haga clic en el botón Agregar para añadir la macro a la Barra de herramientas de acceso rápido personalizada.
7. Luego haga clic en Aceptar para cerrar el cuadro de diálogo, ahora, el botón de macro se ha insertado en la Barra de herramientas de acceso rápido, vea la captura de pantalla:
8. Ahora, cuando cree un nuevo mensaje y haga clic en el botón de macro, los nombres de los archivos adjuntos se insertarán encima del cuerpo del mensaje como se muestra en la siguiente captura de pantalla:
Enumerar todos los nombres de los archivos 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 usted, si tiene Kutools para Outlook, con su función Copiar nombres, puede copiar rápidamente los nombres de los archivos adjuntos de un mensaje y pegarlos donde los necesite.
Después de instalar Kutools para Outlook, por favor, haga lo siguiente:
1. Primero, cree el nuevo correo electrónico que necesita, y luego haga clic en Kutools > Copiar nombres en la nueva ventana Mensaje, vea la captura de pantalla:
2. Y luego, aparecerá un cuadro de aviso para recordarle que los nombres de los archivos adjuntos se han copiado al portapapeles, vea la captura de pantalla:
3. Ahora, solo necesita presionar las teclas Ctrl + V juntas para pegar los nombres de los archivos adjuntos en el cuerpo del mensaje que necesita, vea la captura de pantalla:
Más artículos relacionados:
- Responder a Todos Con Los Adjuntos Originales En Outlook
- Normalmente, cuando utiliza 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 Desde Outlook A Una Carpeta Específica
- En general, puede guardar todos los adjuntos de un correo electrónico haciendo clic en Adjuntos > Guardar todos los adjuntos en Outlook. Pero, si necesita guardar todos los adjuntos de todos los correos electrónicos recibidos y 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
- ¿Se ha cansado de buscar la ubicación de los adjuntos que ha especificado cada vez que inicia Outlook? En este tutorial, le 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 guarde los adjuntos incluso si reinicia Outlook.
- Eliminar Todos Los Adjuntos De Un Correo Electrónico En Outlook
- Normalmente, cuando está viendo un correo electrónico, puede eliminar un adjunto haciendo clic derecho y seleccionando el elemento Eliminar adjunto. A veces puede haber muchos adjuntos en un mensaje de correo electrónico, y será tedioso eliminarlos uno por uno. Aquí le 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 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...
