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 développer automatiquement tous les dossiers lors du démarrage d'Outlook?

En règle générale, si vous développez ou réduisez un dossier dans le volet de navigation, puis fermez Outlook, le dossier reste étendu ou réduit lors du redémarrage d'Outlook. Mais maintenant, existe-t-il un moyen de développer automatiquement tous les dossiers lors du démarrage d'Outlook? Cet article présentera un VBA pour terminer la tâche.

Développer automatiquement tous les dossiers lors du démarrage d'Outlook avec VBA

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 bulleDévelopper automatiquement tous les dossiers lors du démarrage d'Outlook avec VBA

Cette méthode va introduire un VBA pour développer automatiquement tous les dossiers dans le volet de navigation lorsque vous démarrez Outlook. Veuillez appliquer cette VBA comme suit:

1. presse autre + F11 clés simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Élargir la projet 1 et Objets Microsoft Outlook Dans le volet Projet, double-cliquez pour ouvrir le ThisOutlookSession fenêtre, puis collez-le sous le code VBA.

VBA: développer automatiquement tous les dossiers dans Outlook

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. Enregistrez le code et fermez la fenêtre Microsoft Visual Basic pour Applications.

À partir de maintenant, lors du redémarrage d'Outlook, tous les dossiers seront automatiquement développés dans Outlook.Note: Ce VBA ne peut pas ouvrir les dossiers de recherche réduit lors du redémarrage d'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'é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.
  • To post as a guest, your comment is unpublished.
    Selvi · 7 months ago
    Thank you so much.. It solved my problem. :)