Hoe de lijst van alle mappen en submappen in Outlook exporteren en afdrukken?
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 Sub3. 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".
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.
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 Function3. 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".
4. Het venster Mapstructuur exporteren verschijnt. Klik op "Ja" of "Nee" afhankelijk van of u inspringing voor de boomstructuur wilt opnemen.
Er wordt nu een tekstbestand genaamd "Outlook-Mappen" aangemaakt en opgeslagen op uw bureaublad zoals hieronder weergegeven:
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 productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
