Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

Office-tabblad - Schakel bewerken en browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen 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 mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2010-2019 en 365. Volledige gratis proefperiode van 60 dagen.

pijl blauw rechts belKrijg 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.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luis Gonzalez · 5 years ago
    For get the size of the folders how do you do it?
  • To post as a guest, your comment is unpublished.
    Master Blaster · 6 years ago
    Working perfect with OLK 365, Thank you!