Slik tømmer du alle "Slettede elementer"-mapper i alle Outlook-e-postkontoene dine

Hvis du har konfigurert flere e-postkontoer i Outlook og hver konto bruker en separat Outlook-datafil, vil du ha flere "Slettede elementer"-mapper. Når du vil tømme hver "Slettede elementer"-mappe i hver e-postkonto, kan du bruke VBA-koden i denne artikkelen. Det lar deg tømme dem i bulk.

Som vi alle vet, lar Outlook brukere legge til og konfigurere flere e-postkontoer. I tillegg, hvis hver konto bruker en individuell Outlook-datafil, vil hver fil leveres med en "Slettede elementer"-mappe, som lagrer elementene som er slettet. Når du bekrefter at elementene i alle "Slettede elementer"-mappene er ubrukelige, har du en tendens til å tømme mappene. I dette tilfellet, hvis du tømmer dem manuelt, kan det være veldig kjedelig. Du er bedre å bruke et tips for å batchtømme dem, som det følgende.

Tøm alle «Slettede elementer»-mapper i alle e-postkontoer

1. Helt i begynnelsen starter du Outlook-programmet.
2. Trykk deretter på "Alt + F11"-tastene i hovedvinduet i Outlook.
3. Neste i "Microsoft Visual Basic for Applications"-vinduet må du åpne en tom modul.
4. Deretter kopierer og limer du inn følgende VBA-koder i denne modulen.

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. Etter det bør du sjekke Outlook-makroinnstillingene, og sørge for at makroer er tillatt i Outlook.
6. Til slutt kan du gå tilbake til modulen og trykke på "F5"-tasten for å kjøre denne makroen.
7. Etter at makroen har kjørt, kan du se at alle "Slettede elementer"-mappene har blitt tømt.

I tilfelle Outlook-korrupsjon

Har du noen gang møtt Outlook-krasj eller til og med Outlook-korrupsjon? Generelt, hvordan vil du takle de forferdelige sakene? Hvis du har brukt Outlook i flere tiår, er det uunngåelig å møte ulike problemer i Outlook. Derfor bør du ha noen reparasjons- og gjenopprettingsmåter i tankene dine, for eksempel å bruke innboksreparasjonsverktøyet, sikkerhetskopiere Outlook-data regelmessig, få tak i en robust Outlook-fiks verktøy osv. Med alle disse forholdsreglene, selv når PST-filen din blir kompromittert, kan du fortsatt holde deg rolig og enkelt finne tilbake Outlook-dataene dine.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med