Slik utvider du alle mapper automatisk via VBA når du starter Outlook

Outlook-løsninger September 29, 2025

Flere brukere håper at alle mappene kan utvides automatisk når de starter Outlook. I realiteten støtter ikke Outlook det innebygd. Derfor må du bruke VBA-kode for å realisere det. Dette innlegget vil gi deg en rask guide.

Du har kanskje opprettet mange undermapper under standardmappene i Outlook. Med tanke på det store antallet mapper, kan det være lurt å holde alle mappene utvidet hele tiden for å raskt kunne få tilgang til dem når som helst. Det første trinnet må være å få Outlook til å utvide mappene automatisk ved oppstart. Det finnes selvsagt ingen slik innebygd funksjon i Outlook. Derfor må du bruke makroer. Heretter vil vi lære deg å oppnå dette med VBA. Når det gjelder hvordan du bruker VBA, kan du se en annen artikkel – “Hvordan kjøre VBA-kode i Outlook".

Utvid alle mapper automatisk når du starter Outlook

  1. Til å begynne med, trykk "Alt + F11" i Outlook for å få tilgang til VBA-redigering.
  2. Deretter, i det nye vinduet, legger du koden inn i "ThisOutlookSession" -prosjektet.
'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-kode - Utvid alle mapper automatisk når Outlook startes

  1. Deretter lukker du VBA-editoren.
  2. Avslutt deretter Outlook-applikasjonen på riktig måte.
  3. Senere starter du Outlook. Makroen kjører automatisk på dette tidspunktet.
  4. Etter at Outlook starter opp, kan du se at alle mappene er utvidet, som vist i figuren nedenfor.Alle mapper er utvidet

Hold alle ondsinnede makroer i sjakk

Har du noen gang mottatt e-poster som er vedlagt mistenkelige filer eller er innebygd med ukjente lenker? Vanligvis, når du konfronterer slike e-poster, må du øke årvåkenhet. Du bør aldri lett stole på dem fordi de kan bære virus. Når du laster ned vedleggene eller åpner koblingene, kan ikke bare Outlook, men også datamaskinen bli angrepet. På den tiden må du reparere Outlook fil. Det kan være ganske knotete med mindre du har en oppdatert Outlook-sikkerhetskopi eller bruker et kraftig gjenopprettingsverktøy, som f.eks. DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.