Jak získat seznam složek v aplikaci Outlook?

Někdy může stromová struktura všech poštovních složek (včetně vytvořených osobních složek) v navigačním podokně uživatelům aplikace Outlook během práce pomoci. Chcete-li rychle zobrazit seznam všech složek stromové struktury, může vám pomoci kód VBA. V tomto kurzu se naučíte, jak snadno získat seznam složek pomocí kódu VBA.

Získejte seznam složek v Outlooku s kódem VBA

Získejte seznam složek v Outlooku s kódem VBA

Seznam složek v Outlooku s kódem VBA získáte následujícím způsobem.

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

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

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

VBA: získejte seznam složek v Outlooku

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
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

4. zmáčkni F5 klávesu na klávesnici spusťte kód VBA.

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

6. Počkejte na spuštění makra. Poté se seznam všech vašich e-mailových složek okamžitě zobrazí v okně vytvořené nové zprávy. Můžete jej snadno vytisknout. Viz snímek obrazovky:

Pozor: Tento kód VBA lze použít pro Outlook 2007, 2010 a 2013.

---

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

Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!

Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!

🤖 Kutools AI : Využívá pokročilou technologii umělé inteligence k snadnému zpracování e-mailů, včetně odpovídání, shrnutí, optimalizace, rozšiřování, překládání a vytváření e-mailů.

???? Automatizace e-mailu: Automatická odpověď (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: Připomenout e-maily  /  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ů   /  Připomeňte si, když přijdou důležité e-maily  /  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 ...

Okamžitě odemkněte Kutools pro Outlook jediným kliknutím –trvale volný. Nečekejte, stáhněte si nyní a zvyšte svou efektivitu!

Seznam funkcí Kutools pro Outlook      Stáhněte si bezplatnou verzi      Upgradujte na Professional