Hoe krijg ik een lijst met mappen in Outlook?

Soms kan de boomstructuur van alle e-mailmappen (inclusief de gemaakte persoonlijke mappen) in het navigatiedeelvenster wat hulp bieden voor Outlook-gebruikers tijdens hun werk. Om snel de hele boomstructuurmappen weer te geven, kan de VBA-code u helpen. In deze zelfstudie leert u hoe u eenvoudig een lijst met mappen kunt krijgen met VBA-code.

Krijg een lijst met mappen in Outlook met VBA-code

Krijg een lijst met mappen in Outlook met VBA-code

Ga als volgt te werk om een ​​lijst met mappen in Outlook met VBA-code te krijgen.

1. druk de anders + F11 toetsen op het toetsenbord om de. te openen Microsoft Visual Basic voor toepassingen venster.

2. Dubbelklik vervolgens op het Project1 > Microsoft Outlook-object > DezeOutlookSessie om de te openen Project1 - ThisOutlookSession venster. Zie screenshot:

3. Kopieer en plak vervolgens de onderstaande VBA-code in het venster Project1 - ThisOutlookSession.

VBA: krijg een lijst met mappen in Outlook

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. druk de F5 toets op het toetsenbord om de VBA-code uit te voeren.

5. Nu een Macro dialoogvenster verschijnt, klik dan op het lopen knop.

6. Wacht tot de macro loopt. Vervolgens wordt de lijst met al uw e-mailmappen onmiddellijk weergegeven in een nieuw aangemaakt berichtvenster. U kunt het gemakkelijk uitprinten. Zie screenshot:

Opmerking:: Deze VBA-code kan worden toegepast op Outlook 2007, 2010 en 2013.

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

• Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
• BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
• Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
• Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
• Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.

Lees verder... Download nu...