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

Autor: Siluvia Naposledy změněno: 2014-09-26

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

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou

Čtěte více...Stáhnout ...

Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu

Automatizujte zasílání e-mailů pomocí Auto CC / BCC, Automatické předávání podle pravidel; poslat Automatická odpověď (Mimo kancelář) bez nutnosti výměnného serveru...
Získejte připomenutí jako Varování BCC když odpovídáte všem, když jste v seznamu BCC, a Připomenout, když chybí přílohy pro zapomenuté přílohy...
Zlepšete efektivitu e-mailu pomocí Odpovědět (vše) s přílohami, Automatické přidání pozdravu nebo data a času do podpisu nebo předmětu, Odpovědět na více e-mailů...
Zjednodušte zasílání e-mailů pomocí Připomenout e-maily, Nástroje pro připojení (Komprimovat vše, Automaticky uložit vše...), Odebrat duplikáty, a Rychlá zpráva...

Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

Čtěte více...Stáhnout ...

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: