¿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

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

Ú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!

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar emails.

📧 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...

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

Lista de funciones de Kutools para Outlook Descargar versión gratuita Actualizar a Profesional