Hoe u alle mappen automatisch kunt uitvouwen met VBA bij het opstarten van Outlook.

Veel gebruikers hopen dat alle mappen automatisch worden uitgevouwen wanneer ze Outlook openen. In werkelijkheid biedt Outlook dit niet standaard. Om dit te realiseren, moet je daarom VBA-code gebruiken. Dit artikel geeft je een korte handleiding.

U hebt mogelijk veel submappen aangemaakt onder de standaardmappen in Outlook. Gezien het grote aantal mappen, wilt u ze wellicht altijd uitgevouwen houden om ze snel te kunnen openen. De eerste stap is om Outlook de mappen automatisch te laten uitvouwen bij het opstarten. Uiteraard heeft Outlook geen ingebouwde functie hiervoor. Daarom moet u macro's gebruiken. Hierna leggen we uit hoe u dit met VBA kunt doen. Voor meer informatie over het gebruik van VBA kunt u een ander artikel raadplegen: "Hoe u VBA-code in uw Outlook uitvoert'.

Alle mappen automatisch uitbreiden bij het opstarten van Outlook.

1. Druk om te beginnen op "Alt + F11" in uw Outlook om de VBA-editor te openen.
2. Plaats vervolgens in het nieuwe venster de code in het "ThisOutlookSession" -project.

'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. Sluit daarna de VBA-editor.
4. Sluit vervolgens de Outlook-applicatie correct af.
5. Start vervolgens Outlook. De macro wordt dan automatisch uitgevoerd.
6. Nadat Outlook is opgestart, ziet u dat alle mappen zijn uitgevouwen, zoals weergegeven in de onderstaande afbeelding.

Houd alle schadelijke macro's op afstand

Heeft u ooit de e-mails ontvangen die zijn bijgevoegd met verdachte bestanden of die zijn ingesloten met onbekende links? Meestal moet u bij het omgaan met dergelijke e-mails waakzaam zijn. U moet er nooit gemakkelijk op vertrouwen dat ze virussen kunnen bevatten. Zodra u de bijlagen downloadt of de koppelingen opent, kan niet alleen de Outlook, maar ook de computer worden aangevallen. Op dat moment moet je reparatie Outlook het dossier. Het kan behoorlijk knoestig zijn, tenzij u een bijgewerkte Outlook-back-up heeft of gebruik maakt van een krachtig herstelprogramma, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL Server corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com