Cette méthode introduira un VBA pour exporter la liste de tous les dossiers et de leurs sous-dossiers dans un compte de messagerie spécifié dans un nouveau courrier électronique dans Outlook, puis vous pourrez facilement imprimer la liste des dossiers.

1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module.

VBA: exporter la liste des dossiers et sous-dossiers dans un nouvel e-mail dans 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. presse F5 clé pour exécuter ce VBA.

4. Dans la boîte de dialogue contextuelle Sélectionner un dossier, sélectionnez le compte de messagerie dont vous souhaitez imprimer la liste des dossiers, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

5. Et maintenant, la liste des dossiers du compte de messagerie spécifié est copiée dans un nouvel e-mail comme illustré ci-dessous. Cliquez s'il vous plait Déposez le > Impression pour imprimer la liste copiée des dossiers.

6. Après l'impression, fermez le nouvel e-mail sans enregistrer.

Cette méthode introduira un VBA pour exporter la liste de tous les dossiers et de leurs sous-dossiers dans un compte de messagerie spécifié d'Outlook vers le Bloc-notes, puis vous pourrez facilement imprimer la liste des dossiers Outlook dans le Bloc-notes.

1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module.

VBA: Exportez la liste de tous les dossiers et sous-dossiers Outlook d'Outlook vers le Bloc-notes

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. presse F5 clé pour exécuter ce VBA. Ensuite, dans la boîte de dialogue d'ouverture de sélection de dossier, sélectionnez le compte de messagerie dont vous souhaitez exporter et imprimer la liste de dossiers, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

4. Ensuite, la boîte de dialogue Arborescence des dossiers de sortie apparaît. Veuillez cliquer sur le Oui bouton ou Non bouton selon vos besoins.

Et maintenant un fichier texte nommé comme Dossiers Outlook est créé et enregistré sur votre bureau comme illustré ci-dessous.

5. Double-cliquez pour ouvrir le nouveau fichier texte, puis cliquez sur Déposez le > Impression pour imprimer la liste exportée des dossiers Outlook.

Un clic pour afficher le nombre total d'éléments dans tous les dossiers du volet de navigation dans Outlook

Normalement, Outlook affiche le nombre d'éléments non lus dans chaque dossier du volet de navigation. Mais, Kutools pour Outlook Tous les dossiers affichent le nombre total d'éléments La fonction peut vous aider à afficher le nombre total d'éléments dans tous les dossiers en un seul clic.

Afficher ou masquer la vue de la liste des dossiers dans Outlook