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

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

De manière générale, vous pouvez appuyer sur Ctrl + 6 touches pour afficher la liste de tous les dossiers sur le volet de navigation dans Outlook. Cependant, vous ne pouvez pas imprimer la liste des dossiers. Cet article présentera deux scripts VBA pour exporter et imprimer la liste de tous les dossiers et de leurs sous-dossiers dans Outlook.


Exportez et imprimez la liste de tous les dossiers Outlook et de leurs sous-dossiers dans un nouvel e-mail

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.


Exportez et imprimez la liste de tous les dossiers Outlook et leurs sous-dossiers dans le Bloc-notes

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.


tous les dossiers affichent le nombre total de kto 9.00

Articles Relatifs


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 (2)
Noté 5 hors 5 · évaluations 1
Ce commentaire a été minimisé par le modérateur sur le site
Excellent conseil. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Nous a fait gagner beaucoup de temps. Merci pour les instructions détaillées. A fonctionné comme un charme! :)
Noté 5 hors 5
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

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL