Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

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

Over het algemeen kunt u op drukken Ctrl + 6 om de lijst met alle mappen in het navigatiedeelvenster in Outlook te bekijken. U kunt de lijst met mappen echter niet afdrukken. Dit artikel introduceert twee VBA-scripts om de lijst met alle mappen en bijbehorende submappen in Outlook te exporteren en af ​​te drukken.

Eén klik om het totale aantal items in alle mappen in het navigatiedeelvenster in Outlook weer te geven

Normaal gesproken toont Outlook het aantal ongelezen items in elke map in het navigatiedeelvenster. Maar, Kutools voor Outlook Alle mappen tonen het totale aantal items functie kan u helpen met het tonen van het totale aantal items in alle mappen met slechts één klik. Klik voor onbeperkte gratis 60-dagen op proef!
alle mappen tonen het totale aantal kto 9.00

Kutools for Outlook: 100 + nieuwe geavanceerde hulpmiddelen voor Outlook.
Office Tab: Tabbladen bewerken en browsen in Office inschakelen, Net als Chrome, Firefox, IE 8 / 9 / 10.
Klassiek menu: Breng oude menu's en werkbalken terug naar Office 2007, 2010, 2013, 2016 en 2019.

pijl blauwe rechterbel Exporteer en print de lijst met alle Outlook-mappen en hun submappen in nieuwe e-mail

Deze methode introduceert een VBA om de lijst met alle mappen en hun submappen in een gespecificeerd e-mailaccount te exporteren naar een nieuwe e-mail in Outlook en vervolgens kunt u de lijst met mappen eenvoudig afdrukken.

1. druk op anders + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. klikken bijvoegsel > moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.

VBA: exporteer de lijst met 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 sleutel om deze VBA uit te voeren.

4. Selecteer in het pop-upvenster Map selecteren het e-mailaccount waarvan u de lijst met mappen wilt afdrukken en klik op de OK knop. Zie screenshot:

5. En nu wordt de mappenlijst van het opgegeven e-mailaccount gekopieerd naar een nieuw e-mailadres zoals hieronder getoond. Klik alstublieft filet > Bedrukte stof om de gekopieerde lijst met mappen af ​​te drukken.

6. Sluit de nieuwe e-mail na het afdrukken zonder te bewaren.


pijl blauwe rechterbel Exporteer en print de lijst met alle Outlook-mappen en hun submappen in Kladblok

Deze methode introduceert een VBA om de lijst met alle mappen en hun submappen in een gespecificeerde e-mailaccount van Outlook naar Kladblok te exporteren en vervolgens kunt u de lijst met Outlook-mappen in het Kladblok eenvoudig afdrukken.

1. druk op anders + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. klikken bijvoegsel > moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.

VBA: exporteer de lijst met alle Outlook-mappen en -submappen van 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 sleutel om deze VBA uit te voeren. Selecteer vervolgens in het dialoogvenster Map selecteren de e-mailaccount waarvan u de mappenlijst wilt exporteren en afdrukken en klik op de OK knop. Zie screenshot:

4. Vervolgens verschijnt het dialoogvenster Mapstructuur exporteren. Klik op de Ja knop of Nee knop als je nodig hebt.

En nu een tekstbestand met de naam Outlook-mappen wordt gemaakt en opgeslagen op uw bureaublad zoals hieronder afgebeeld.

5. Dubbelklik om het nieuwe tekstbestand te openen en klik vervolgens op filet > Bedrukte stof om de geëxporteerde lijst met Outlook-mappen af ​​te drukken.


pijl blauwe rechterbelGerelateerde artikelen



Kutools for Outlook

Meer dan 100 geavanceerde functies voor Outlook 2010, 2013, 2016, 2019 en 365

screen shot kutools voor outlook tiny voor banner 201812

Meer functies | Gratis download | Alleen $ 39.00 voor honderden functies

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.