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
- Exportez et imprimez la liste de tous les dossiers Outlook et leurs sous-dossiers dans le Bloc-notes
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 votre dernière attestation > Commercial 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 votre dernière attestation > Commercial 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.
Articles Relatifs
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel facile des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Boostez votre productivité Outlook avec des vues à onglets / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.