Hoe krijg ik een lijst met bijlageninformatie in geselecteerde e-mail in Outlook?

Voor de ontvangen e-mails die zijn bijgevoegd met bijlagen, moet u soms de gedetailleerde informatie van de bijlagen weten, zoals de weergavenaam, de bestandsnaam enzovoort. Eigenlijk kan VBA-code u helpen eenvoudig de lijst met bijlageninformatie te krijgen in de huidige geselecteerde e-mail in Outlook. Blader door de onderstaande tutorial voor meer details.

Krijg een lijst met bijlageninformatie in geselecteerde e-mail in Outlook

Krijg een lijst met bijlageninformatie in geselecteerde e-mail in Outlook

1. Selecteer de e-mail met bijlagen waarvan u de informatie wilt ontvangen.

2. druk de anders + F11 toetsen op het toetsenbord om de. te openen Microsoft Visual Basic voor toepassingen venster.

3. Dubbelklik vervolgens op het Project1 > Microsoft Outlook-object > DezeOutlookSessie om de te openen Project1 - ThisOutlookSession venster. Zie screenshot:

4. Kopieer en plak vervolgens de onderstaande VBA-code in het venster Project1 - ThisOutlookSession.

VBA-code: krijg een lijst met informatie over bijlagen

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. druk op F5 toets op het toetsenbord om de VBA-code uit te voeren.

6. Nu een Macro's dialoogvenster verschijnt, klik dan op het lopen knop.

7. Na het klikken op de lopen knop in de Macro's dialoogvenster wordt een nieuw berichtvenster gemaakt met alle bijlageninformatie van de geselecteerde e-mail in de hoofdtekst van de e-mail. Zie screenshot:

Note: Deze VBA-code kan worden toegepast op Outlook 2007, 2010 en 2013

---

Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen Pro: Batch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

Lees meer       Gratis download      Koop nu jouw