Jak získat seznam informací o přílohách ve vybrané poště v aplikaci Outlook?

U přijatých e-mailů, které jsou připojeny k přílohám, možná budete potřebovat znát podrobné informace o přílohách, například zobrazovaný název, název souboru atd. Ve skutečnosti vám kód VBA pomůže snadno získat seznam informací o přílohách v aktuálním vybraném e-mailu v aplikaci Outlook. Další podrobnosti najdete v níže uvedeném výukovém programu.

Získejte seznam informací o přílohách ve vybrané poště v aplikaci Outlook

Získejte seznam informací o přílohách ve vybrané poště v aplikaci Outlook

1. Vyberte e-mail s přílohami, o kterých chcete získat informace.

2. zmáčkni Další + F11 na klávesnici otevřete Microsoft Visual Basic pro aplikace okno.

3. Poté poklepejte na ikonu Project1 > Objekt Microsoft Outlook > ThisOutlookSession k otevření Project1 - ThisOutlookSession okno. Viz snímek obrazovky:

4. Poté zkopírujte a vložte níže uvedený kód VBA do okna Project1 - ThisOutlookSession.

Kód VBA: získejte seznam informací o přílohách

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. lis F5 klávesu na klávesnici pro spuštění kódu VBA.

6. Nyní a makra objeví se dialogové okno, klikněte prosím na Běh .

7. Po kliknutí na tlačítko Běh tlačítko v makra V dialogovém okně bude vytvořeno nové okno se zprávou se všemi informacemi o přílohách vybraného e-mailu uvedenými v těle e-mailu. Viz screenshot:

Poznámka: Tento kód VBA lze použít pro Outlook 2007, 2010 a 2013

---

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy Pro: Dávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup