Comment obtenir la liste des informations des pièces jointes dans le courrier sélectionné dans Outlook?

Pour les e-mails reçus joints avec des pièces jointes, vous pouvez parfois avoir besoin de connaître les informations détaillées des pièces jointes, telles que le nom d'affichage, le nom du fichier, etc. En fait, le code VBA peut vous aider à obtenir facilement la liste des informations des pièces jointes dans le courrier électronique sélectionné dans Outlook. Veuillez parcourir le didacticiel ci-dessous pour plus de détails.

Obtenir la liste des informations sur les pièces jointes dans le courrier sélectionné dans Outlook

Obtenir la liste des informations sur les pièces jointes dans le courrier sélectionné dans Outlook

1. Sélectionnez l'e-mail avec les pièces jointes dont vous souhaitez obtenir les informations.

2. appuie sur le autre + F11 touches sur le clavier pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. Double-cliquez ensuite sur le Project1 > Objet Microsoft Outlook > Cette session Outlook ouvrir le Projet1 - ThisOutlookSession la fenêtre. Voir la capture d'écran:

4. Puis copiez et collez le code VBA ci-dessous dans la fenêtre Project1 - ThisOutlookSession.

Code VBA: obtenir la liste des informations sur les pièces jointes

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. presse F5 touche du clavier pour exécuter le code VBA.

6. Maintenant un Macros boîte de dialogue apparaît, veuillez cliquer sur le Courir .

7. Après avoir cliqué sur le Courir bouton dans le Macros boîte de dialogue, une nouvelle fenêtre de message sera créée avec toutes les informations sur les pièces jointes de l'e-mail sélectionné répertoriées dans le corps de l'e-mail. Voir la capture d'écran:

Notes: Ce code VBA peut être appliqué à Outlook 2007, 2010 et 2013