Kuidas Outlookis kõiki meilikaustu kiiresti laiendada või ahendada

Outlooki lahendused September 29, 2025

Mõnikord võite soovida kõiki meili navigeerimispaanil olevaid meilikaustu ühe korraga laiendada või ahendada. Sel juhul saate kasutada selles lk-s kirjeldatud meetodeidost.

Mõnel põhjusel, näiteks erinevates kaustades ja alamkaustades olevate meilide mugavamaks kontrollimiseks, võite soovida kõiki meilikaustu laiendada. Samamoodi, kui tunnete, et kõigi kaustade laiendatuna hoidmine muudab teie meili navigeerimispaani liiga keeruliseks, võite soovida kõik kaustad ahendada. Kui nüüd neid ükshaaval klõpsates käsitsi laiendate või ahendate, on see märkimisväärselt tüütu. Seetõttu peate igatsema palju kiiret meetodit, mis suudab kõiki meilikaustu ühe korraga laiendada või ahendada. Nüüd tutvustame teile sellist vahendit.

Laiendage või ahendage kiiresti kõik Outlooki meilikaustad

Laiendage Kõik kirjakaustad

  1. Esiteks, start oma Outlooki programmi tavapäraselt.
  2. Seejärel vajutage Outlooki peaaknas klahve Alt + F11.
  3. Järgmisena avage Outlooki VBA redaktori aknas tühi moodul.
  4. Seejärel kopeerige sellesse moodulisse järgmised VBA koodid.
Sub ExpandAllMailFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objPSTFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder

    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
    'Specify a specific pst file
    'Change "PSTName" to the name of your own Outlook PST file
    Set objPSTFolders = Application.Session.Folders("PSTName").Folders
 
    For Each objFolder In objPSTFolders
        Call ProcessFolder(objFolder)
    Next

    DoEvents
    Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
End Sub

Sub ProcessFolder(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    'Only expand the mail folders
    If objCurFolder.DefaultItemType = olMailItem Then
       Set Application.ActiveExplorer.CurrentFolder = objCurFolder
       DoEvents
 
       'Process all subfolders recursively
       If objCurFolder.Folders.Count > 0 Then
          For Each objSubfolder In objCurFolder.Folders
              Call ProcessFolder(objSubfolder)
          Next
       End If
    End If
End Sub

VBA kood – laiendage kõiki meilikaustasid

  1. Pärast seda saate uue makro käivitamiseks klõpsata tööriistaribal nuppu "Run Sub" või vajutada klahvi F5.
  2. Kohe laiendatakse kõik eelmääratletud Outlooki PST-faili meilikaustad.

Ahenda kõik kirjakaustad

Võrreldes kõigi meilikaustade laiendamisega on ahendamine palju lihtsam. Saate lihtsalt ahendada konkreetse Outlooki PST-faili juurfaili ja seejärel seda uuesti laiendada. Selleks võite klõpsata PST-faili ülataseme kausta ees oleval noolel, nagu järgmine ekraanipilt. Pärast seda klõpsake faili laiendamiseks uuesti noolt. Näete, et kõik alamkaustad on ahendatud.Ahenda kõik kirjakaustad

Käsitlege tülikaid PST-vigu paindlikult

Kas olete kunagi saanud Outlooki kasutamise ajal veateateid? Kui olete Outlooki aastakümneid kasutanud, peate seda kindlasti kasutama. Kahtlemata on Outlook vigade suhtes haavatav. Seega peate oma Outlooki andmete paremaks kaitsmiseks oma Outlooki PST-faili perioodiliselt varundama. Lisaks on soovitatav säilitada a PST parandus tööriist läheduses, nagu DataNumen Outlook Repair.

Autori sissejuhatus:

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

Kommentaarid on suletud.