¿Cómo obtener una lista de la información de los adjuntos en el correo seleccionado en Outlook?
Para los correos electrónicos recibidos que vienen con archivos adjuntos, a veces puede ser necesario conocer la información detallada de dichos adjuntos, como el nombre para mostrar, el nombre del archivo, entre otros. De hecho, el código VBA puede ayudarte a obtener fácilmente la lista de información de los adjuntos en el correo electrónico seleccionado actualmente en Outlook. Por favor, consulta el siguiente tutorial para más detalles.
Obtener una lista de la información de los adjuntos en el correo seleccionado en Outlook
- Mejora tu productividad de correo electrónico con tecnología de inteligencia artificial, permitiéndote responder rápidamente correos electrónicos, redactar nuevos, traducir mensajes y mucho más eficientemente.
- Automatiza el envío de correos electrónicos con CC/BCC automático, Reenvío automático por reglas; envía Respuesta automática (Fuera de la oficina) sin necesidad de un servidor de intercambio...
- Recibe recordatorios como Indicar al responder a un correo electrónico en el que estoy en CCO cuando respondes a todos estando en la lista CCO, y Recordatorio cuando falten adjuntos para adjuntos olvidados...
- Mejora la eficiencia del correo electrónico con Responder (todos) Con adjuntos, Auto Agregar Saludo o Fecha y Hora en la firma o Asunto, Responder múltiples correos electrónicos...
- Optimiza el envío de correos electrónicos con Recuperar correos electrónicos, Herramientas de archivos adjuntos (Comprimir archivos adjuntos, Guardar automáticamente), Eliminar duplicados y Informe rápido...
Obtener una lista de la información de los adjuntos en el correo seleccionado en Outlook
1. Selecciona el correo con adjuntos del cual deseas obtener la información.
2. Presiona las teclas Alt + F11 en el teclado para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
3. Luego, haz doble clic en Proyecto1 > Objeto de Microsoft Outlook > EstaSesiónOutlook para abrir la ventana Proyecto1 – EstaSesiónOutlook. Ver captura de pantalla:
4. Luego copia y pega el siguiente código VBA en la ventana Proyecto1 – EstaSesiónOutlook.
Código VBA: obtener una lista de la información de los adjuntos
Option Explicit
Public Sub GetAttachmentList()
Dim selItem As Object
Dim aMail As MailItem
Dim aAttach As attachment
Dim Report As String
For Each selItem In Application.ActiveExplorer.Selection
If selItem.Class = olMail Then
Set aMail = selItem
For Each aAttach In aMail.Attachments
Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
Report = Report & GetAttachmentInfo(aAttach)
Next
Call CreateReportEmail("Attachment Report", Report)
End If
Next
End Sub
Public Function GetAttachmentInfo(attachment As attachment)
Dim Report
GetAttachmentInfo = ""
Report = Report & "Index: " & attachment.Index & vbCrLf
Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
Report = Report & "File Name: " & attachment.FileName & vbCrLf
Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
Report = Report & "Path Name: " & attachment.PathName & vbCrLf
Report = Report & "Position: " & attachment.Position & vbCrLf
Report = Report & "Size: " & attachment.Size & vbCrLf
Report = Report & "Type: " & attachment.Type & vbCrLf
GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub
5. Presiona la tecla F5 en el teclado para ejecutar el código VBA.
6. Ahora aparecerá un cuadro de diálogo Macros; por favor, haz clic en el botón Ejecutar.
7. Después de hacer clic en el botón Ejecutar en el cuadro de diálogo Macros, se creará una nueva ventana de mensaje con toda la información de los adjuntos del correo seleccionado listada dentro del cuerpo del correo. Ver captura de pantalla:
Nota: Este código VBA se puede aplicar a Outlook 2007, 2010 y 2013.
Las mejores herramientas de productividad para Office
Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.
📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...
📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar 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 emails importantes / Minimizar Outlook en vez de cerrar...
👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.


🚀 Descarga con un solo clic — Consigue todos los complementos para Office
Muy recomendado: Kutools para Office (5 en1)
Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.
- ✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
- 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
- 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint