Hur man automatiskt expanderar alla mappar via VBA när Starting i ditt Outlook

Outlook-lösningar September 29, 2025

Flera användare hoppas att alla mappar kan utvidgas automatiskt när de startar sin Outlook. I verkligheten stöder Outlook inte det. För att inse det måste du alltså använda VBA-kod. Detta post ger dig en snabbguide.

Du kan ha skapat många undermappar under standardmapparna i Outlook. Med tanke på så många mappar, för att snabbt komma åt dem när som helst, kanske du vill behålla alla mappar utökade hela tiden. Det första steget måste vara att få Outlook att automatiskt expandera mapparna på startup. Uppenbarligen finns det inte en sådan inbyggd funktion i Outlook. Således måste du använda makron. Därefter lär vi dig att uppnå det med VBA. När det gäller hur man tillämpar VBA kan du hänvisa till en annan artikel - “Hur du kör VBA-kod i din Outlook".

Expandera alla mappar automatiskt när Starför Outlook

  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 Starför Outlook

  1. Stäng sedan VBA-redigeraren.
  2. Avsluta sedan Outlook-programmet ordentligt.
  3. Senare, start din Outlook. Vid denna tidpunkt körs makrot automatiskt.
  4. Efter Outlook starts upp kan du se att alla mappar har expanderats, som visas i figuren 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.