Mit dieser Methode wird ein VBA eingeführt, mit dem die Liste aller Ordner und ihrer Unterordner in einem angegebenen E-Mail-Konto in eine neue E-Mail in Outlook exportiert wird. Anschließend können Sie die Liste der Ordner problemlos drucken.

1. Drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2 Klicken Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Exportieren Sie die Liste der Ordner und Unterordner in eine neue 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. Drücken Sie F5 Schlüssel zum Ausführen dieses VBA.

4. Wählen Sie im Dialogfeld Ordner auswählen das E-Mail-Konto aus, dessen Ordnerliste Sie drucken möchten, und klicken Sie auf OK Taste. Siehe Screenshot:

5. Und jetzt wird die Ordnerliste des angegebenen E-Mail-Kontos in eine neue E-Mail kopiert (siehe Abbildung unten). bitte klicken Reichen Sie das > Drucken um die kopierte Ordnerliste zu drucken.

6. Schließen Sie nach dem Drucken die neue E-Mail, ohne sie zu speichern.

Mit dieser Methode wird ein VBA eingeführt, mit dem die Liste aller Ordner und ihrer Unterordner in einem angegebenen E-Mail-Konto von Outlook in den Editor exportiert werden kann. Anschließend können Sie die Liste der Outlook-Ordner im Editor problemlos drucken.

1. Drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2 Klicken Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Exportieren Sie die Liste aller Outlook-Ordner und Unterordner von Outlook in den Editor

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. Drücken Sie F5 Schlüssel zum Ausführen dieses VBA. Wählen Sie als Nächstes im sich öffnenden Dialogfeld Ordner auswählen das E-Mail-Konto aus, dessen Ordnerliste Sie exportieren und drucken möchten, und klicken Sie auf OK Taste. Siehe Screenshot:

4. Dann kommt das Dialogfeld Ausgabeordnerbaum. Bitte klicken Sie auf die Ja Knopf oder Nein Taste nach Bedarf.

Und jetzt eine Textdatei mit dem Namen Outlook-Ordner wird wie unten gezeigt auf Ihrem Desktop erstellt und gespeichert.

5. Doppelklicken Sie, um die neue Textdatei zu öffnen, und klicken Sie dann auf Reichen Sie das > Drucken um die exportierte Liste der Outlook-Ordner zu drucken.

Ein Klick, um die Gesamtzahl der Elemente in allen Ordnern im Navigationsbereich in Outlook anzuzeigen

Normalerweise zeigt Outlook die Anzahl der ungelesenen Elemente in jedem Ordner im Navigationsbereich an. Aber Kutools für Outlook Alle Ordner zeigen die Gesamtzahl der Elemente an Mit dieser Funktion können Sie die Gesamtzahl der Elemente in allen Ordnern mit nur einem Klick anzeigen.

Ordnerlistenansicht in Outlook ein- oder ausblenden