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 voisit paremmin luokitella ja hallita Outlook-sähköpostisi, sinun on täytynyt luoda paljon mukautettuja alikansioita oletuskansioihin riippumatta Saapuneet-, Lähetetyt- tai Luonnokset-kansiosta jne. Joskus saatat kuitenkin huomata, että jotkin alikansiot eivät ole usein. käytetty. Siksi most ajan kuluessa ne ovat tyhjiä ilman esineitä. 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. Ensinnäkin start 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