Saltar al contenido principal

¿Cómo obtener la lista de información de archivos adjuntos en el correo seleccionado en Outlook?

Para los correos electrónicos recibidos que se adjuntan con archivos adjuntos, a veces es posible que deba conocer la información detallada de los archivos adjuntos, como el nombre para mostrar, el nombre del archivo, etc. En realidad, el código VBA puede ayudarlo a obtener fácilmente la lista de información de archivos adjuntos en el correo electrónico seleccionado actualmente en Outlook. Consulte el tutorial a continuación para obtener más detalles.

Obtenga una lista de la información de los archivos adjuntos en el correo seleccionado en Outlook

Pestaña Office: habilite la edición y navegación con pestañas en Microsoft Office, haciendo que el trabajo sea muy sencillo
Kutools para Outlook: mejore Outlook con más de 100 funciones avanzadas para una eficiencia superior
Mejore su Outlook 2021 - 2010 o Outlook 365 con estas funciones avanzadas. ¡Disfruta de una prueba completa gratuita de 60 días y mejora tu experiencia de correo electrónico!

flecha azul burbuja derechaObtenga una lista de la información de los archivos adjuntos en el correo seleccionado en Outlook

1. Seleccione el correo electrónico con archivos adjuntos del que desea obtener la información de los mismos.

2. presione el otro + F11 teclas en el teclado para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Luego haga doble clic en el Proyecto1 > Objeto de Microsoft Outlook > Esta sesión de Outlook para abrir el Proyecto1 - ThisOutlookSession ventana. Ver captura de pantalla:

4. Luego copie y pegue el siguiente código VBA en la ventana Project1 - ThisOutlookSession.

Código de VBA: obtenga la lista de información de archivos 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. Prensa F5 Tecla en el teclado para ejecutar el código VBA.

6. Ahora un Macros aparece el cuadro de diálogo, haga clic en el Ejecutar del botón.

7. Después de hacer clic en Ejecutar botón en el Macros cuadro de diálogo, se creará una nueva ventana de mensaje con toda la información de los archivos adjuntos del correo electrónico seleccionado en el cuerpo del correo electrónico. Ver captura de pantalla:

Note: Este código VBA se puede aplicar a Outlook 2007, 2010 y 2013


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi - I'm trying to figure out a way to set an automatic response which lists all the attachments they have sent. If this can include a file index for folders that would also be brilliant.


Basically - we receive emails with document submissions, I already have an automatic response set up to thank them for their submission but if this could now include "the documents you submitted are as below:... etc" that would help massively.


If somebody could help with this that would be brilliant! Thanks!
This comment was minimized by the moderator on the site
Hello. can you imagine any possibility to fetch/open a specific attachment directly from your list (e.g. a link embedded). Thank You in advance Sandra
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations