Kuinka saada luettelo liitetietojen tiedoista valitussa sähköpostissa Outlookissa?

Vastaanotetuissa sähköpostiviesteissä, joihin on liitetty liitteitä, saatat joskus joutua tuntemaan liitteiden yksityiskohtaiset tiedot, kuten näyttönimen, tiedostonimen ja niin edelleen. Itse asiassa VBA-koodi voi auttaa sinua saamaan helposti liitetietojen luettelon valitussa sähköpostissa Outlookissa. Ole hyvä ja selaa alla olevaa opetusohjelmaa saadaksesi lisätietoja.

Hanki luettelo liitetietojen tiedoista valitussa sähköpostissa Outlookissa

Hanki luettelo liitetietojen tiedoista valitussa sähköpostissa Outlookissa

1. Valitse sähköposti liitteineen, joista haluat saada tiedot.

2. paina muut + F11 avaimet näppäimistöltä avaa Microsoft Visual Basic for Applications ikkunassa.

3. Kaksoisnapsauta sitten Project1 > Microsoft Outlook -objekti > ThisOutlookSession avaa Project1 – ThisOutlookSession ikkuna. Katso kuvakaappaus:

4. Kopioi ja liitä sitten alla oleva VBA-koodi Project1 – ThisOutlookSession -ikkunaan.

VBA-koodi: saat luettelon liitteiden tiedoista

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. Lehdistö F5 näppäimistön näppäintä suorittaaksesi VBA-koodin.

6. Nyt a Makrot valintaikkuna avautuu, napsauta ajaa painiketta.

7. Kun olet napsauttanut ajaa -painiketta Makrot -valintaikkunassa luodaan uusi viesti-ikkuna, jossa on kaikki valitun sähköpostin liitetiedot sähköpostin tekstiosassa. Katso kuvakaappaus:

Huomautuksia: Tätä VBA-koodia voidaan käyttää Outlook 2007:ssä, 2010:ssä ja 2013:ssa

---

Parhaat toimiston tuottavuustyökalut

Breaking News: Kutools for Outlook julkaisee ilmaisen version!

Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!

🤖 Kutools AI : Käyttää edistynyttä tekoälytekniikkaa sähköpostien vaivattoman käsittelyyn, mukaan lukien sähköpostien vastaaminen, yhteenveto, optimointi, laajentaminen, kääntäminen ja kirjoittaminen.

📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle)  /  Ajoita sähköpostien lähettäminen  /  Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia  /  Automaattinen edelleenlähetys (lisäsäännöt)   /  Automaattinen tervehdys   /  Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...

📨 Sähköposti Management: Muista sähköpostit  /  Estä huijaussähköpostit aiheiden ja muiden taholta  /  Poista päällekkäiset sähköpostit  /  Tarkennettu Haku  /  Yhdistä kansiot ...

📁 Liitteet Pro: Erätallennus  /  Erä Irrota  /  Eräpakkaus  /  Automaattinen tallennus   /  Automaattinen irrotus  /  Automaattinen pakkaus ...

🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia   /  Muistuttaa sinua tärkeistä sähköpostiviesteistä  /  Minimoi Outlook sulkemisen sijaan ...

???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä  /   Tietojenkalastelun vastaiset sähköpostit  /  🕘Näytä lähettäjän aikavyöhyke ...

👩🏼‍🤝‍👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä  /  Jaa yhteysryhmä yksittäisiin ryhmiin  /  Poista syntymäpäivämuistutukset ...

Avaa Kutools for Outlook välittömästi yhdellä napsautuksella. Älä odota, lataa nyt ja lisää tehokkuuttasi!

Ominaisuusluettelo Kutooleista Outlookille      Lataa ilmainen versio      Päivitä Professionaliin