Kuidas pakett kustutada Outlookis kõik tühjad alamkaustad

Outlooki lahendused September 29, 2025

Kui soovite oma Outlookis kõik tühjad alamkaustad pakkides kustutada, saate kasutada selles artiklis kirjeldatud meetodit. See õpetab teile, kuidas kasutada Outlook VBA-d alamkaustade partiidena kustutamiseks.

Outlooki meilide paremaks liigitamiseks ja haldamiseks peate vaikimisi kaustade alla looma palju kohandatud alamkaustu, olenemata sellest, kas need on postkast, saadetud või mustandid jne. Mõnikord võite aga avastada, et mõnda alamkausta ei kasutata sageli. Seega on need enamasti tühjad ja ilma üksusteta. Sellisel juhul loodate kõik tühjad alamkaustad kustutada.

Kustutage oma Outlookis kõik tühjad alamkaustad pakkides

Üldiselt saate sellisel alamkaustal paremklõpsata ja seejärel paremklõpsavast menüüst valida "Kustuta kaust". Sellegipoolest, kui tühje alamkaustu on palju, on ükshaaval kustutamine üsna tülikas. Seetõttu peate igatsema vihjet, et need kõik hulgi kustutada. Kuigi Outlook sellist funktsiooni ei paku, saate selle kiireks realiseerimiseks siiski kasutada VBA-koodi. Järgnevalt näitame teile üksikasjalikke samme ja koode.

Pack Kustuta kõik tühjad alamkaustad

  1. Esiteks käivitage oma Outlooki programm.
  2. Seejärel vajutage Outlooki peaaknas klahve Alt + F11.
  3. Järgmisena avage aknas „Microsoft Visual Basic for Applications” moodul, mida ei kasutata.
  4. Seejärel kopeerige ja kleepige sellesse moodulisse järgmised VBA koodid.
Public Sub GetAllSubfolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
    Dim i As Long
 
    On Error Resume Next
 
    'Change "Personal" to the name of your Outlook data file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        If objFolder.Folders.Count > 0 Then
           For i = objFolder.Folders.Count To 1 Step -1
               Call DeleteEmptyFolder(objFolder.Folders(i))
           Next
        End If
    Next
 
    MsgBox ("Completed!")
End Sub

Public Sub DeleteEmptyFolder(objCurrentFolder As Outlook.Folder)
    Dim objSubFolder As Outlook.Folder
    Dim n As Long
 
    If objCurrentFolder.Items.Count = 0 Then
       objCurrentFolder.Delete
    End If
 
    'Process the subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For n = objCurrentFolder.Folders.Count To 1 Step -1
           Set objSubFolder = objCurrentFolder.Folders(n)
           Call DeleteEmptyFolder(objSubFolder)
       Next
    End If
End Sub

VBA kood – kustutage oma Outlookis kõik tühjad alamkaustad

  1. Pärast seda muutke oma Outlooki makro turvatase madalaks.
  2. Lõpuks saate selle makro käivitada, vajutades aktiivses makroaknas klahvi F5.
  3. Korraga avastate, et kõik tühjad alamkaustad kustutatakse.

Tooge rikutud Outlooki PST-andmed

Kuna Outlook on vastuvõtlik vigadele ja kahjustustele, peaksite pöörama tähelepanu oma Outlooki PST-faili kaitsmisele. Näiteks peaksite oma PST-andmed perioodiliselt varundama. Veelgi enam, selleks, et Outlooki parandamine probleemidega niipea kui võimalik, peate ette valmistama hea mainega ja võimsa parandustöö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.