Comment exporter et imprimer la liste de tous les dossiers et sous-dossiers dans Outlook ?

Author: Kelly Last Modified: 2025-08-06

En général, vous pouvez appuyer sur les touches "Ctrl" + "6" pour afficher la liste de tous les dossiers dans le volet de navigation d'Outlook. Cependant, vous ne pouvez pas imprimer directement la liste des dossiers. Cet article présente deux scripts VBA pour exporter et imprimer la liste de tous les dossiers et leurs sous-dossiers dans Outlook.

Exporter et imprimer la liste de tous les dossiers et sous-dossiers d'Outlook dans un nouvel email
Exporter et imprimer la liste de tous les dossiers et sous-dossiers d'Outlook dans le Bloc-notes

Exporter et imprimer la liste de tous les dossiers et sous-dossiers d'Outlook dans un nouvel email

Cette méthode présente un script VBA permettant d'exporter la liste de tous les dossiers et leurs sous-dossiers d'un compte email spécifié vers un nouvel email dans Outlook. Ensuite, vous pourrez facilement imprimer la liste des dossiers.

1. Appuyez sur "Alt" + "F11" pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur "Insérer" > "Module", puis collez le code VBA suivant dans la nouvelle fenêtre du module.

VBA : Exporter la liste des dossiers et sous-dossiers dans un nouvel email 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. Appuyez sur "F5" pour exécuter le VBA.

4. Dans la boîte de dialogue Sélectionner un dossier qui s'affiche, sélectionnez le compte email dont vous souhaitez imprimer la liste des dossiers, puis cliquez sur "OK".

Select folder dialog

5. La liste des dossiers du compte sélectionné sera copiée dans un nouvel email comme indiqué ci-dessous. Cliquez sur "Fichier" > "Imprimer" pour imprimer la liste des dossiers.

Generated email with folder list

6. Après impression, fermez le nouvel email sans l'enregistrer.

Exporter et imprimer la liste de tous les dossiers et sous-dossiers d'Outlook dans le Bloc-notes

Cette méthode présente un script VBA permettant d'exporter la liste de tous les dossiers et leurs sous-dossiers d'un compte email spécifié depuis Outlook vers le Bloc-notes. Vous pourrez ensuite facilement imprimer la liste des dossiers.

1. Appuyez sur "Alt" + "F11" pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur "Insérer" > "Module", puis collez le code VBA suivant dans la nouvelle fenêtre du module.

VBA : Exporter la liste de tous les dossiers et sous-dossiers 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. Appuyez sur "F5" pour exécuter le VBA. Dans la boîte de dialogue Sélectionner un dossier qui s'ouvre, sélectionnez le compte email dont vous souhaitez exporter et imprimer la liste des dossiers, puis cliquez sur "OK".

Select folder dialog

4. La boîte de dialogue Arborescence des dossiers de sortie apparaîtra. Cliquez sur "Oui" ou "Non" selon que vous souhaitez inclure une indentation arborescente.

Prompt for tree creation

Un fichier texte nommé "Outlook-Dossiers" est créé et enregistré sur votre bureau comme indiqué ci-dessous :

Outlook-Folders text file

5. Double-cliquez pour ouvrir le nouveau fichier texte, puis cliquez sur "Fichier" > "Imprimer" pour imprimer la liste exportée des dossiers d'Outlook.

Assistant de messagerie IA dans Outlook : Réponses plus intelligentes, communication plus claire (magie en un clic !) GRATUIT

Rationalisez vos tâches quotidiennes dans Outlook avec l'Assistant de messagerie IA de Kutools pour Outlook. Cet outil puissant apprend de vos anciens emails pour offrir des réponses intelligentes et précises, optimiser le contenu de vos emails et vous aider à rédiger et affiner vos messages sans effort.

Cette fonctionnalité prend en charge :

Réponses intelligentes : Obtenez des réponses élaborées à partir de vos conversations passées — personnalisées, précises et prêtes à être envoyées.
Contenu amélioré : Affinez automatiquement votre texte d'email pour plus de clarté et d'impact.
Rédaction sans effort : Fournissez simplement des mots-clés, et laissez l'IA faire le reste, avec plusieurs styles d'écriture.
Extensions intelligentes : Développez vos idées avec des suggestions sensibles au contexte.
Résumé : Obtenez des aperçus concis des longs emails instantanément.
Rayonnement mondial : Traduisez vos emails dans n'importe quelle langue facilement.

Cette fonctionnalité prend en charge :

Réponses intelligentes aux emails
Contenu optimisé
Brouillons basés sur des mots-clés
Extension de contenu intelligente
Résumé d'email
Traduction multilingue

Le meilleur de tout, cette fonctionnalité est entièrement gratuite pour toujours ! Ne tardez pas — téléchargez dès maintenant l'Assistant de messagerie IA et profitez-en

Articles connexes

Afficher ou masquer l'affichage de la liste des dossiers dans Outlook

Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance une version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Utilise une technologie avancée d’intelligence artificielle pour gérer vos emails en toute simplicité, notamment répondre, résumer, optimiser, étendre, traduire et rédiger des emails.

📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...

📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...

🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...

Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez plus, téléchargez maintenant et augmentez votre productivité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Acheter