Jak uzyskać listę folderów w Outlooku?

Czasami struktura drzewa wszystkich folderów poczty (w tym utworzonych folderów osobistych) w okienku nawigacji może pomóc użytkownikom programu Outlook podczas ich pracy. Aby szybko wyświetlić listę folderów w całej strukturze drzewa, kod VBA może ci pomóc. Z tego samouczka dowiesz się, jak łatwo uzyskać listę folderów za pomocą kodu VBA.

Pobierz listę folderów w Outlooku z kodem VBA

Karta Office — włącz edycję i przeglądanie na kartach w pakiecie Microsoft Office, dzięki czemu praca stanie się o wiele łatwiejsza

Czytaj więcej...Pobierz ...

Kutools dla programu Outlook - Zwiększ wydajność programu Outlook dzięki ponad 100 zaawansowanym funkcjom zapewniającym najwyższą wydajność

Automatyzuj wysyłanie e-maili za pomocą Auto CC / BCC, Auto Forward według zasad; wysłać Automatyczna odpowiedź (Poza biurem) bez konieczności korzystania z serwera wymiany...
Otrzymuj przypomnienia takie jak Ostrzeżenie BCC podczas odpowiadania wszystkim, gdy jesteś na liście BCC, oraz Przypomnij o braku załączników za zapomniane załączniki...
Popraw wydajność poczty e-mail dzięki Odpowiedz (wszystkim) z załącznikami, Automatyczne dodawanie pozdrowień lub daty i godziny do podpisu lub tematu, Odpowiedz na wiele e-maili...
Usprawnij wysyłanie e-maili za pomocą Przypomnij sobie e-maile, Narzędzia załączników (Kompresuj wszystko, automatycznie zapisuj wszystko...), Usuń duplikaty, Szybki raport...

Ulepsz swój program Outlook 2021–2010 lub Outlook 365 dzięki tym zaawansowanym funkcjom. Skorzystaj z kompleksowego, 60-dniowego bezpłatnego okresu próbnego i usprawnij korzystanie z poczty e-mail!

Czytaj więcej...Pobierz ...

Pobierz listę folderów w Outlooku z kodem VBA

Aby uzyskać listę folderów w programie Outlook z kodem VBA, wykonaj następujące czynności.

1. wciśnij inny + F11 klawisze na klawiaturze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Następnie kliknij dwukrotnie plik Project1 > Obiekt programu Microsoft Outlook > Ta sesja programu Outlook otworzyć Project1 - ThisOutlookSession okno. Zobacz zrzut ekranu:

3. Następnie skopiuj i wklej poniższy kod VBA do okna Project1 - ThisOutlookSession.

VBA: pobierz listę folderów w 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. wciśnij F5 klawisz na klawiaturze, aby rozpocząć uruchamianie kodu VBA.

5. Teraz a Macro pojawi się okno dialogowe, kliknij run przycisk.

6. Poczekaj na uruchomienie makra. Następnie lista wszystkich folderów poczty e-mail jest natychmiast wyświetlana w utworzonym oknie nowej wiadomości. Możesz go łatwo wydrukować. Zobacz zrzut ekranu: