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

or

Comment ouvrir tous les sous-dossiers à partir d'Outlook?

Si vous créez plusieurs sous-dossiers dans vos dossiers Outlook, comment pouvez-vous ouvrir ou développer immédiatement tous ces sous-dossiers? Cet article, je vais introduire un code VBA utile pour vous aider à résoudre ce travail.

Ouvrez ou développez tous les sous-dossiers à partir d'Outlook avec du code VBA


Ouvrez ou développez tous les sous-dossiers à partir d'Outlook avec du code VBA

Appliquez le code VBA suivant pour développer tous les sous-dossiers de tous les comptes Outlook:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez la macro suivante dans la fenêtre Module.

Code VBA: Ouvrez tous les sous-dossiers à partir d'Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder en tant que dossier Dim xAllFolders en tant que dossiers Dim xFolder en tant que dossier en cas d'erreur Reprise suivante Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Définissez xAllFolders = Application.Session.Folders pour chaque xFolder dans un processus de traitement éventuel. ActiveExplorer.CurrentFolder = xCurrentFolder Fin de Sub Sub ProcessFolders (ByVal CurFolder en tant que dossier) Dim xSubfolder en tant que dossier lors d'une erreur Reprendre suivant si CurFolder.DefaultItemType <> olMailItem Puis quitter le sous-ensemble Application.ActiveExplorer.CurrentFolder DoEFits Ensuite, quittez Sub pour chaque sous-dossier de CurFolder.Folders, appelez ProcessFolders (xSubfolder), puis cliquez sur Suivant.

3. Puis appuyez F5 clé pour exécuter ce code, et tous les sous-dossiers de tous les comptes de votre Outlook ont ​​été développés, voir capture d'écran:

doc expand les sous-dossiers 1


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

  • CC automatique / BCC par les règles lors de l'envoi d'email; 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 mail est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
  • Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à beaucoup d'emails en secondes; Ajout automatique de message d'accueil quand répondez; Ajouter la date au sujet ...
  • Outils de pièce jointe: Gérer toutes les pièces jointes dans tous les courriers, Auto Detach, Compresser tout, Renommer tout, Sauvegarder tout ... Rapport rapide, Compter les mails sélectionnés...
  • Puissants courriers indésirables par la coutume; Supprimer les e-mails et les contacts en double... Vous permet de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools perspectives onglet kutools 1180x121
tir kutools perspectives kutools plus onglet 1180x121
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.
  • To post as a guest, your comment is unpublished.
    Doug Fisher · 9 months ago
    I have been looking for this answer for a long time! Thank you.