Kuinka erittää kaikki poistetut kansiot kaikista Outlook-sähköpostitileistäsi

Jos olet määrittänyt useita sähköpostitilejä Outlookissa ja jokainen tili käyttää erillistä Outlook-datatiedostoa, sinulla on useita Poistetut-kansioita. Kun haluat tyhjentää jokaisen sähköpostitilin kaikki poistetut kansiot, voit käyttää tässä artikkelissa olevaa VBA-koodinpalaa. Sen avulla voit tyhjentää ne irtotavarana.

Kuten me kaikki tiedämme, Outlook antaa käyttäjien lisätä ja määrittää useita sähköpostitilejä. Lisäksi, jos jokainen tili käyttää erillistä Outlook-datatiedostoa, jokaisessa tiedostossa on Poistetut-kansio, joka tallentaa kohteet on poistettu. Kun vahvistat, että kaikkien Poistetut-kansioiden kohteet ovat hyödyttömiä, sinun on tapana tyhjentää kansiot. Tässä tapauksessa, jos tyhjennät ne manuaalisesti, se voi olla hyvin tylsiä. Sinun on parempi käyttää kärkeä tyhjentämään ne, kuten seuraava.

Erä Tyhjennä kaikki poistetut kansiot kaikilla sähköpostitileillä

1. Käynnistä Outlook-ohjelma heti alusta.
2. Paina sitten "Alt + F11" -näppäimiä Outlookin pääikkunassa.
3. Seuraavaksi "Microsoft Visual Basic for Applications" -ikkunassa sinun on avattava tyhjä moduuli.
4. Kopioi ja liitä seuraavat VBA-koodit sitten tähän moduuliin.

Sub BatchEmptyAllDeletedItemsFolder()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object
 
    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim i, n As Long
 
    If objCurrentFolder.Name = "Deleted Items" Then
       'Delete all the items in "Deleted Items" folder
       For i = objCurrentFolder.Items.Count To 1 Step -1
           objCurrentFolder.Items.Item(i).Delete
 
           'Delete all the subfolders under "Deleted Items" folder
           For n = objCurrentFolder.folders.Count To 1 Step -1
               objCurrentFolder.folders.Item(n).Delete
           Next
       Next
    End If
End Sub

5. Tämän jälkeen sinun on tarkistettava Outlook-makroasetuksesi ja varmistettava, että makrot ovat sallittuja Outlookissa.
6. Lopulta voit palata moduuliin ja painaa “F5” -näppäintä tämän makron suorittamiseksi.
7. Makron suorittamisen jälkeen voit nähdä, että kaikki "Poistetut tuotteet" -kansiot on tyhjennetty onnistuneesti.

Outlookin korruptiotapauksessa

Oletko koskaan kohdannut Outlookin kaatumista tai jopa Outlookin korruptiota? Miten aiot käsitellä kauheita tapauksia? Jos olet käyttänyt Outlookia vuosikymmenien ajan, on väistämätöntä tavata Outlookin eri asioita. Siksi sinun on parempi pitää mielessäsi jotkut korjaus- ja palautustavat, kuten käyttää postilaatikon korjaustyökalua, varmuuskopioida Outlook-tiedot säännöllisesti, saada vankka käsiinsä Outlook-korjaus työkalu jne. Kaikilla näillä varotoimilla voit silti pysyä rauhallisena ja löytää Outlook-tiedot helposti, vaikka PST-tiedostosi vaarantuisi.

Tekijän esittely:

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