Hoe de lijst van alle mappen en submappen in Outlook exporteren en afdrukken?

Author Kelly Last modified 2025-08-26

Over het algemeen kunt u op "Ctrl" + "6" drukken om de lijst van alle mappen in het Navigatievenster in Outlook te bekijken. Echter, u kunt de lijst met mappen niet direct afdrukken. Dit artikel introduceert twee VBA-scripts om de lijst van alle mappen en hun submappen in Outlook te exporteren en af te drukken.

Exporteer en druk de lijst van alle Outlook-mappen en hun submappen af in een nieuwe e-mail
Exporteer en druk de lijst van alle Outlook-mappen en hun submappen af in Kladblok

Exporteer en druk de lijst van alle Outlook-mappen en hun submappen af in een nieuwe e-mail

Deze methode introduceert een VBA-script om de lijst van alle mappen en hun submappen in een bepaald e-mailaccount naar een nieuwe e-mail in Outlook te exporteren. Vervolgens kunt u de maplijst gemakkelijk afdrukken.

1. Druk op "Alt" + "F11" om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op "Invoegen" > "Module", en plak de volgende VBA-code in het nieuwe modulevenster.

VBA: Exporteer de lijst van mappen en submappen in een nieuwe e-mail in Outlook

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.MailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)
Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

For i = CurrentFolder.Folders.Count To 1 Step -1
    Set oFolder = CurrentFolder.Folders(i)
    sFolderPaths = oFolder.FolderPath
    gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
    If oSubFolder.Name <> "Deleted Items" Then
        ProcessFolder oSubFolder
    End If
Next
End Sub

3. Druk op "F5" om de VBA uit te voeren.

4. Selecteer in het pop-upvenster Selecteer Map het e-mailaccount waarvan u de maplijst wilt afdrukken en klik op "OK".

Select folder dialog

5. De maplijst van het geselecteerde account wordt gekopieerd naar een nieuwe e-mail zoals hieronder weergegeven. Klik op "Bestand" > "Afdrukken" om de maplijst af te drukken.

Generated email with folder list

6. Sluit na het afdrukken de nieuwe e-mail zonder deze op te slaan.

Exporteer en druk de lijst van alle Outlook-mappen en hun submappen af in Kladblok

Deze methode introduceert een VBA-script om de lijst van alle mappen en hun submappen in een bepaald e-mailaccount vanuit Outlook naar Kladblok te exporteren. Vervolgens kunt u de maplijst gemakkelijk afdrukken.

1. Druk op "Alt" + "F11" om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op "Invoegen" > "Module", en plak vervolgens de volgende VBA-code in het nieuwe modulevenster.

VBA: Exporteer de lijst van alle Outlook-mappen en submappen vanuit Outlook naar Kladblok

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

Set objOutlook = CreateObject("Outlook.Application")
Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
    Set Folders = F.Folders
    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
    If Result = 6 Then
        gCreateTree = True
    Else
        gCreateTree = False
    End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
    gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders Folders

    Set F = Nothing
    Set Folders = Nothing
    Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F
For Each F In Folders
    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
    CreateFolderTree = Mid(OLKfolderpath, 3)
Else
    Dim i, x, OLKprefix
    i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))
    For x = gBase To i
        OLKprefix = OLKprefix & "-"
    Next
    CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. Druk op "F5" om de VBA uit te voeren. Selecteer in het venster Selecteer Map dat verschijnt het e-mailaccount waarvan u de maplijst wilt exporteren en afdrukken, en klik vervolgens op "OK".

Select folder dialog

4. Het venster Mapstructuur exporteren verschijnt. Klik op "Ja" of "Nee" afhankelijk van of u inspringing voor de boomstructuur wilt opnemen.

Prompt for tree creation

Er wordt nu een tekstbestand genaamd "Outlook-Mappen" aangemaakt en opgeslagen op uw bureaublad zoals hieronder weergegeven:

Outlook-Folders text file

5. Dubbelklik om het nieuwe tekstbestand te openen, klik vervolgens op "Bestand" > "Afdrukken" om de geëxporteerde lijst van Outlook-mappen af te drukken.

AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS

Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.

Deze functie ondersteunt:

Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.

Deze functie ondersteunt:

Slimme e-mailreacties
Geoptimaliseerde inhoud
Op trefwoorden gebaseerde concepten
Intelligente inhoudsuitbreiding
E-mailsamenvatting
Meertalige vertaling

Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet

Gerelateerde artikelen

Toon of verberg de weergave van de maplijst in Outlook

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite