Så här expanderar du alla mappar automatiskt via VBA när du startar Outlook

Outlook-lösningar September 29, 2025

Flera användare hoppas att alla mappar ska kunna expanderas automatiskt när de startar Outlook. I verkligheten har Outlook inte stöd för det. Därför måste du använda VBA-kod för att uppnå det. Det här inlägget ger dig en snabbguide.

Du kanske har skapat många undermappar under standardmapparna i Outlook. Med tanke på att det finns så många mappar, för att snabbt kunna komma åt dem när som helst, kanske du vill hålla alla mappar expanderade hela tiden. Det första steget måste vara att få Outlook att automatiskt expandera mapparna vid start. Det finns uppenbarligen ingen sådan inbyggd funktion i Outlook. Därför måste du använda makron. Nedan kommer vi att lära dig att göra det med VBA. För att förstå hur man använder VBA kan du läsa en annan artikel – “Hur du kör VBA-kod i din Outlook".

Expandera alla mappar automatiskt när Outlook startas

  1. Till att börja med trycker du på "Alt + F11" i Outlook för att komma åt VBA-redigeraren.
  2. Sedan, i det nya fönstret, placera koden i projektet “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

VBA-kod - Expandera alla mappar automatiskt när Outlook startas

  1. Stäng sedan VBA-redigeraren.
  2. Avsluta sedan Outlook-programmet ordentligt.
  3. Starta sedan Outlook. Vid det här laget körs makrot automatiskt.
  4. När Outlook har startat kan du se att alla mappar har expanderats, som visas i bilden nedan.Alla mappar expanderas

Håll alla skadliga makron borta

Har du någonsin fått e-postmeddelanden som bifogas misstänkta filer eller är inbäddade med okända länkar? När du konfronterar sådana e-postmeddelanden måste du vanligtvis höja din vaksamhet. Du borde aldrig lita på dem eftersom de kan ha virus. När du har laddat ner bilagorna eller öppnat länkarna kan inte bara Outlook utan även datorn attackeras. Vid den tiden måste du reparera Outlook fil. Det kan vara ganska knotigt om du inte har en uppdaterad Outlook-säkerhetskopia eller använder ett kraftfullt återställningsverktyg, till exempel DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL Server korruption och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.