Kuinka poistaa kaikki tyhjät alikansiot erässä Outlookistasi

Jos haluat eräpoistaa kaikki tyhjät alikansiot Outlookistasi, voit käyttää tässä artikkelissa esiteltyä menetelmää. Siinä opetetaan, kuinka voit poistaa alikansiot erissä Outlook VBA:n avulla.

Jotta Outlook-sähköpostiesi luokittelu ja hallinta olisi parempaa, olet luonut paljon mukautettuja alikansioita oletuskansioiden alle, olipa kyseessä sitten Saapuneet-, Lähetetyt- tai Luonnokset-kansio jne. Joskus saatat kuitenkin huomata, että joitakin alikansioita ei käytetä usein. Siksi ne ovat useimmiten tyhjiä ilman kohteita. Tässä tapauksessa toivot poistavasi kaikki tyhjät alikansiot.

Yleensä voit napsauttaa hiiren kakkospainikkeella tällaista alikansiota ja valita sitten hiiren kakkospainikkeen valikosta ”Poista kansio”. Kuitenkin, jos tyhjiä alikansioita on paljon, yksitellen poistaminen on melko hankalaa. Siksi sinun on kaivattava vihjettä poistaaksesi ne kaikki kerralla. Vaikka Outlook ei tarjoa tällaista ominaisuutta, voit silti käyttää VBA-koodia toteuttaaksesi sen nopeasti. Seuraavassa näytämme sinulle yksityiskohtaiset vaiheet ja koodit.

Erä Poista kaikki tyhjät alikansiot

1. Käynnistä ensin Outlook-ohjelmasi.
2. Paina sitten "Alt + F11" -näppäimiä Outlookin pääikkunassa.
3. Seuraavaksi Avaa Microsoft Visual Basic for Applications -ikkunassa moduuli, jota ei käytetä.
4. Kopioi ja liitä seuraavat VBA-koodit sitten tähän moduuliin.

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

5. Muuta sen jälkeen Outlookin makrotason suojaustaso matalaksi.
6. Lopulta voit suorittaa tämän makron painamalla F5-näppäintä nykyisessä makroikkunassa.
7. Heti huomaat, että kaikki tyhjät alikansiot poistetaan.

Hae vioittuneet Outlookin PST-tiedot

Koska Outlook on herkkä virheille ja vaurioille, sinun tulee kiinnittää huomiota Outlookin PST-tiedoston suojaamiseen. Sinun tulisi esimerkiksi varmuuskopioida PST-tietosi säännöllisesti. Lisäksi jotta korjata Outlook ongelmia mahdollisimman pian, sinun on valmisteltava hyvämaineinen ja tehokas korjaustyökalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com