Note: The other languages of the website are Google-translated. Back to English

Comment exporter la structure de dossiers d'Outlook vers Excel?

Cet article, je vais vous présenter comment exporter la structure de dossiers d'un compte d'Outlook vers un fichier Excel. Veuillez y parvenir avec les détails de cet article.

Exporter la structure de dossiers d'un compte d'Outlook vers Excel à l'aide du code VBA


Exporter la structure de dossiers d'un compte d'Outlook vers Excel à l'aide du code VBA

Le code VBA suivant peut vous rendre service, veuillez suivre les étapes ci-dessous:

1. Activez Excel et maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Exporter la structure des dossiers d'un compte d'Outlook vers Excel:

Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMainFolderCount As Long
Sub OutlookExportFolderStructureToExcel()
    Dim xFolder As Folder
    Dim xExcelFile As String
    Dim xFileDialog As FileDialog
    On Error Resume Next
    Set xFolder = Outlook.Application.Session.PickFolder
    If xFolder Is Nothing Then Exit Sub
    Set xExcelApp = New Excel.Application
    Set xWb = xExcelApp.Workbooks.Add
    Set xWs = xWb.Sheets(1)
    With xWs.Range("A1", "A1")
         .Value = "Folder Structure"
         .Font.Size = 14
         .Font.Bold = True
    End With
    xMainFolderCount = Len(xFolder.FolderPath) - Len(Replace(xFolder.FolderPath, "\", "")) + 1
    Call ExportToExcel(xFolder.FolderPath, xFolder.Name)
    Call ProcessFolders(xFolder.Folders)
    xWs.Columns("A").AutoFit
    Set xFileDialog = xExcelApp.FileDialog(msoFileDialogSaveAs)
    With xFileDialog
        .AllowMultiSelect = False
        .FilterIndex = 1
        If .Show = 0 Then
            xWb.Close False
            xExcelApp.Quit
            Set xExcelApp = Nothing
            Exit Sub
        End If
        xExcelFile = .SelectedItems.Item(1)
    End With
    xWb.Close True, xExcelFile
    MsgBox "Export complete!", vbExclamation, "Kutools for Outlook"
End Sub

Sub ProcessFolders(ByVal xFlds As Folders)
    Dim xSubFolder As Folder
    For Each xSubFolder In xFlds
        If xSubFolder.Name <> "Conversation Action Settings" And xSubFolder.Name <> "Quick Step Settings" Then
           Call ExportToExcel(xSubFolder.FolderPath, xSubFolder.Name)
           Call ProcessFolders(xSubFolder.Folders)
        End If
    Next
End Sub

Sub ExportToExcel(ByRef xFolderPath As String, xFolderName As String)
    Dim i, n As Long
    Dim xPrefix As String
    Dim xLastRow As Integer
    i = Len(xFolderPath) - Len(Replace(xFolderPath, "\", "")) - xMainFolderCount
    For n = 0 To i
        xPrefix = xPrefix & "-"
    Next
    xFolderName = xPrefix & xFolderName
    xLastRow = xWs.UsedRange.Rows.Count + 1
    xWs.Range("A" & xLastRow) = xFolderName
End Sub

3. Toujours dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Références pour aller à la Références-Projet1 boîte de dialogue et cochez Bibliothèque d'objets Microsoft Excel Option de Références disponibles zone de liste, voir capture d'écran:

structure du dossier d'exportation doc vers Excel 1

4. Puis clique OK bouton, et appuyez F5 clé pour exécuter ce code, un Sélectionner le dossier boîte de dialogue apparaît, veuillez sélectionner le compte de messagerie que vous souhaitez exporter sa structure de dossiers, voir capture d'écran:

structure du dossier d'exportation doc vers Excel 2

5. Et puis, cliquez OK bouton, un Enregistrer le fichier fenêtre s'affiche, veuillez spécifier un emplacement et un nom de fichier pour ce fichier exporté, voir capture d'écran:

structure du dossier d'exportation doc vers Excel 3

6. Enfin, cliquez Enregistrer bouton, et vous pouvez accéder au classeur Excel spécifique que vous avez enregistré pour afficher la structure des dossiers exportés, voir capture d'écran:

structure du dossier d'exportation doc vers Excel 4

 


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 

 

Commentaires (13)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Ce code est génial et fonctionne très bien, merci.
Ce qui serait encore plus génial, ce serait s'il pouvait afficher les tailles (en octets, kilo-octets, mégaoctets, pétaoctets, etc.) et même éventuellement le nombre d'éléments pour chaque dossier.
:)
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, bei mir führt der Code beim Ausführen zu einem Fehler in Zeile 40 "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert". Und anders als in der Beschreibung wir bei mir in Punkt 4. weder nach dem Ordner noch nach dem Mail-Konto gefragt.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Jörg.N
Si vous obtenez le message d'invite d'erreur, veuillez vérifier si vous avez manqué l'étape 3 de cet article.
Vous devez suivre les étapes de l'article étape par étape, s'il y a toujours un problème, veuillez commenter ici.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai procédé comme décrit. L'étape 3 (bibliothèque d'objets MS Excel 16.0) était déjà active. Je l'ai désactivé et réactivé tardivement. Lorsque je clique sur F5 il n'est pas question pour un dossier de stocker. J'obtiens un message d'erreur : Erreur à la ligne 40 : "Fehler beim Kompilieren : Benutzerdefinierter Typ nicht definiert".
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, il semble que ma réponse n'ait pas été envoyée. J'ai retesté le script. Même message d'erreur. Je ne manque pas l'étape3. Ce sujet était/est déjà actif. Je l'ai désactivé puis réactivé plus tard. Même résultat. Il s'arrête toujours à la ligne 40. Une idée ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Jörg Normann

Le code fonctionne bien dans mon Outlook, quelle version d'Outlook avez-vous utilisé ? Ou vous pouvez télécharger la capture d'écran d'erreur ici.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
J'utilise Outlook à partir de MS Office 2019 Pro plus 64 bits en allemand toujours la dernière version. Comment puis-je envoyer une photo ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Peut-être devriez-vous activer tous les paramètres de macros, veuillez procéder comme suit :
Dans votre Outlook, cliquez sur Déposez le > Options > Trust Center > Paramètres du Centre > Paramètres de macro, puis vérifiez Activer toutes les macros et Appliquer les paramètres de sécurité des macros aux compléments installés options.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-option-setting.png

Après avoir terminé ce réglage, veuillez redémarrer Outlook.

S'il vous plaît essayez, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
ich habe exakt den gleichen Fehler wie Jörg. J'ai installé Office Professional Plus 2021 en allemand.
Punkt 3 se trouve sous Extras - Verweise. Auch bei mir war die "MS Excel 16.0 Object Library" devient actif, zusätzlich auch noch "Visual Basic For Applications", "MS Office 16.0 Object Library" et "OLE Automation".
Beim Ausführen ebenfalls der "Fehler beim Kompilieren", der Hilfe-Button verrät dann noch "Der Administrator Ihrer Organization hat den für die Verwendung dieser Funktion erforderlichen Dienst deaktiviert."
Aber welcher ist das und wo / wie kann man ihn aktivieren???
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Érich
Peut-être devriez-vous activer tous les paramètres de macros, veuillez procéder comme suit :
Dans votre Outlook, cliquez sur Déposez le > Options > Trust Center > Paramètres du Centre > Paramètres de macro, puis vérifiez Activer toutes les macros et Appliquer les paramètres de sécurité des macros aux compléments installés options.

Après avoir terminé ce réglage, veuillez redémarrer Outlook.

S'il vous plaît essayez, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Merci de votre réponse rapide. Je pense que j'ai maintenant défini toutes les options nécessaires. Mais je ne trouve pas le "Appliquer les paramètres de sécurité des macros aux compléments installés"
Je voudrais envoyer des captures d'écran, mais je ne trouve pas comment faire sur cette page.
Cordialement Erich Hackel
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Erich,
Si vous ne trouvez pas l'option "Appliquer les paramètres de sécurité des macros aux compléments installés", veuillez consulter la capture d'écran ci-dessous :

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-option-setting.png
Ce commentaire a été minimisé par le modérateur sur le site
Vous devez également sélectionner "Bibliothèque d'objets Microsoft Outlook 16.0" comme référence.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés