Kuidas Outlooki käivitamisel kõiki kaustu automaatselt laiendada VBA abil

Outlooki lahendused September 29, 2025

Paljud kasutajad loodavad, et kõiki kaustu saab Outlooki käivitamisel automaatselt laiendada. Tegelikkuses Outlook seda natiivselt ei toeta. Seega peate selle realiseerimiseks kasutama VBA-koodi. See postitus annab teile kiire juhendi.

Võimalik, et olete Outlookis vaikekaustade alla loonud palju alamkaustu. Kuna kaustu on nii palju, et neile igal ajal kiiresti ligi pääseda, võiksite kõik kaustad kogu aeg laiendatuna hoida. Esimene samm on panna Outlook käivitamisel kaustu automaatselt laiendama. Ilmselgelt pole Outlookis sellist sisseehitatud funktsiooni. Seega peate kasutama makrosid. Järgnevalt õpetame teile, kuidas seda VBA abil saavutada. VBA rakendamise kohta saate lugeda teist artiklit – „Kuidas Outlookis VBA-koodi käivitada".

Kõikide kaustade automaatne laiendamine Outlooki käivitamisel

  1. Alustuseks vajutage oma Outlookis VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  2. Seejärel sisestage kood uues aknas projekti "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 kood - kõigi kaustade automaatne laiendamine Outlooki käivitamisel

  1. Pärast seda sulgege VBA redaktor.
  2. Seejärel väljuge Outlooki rakendusest korralikult.
  3. Hiljem käivitage oma Outlook. Sel hetkel käivitub makro automaatselt.
  4. Pärast Outlooki käivitamist näete, et kõik kaustad on laiendatud, nagu on näidatud alloleval joonisel.Kõik kaustad on laiendatud

Hoidke kõik pahatahtlikud makrod lahes

Kas olete kunagi saanud e-kirju, mis on lisatud kahtlaste failidega või on manustatud tundmatute linkidega? Tavaliselt tuleb selliste kirjadega silmitsi seistes valvsust tõsta. Te ei tohiks kunagi usaldada neid, sest nad võivad viirusi kanda. Pärast manuste allalaadimist või linkide avamist võidakse rünnata mitte ainult Outlooki, vaid ka arvutit. Sel ajal peate Outlooki parandamine faili. See võib olla üsna sõlmeline, välja arvatud juhul, kui teil on värskendatud Outlooki varukoopia või kasutate võimsat taastetööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.