Sådan udvider du automatisk alle mapper via VBA, når du starter Outlook

Flere brugere håber, at alle mapper automatisk kan udvides, når de starter deres Outlook. I virkeligheden understøtter Outlook det ikke native. Derfor skal du bruge VBA-kode for at realisere det. Dette indlæg vil give dig en hurtig guide.

Du har muligvis oprettet en masse undermapper under standardmapperne i Outlook. Med så mange mapper, for hurtigt at kunne få adgang til dem når som helst, kan du ønske at holde alle mapperne udvidet hele tiden. Det første skridt skal være at få Outlook til automatisk at udvide mapperne ved opstart. Der findes naturligvis ikke en sådan funktion i Outlook. Derfor er du nødt til at bruge makroer. I det følgende vil vi lære dig at opnå det med VBA. For at finde ud af, hvordan du anvender VBA, kan du læse en anden artikel – “Sådan køres VBA-kode i din Outlook".

Udvid automatisk alle mapper, når Outlook startes

1. Til at begynde med skal du trykke på “Alt + F11” i din Outlook for at få adgang til VBA-editor.
2. Derefter skal du i det nye vindue sætte 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

3. Luk derefter VBA-editoren.
4. Afslut derefter Outlook-applikationen korrekt.
5. Start senere din Outlook. På dette tidspunkt kører makroen automatisk.
6. Når Outlook starter, kan du se, at alle mapperne er blevet udvidet, som vist på figuren nedenfor.

Hold alle ondsindede makroer i skak

Har du nogensinde modtaget de e-mails, der er vedhæftet med mistænkelige filer eller er indlejret med ukendte links? Normalt, når du konfronterer sådanne e-mails, skal du hæve din årvågenhed. Du bør aldrig have tillid til dem, fordi de kan have vira. Når du har downloadet vedhæftede filer eller åbner linkene, kan ikke kun Outlook, men også computeren blive angrebet. På det tidspunkt skal du reparere Outlook fil. Det kan være ret knudret, medmindre du har en opdateret Outlook-sikkerhedskopi eller bruger et kraftfuldt gendannelsesværktøj, f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder SQL Server korruption og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com