Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

D'une manière générale, vous pouvez appuyer sur Ctrl + 6 clés pour afficher la liste de tous les dossiers dans le volet de navigation dans Outlook. Cependant, vous ne pouvez pas imprimer 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.

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

En règle générale, Outlook affiche le nombre d'éléments non lus dans chaque dossier du volet de navigation. Mais, Kutools pour Outlook Tous les dossiers Afficher le nombre total d'éléments fonctionnalité peut vous aider à afficher le nombre total d'éléments dans tous les dossiers en un seul clic. Cliquez pour un essai gratuit 60-day sans limitation!
tous les dossiers montrent le nombre total kto 9.00

Kutools for Outlook: 100 + Nouveaux outils avancés pour Outlook.
Office Tab: Activer l'édition à onglets et la navigation dans Office, Tout comme Chrome, Firefox, IE 8 / 9 / 10.
Menu classique: Rapportez les anciens menus et les barres d'outils dans Office 2007, 2010, 2013, 2016 et 2019.

flèche bleue droite bulle Exporter et imprimer la liste de tous les dossiers Outlook et leurs sous-dossiers dans un nouveau courrier électronique

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

1. presse autre + F11 clés 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 nouveau courrier électronique 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 cette VBA.

4. Dans la boîte de dialogue Sélectionner un dossier, sélectionnez le compte de messagerie dont vous souhaitez imprimer la liste des dossiers, puis cliquez sur 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 Fichier > Imprimer pour imprimer la liste de dossiers copiée.

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


flèche bleue droite bulle Exporter et imprimer la liste de tous les dossiers Outlook et de ses sous-dossiers dans le Bloc-notes

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

1. presse autre + F11 clés 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 de tous les dossiers et sous-dossiers Outlook à partir 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 cette VBA. Ensuite, dans la boîte de dialogue Ouvrir un dossier, sélectionnez le compte de messagerie dont vous souhaitez exporter et imprimer la liste de dossiers, puis cliquez sur OK bouton. Voir la capture d'écran:

4. Ensuite, la boîte de dialogue Output Folder Tree arrive. S'il vous plaît cliquer sur le Oui bouton ou Non bouton comme vous avez besoin.

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

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


flèche bleue droite bulleArticles liés



Kutools for Outlook

Plus que les fonctions avancées 100 pour Outlook 2010, 2013, 2016, 2019 et 365

Capture d&#39;écran de kutools pour Outlook tiny pour la bannière 201812

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

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.