Les cookies nous permettent d'offrir nos services. En utilisant nos services, vous acceptez notre utilisation des cookies.
Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
Inscription
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

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 | Téléchargement 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.

Be the first to comment.