Hur får jag en lista över bilagor i vald post i Outlook?

För mottagna e-postmeddelanden som bifogas bilagor kan du ibland behöva veta detaljerad information om bilagorna, till exempel visningsnamn, filnamn och så vidare. Egentligen kan VBA-kod hjälpa dig att enkelt få en lista över bilagor i aktuell vald e-post i Outlook. Vänligen bläddra i handledningen nedan för mer information.

Få en lista över bilagor i valda e-postmeddelanden i Outlook

Få en lista över bilagor i valda e-postmeddelanden i Outlook

1. Välj e-postmeddelandet med bilagor som du vill få information om.

2. tryck på andra + F11 tangenter på tangentbordet för att öppna Microsoft Visual Basic för applikationer fönster.

3. Dubbelklicka sedan på Project1 > Microsoft Outlook-objekt > ThisOutlookSession att öppna Project1 - ThisOutlookSession fönster. Se skärmdump:

4. Kopiera och klistra in nedanstående VBA-kod i Project1 - ThisOutlookSession-fönstret.

VBA-kod: få en lista över bilagor

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. Tryck F5 på tangentbordet för att köra VBA-koden.

6. Nu a Makron dialogrutan dyker upp, klicka på Körning knapp.

7. Efter att ha klickat på Körning knapp i Makron dialogrutan skapas ett nytt meddelandefönster med all information om bilagor för valt e-postmeddelande listat i e-posttexten. Se skärmdump:

Anmärkningar: Den här VBA-koden kan tillämpas på Outlook 2007, 2010 och 2013

---

Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor Pro: Batch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp