Hogyan szerezhetem meg a mellékletek információinak listáját a kiválasztott levelekben az Outlook programban?

A csatolt mellékletekkel csatolt fogadott e-mailek esetében néha előfordulhat, hogy ismernie kell a mellékletek részletes adatait, például a megjelenített nevet, a fájl nevét és így tovább. Valójában a VBA-kód segítségével könnyedén megkaphatja a mellékletek információinak listáját az Outlook aktuálisan kiválasztott e-mailjeiben. További részletekért böngésszen az alábbi oktatóanyagban.

A mellékletek listájának lekérése a kiválasztott levelekben az Outlook programban

A mellékletek listájának lekérése a kiválasztott levelekben az Outlook programban

1. Válassza ki az e-mailt a mellékletekkel, amelyekről információkat szeretne kapni.

2. megnyomni a más + F11 billentyűk megnyomásával Microsoft Visual Basic for Applications ablak.

3. Ezután kattintson duplán a gombra Project1 > Microsoft Outlook objektum > ThisOutlookSession megnyitni Project1 - ThisOutlookSession ablak. Lásd a képernyőképet:

4. Ezután másolja és illessze be az alábbi VBA kódot a Project1 - ThisOutlookSession ablakba.

VBA kód: a mellékletek információinak listájának lekérése

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. nyomja meg F5 billentyű a billentyűzeten a VBA kód futtatásához.

6. Most a makrók megjelenik a párbeszédpanel, kattintson a gombra futás gombot.

7. Miután a gombra kattintott futás gombot a makrók párbeszédpanelen új üzenetablak jön létre, amelyben a kiválasztott e-mail összes mellékletinformációja szerepel az e-mail törzsében. Lásd a képernyőképet:

Megjegyzések: Ez a VBA-kód alkalmazható az Outlook 2007-re, 2010-re és 2013-ra

---

A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments Pro: Kötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

KATT ide       ingyenes letöltés      Vásárlás