Comment développer automatiquement tous les dossiers via VBA au démarrage d'Outlook

De nombreux utilisateurs souhaitent que tous les dossiers se développent automatiquement au lancement d'Outlook. Malheureusement, Outlook ne propose pas cette fonctionnalité nativement. Il est donc nécessaire d'utiliser du code VBA pour y parvenir. Cet article vous propose un guide rapide.

Vous avez peut-être créé de nombreux sous-dossiers dans les dossiers par défaut d'Outlook. Face à cette multitude de dossiers, pour y accéder rapidement à tout moment, vous souhaiterez sans doute les garder tous développés en permanence. La première étape consiste à configurer Outlook pour qu'il développe automatiquement les dossiers au démarrage. Évidemment, Outlook ne propose pas cette fonction nativement. Il vous faudra donc utiliser des macros. Nous allons vous montrer comment y parvenir grâce à VBA. Pour savoir comment utiliser VBA, vous pouvez consulter un autre article : « … »Comment exécuter le code VBA dans votre Outlook" .

Développer automatiquement tous les dossiers au démarrage d'Outlook

1. Pour commencer, appuyez sur "Alt + F11" dans votre Outlook pour accéder à l'éditeur VBA.
2. Ensuite, dans la nouvelle fenêtre, placez le code dans le projet "ThisOutlookSession".

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

3. Après cela, fermez l'éditeur VBA.
4. Ensuite, quittez correctement l'application Outlook.
5. Ensuite, ouvrez Outlook. La macro s'exécutera alors automatiquement.
6. Une fois Outlook démarré, vous pouvez constater que tous les dossiers ont été développés, comme illustré dans la figure ci-dessous.

Gardez toutes les macros malveillantes à distance

Avez-vous déjà reçu des e-mails contenant des fichiers suspects ou contenant des liens inconnus ? Habituellement, face à de tels e-mails, il faut redoubler de vigilance. Vous ne devriez jamais leur faire confiance car ils pourraient être porteurs de virus. Une fois que vous avez téléchargé les pièces jointes ou ouvert les liens, non seulement Outlook, mais également l'ordinateur peuvent être attaqués. A ce moment-là, il faut réparer Outlook déposer. Cela pourrait être assez épineux à moins que vous n'ayez une sauvegarde Outlook mise à jour ou que vous n'utilisiez un outil de récupération puissant, tel que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris SQL Server la corruption et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com