Sådan batches tøm alle "slettede emner" -mapper i alle dine Outlook-e-mail-konti

Hvis du har konfigureret flere e-mail-konti i din Outlook, og hver konto bruger en separat Outlook-datafil, vil du have flere "Slettede emner" -mapper. Når du vil tømme hver "Slettet post" -mappe i hver e-mail-konto, kan du bruge VBA-koden i denne artikel. Det giver dig mulighed for at tømme dem i løs vægt.

Som vi alle ved, tillader Outlook brugere at tilføje og konfigurere flere e-mail-konti. Plus, hvis hver konto bruger en individuel Outlook-datafil, kommer hver fil med en "Slettede emner" -mappe, som lagrer elementerne er blevet slettet. Når du bekræfter, at elementerne i alle "Slettede emner" -mapper er ubrugelige, har du en tendens til at tømme mapperne. I dette tilfælde, hvis du manuelt tømmer dem, kan det være meget kedeligt. Det er bedre for dig at anvende et tip til batch-tømning af dem, som den følgende.

Batch Tøm alle “Slettede emner” -mapper i alle e-mail-konti

1. Start dit Outlook-program lige fra starten.
2. Tryk derefter på “Alt + F11” -tasten i hovedvinduet i Outlook.
3. Dernæst i vinduet “Microsoft Visual Basic for Applications” skal du åbne et tomt modul.
4. Kopier og indsæt derefter følgende VBA-koder i dette modul.

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. Derefter skal du kontrollere dine Outlook-makroindstillinger og sikre dig, at makroer er tilladt i din Outlook.
6. Til sidst kan du gå tilbage til modulet og trykke på “F5” -tasten for at køre denne makro.
7. Når makroen er kørt, kan du se, at alle "Slettede emner" -mapper er blevet tømt med succes.

I tilfælde af korruption i Outlook

Har du nogensinde stødt på Outlook-nedbrud eller endda korruption i Outlook? Generelt, hvordan vil du håndtere de forfærdelige sager? Hvis du har brugt Outlook i årtier, er det uundgåeligt at møde forskellige problemer i din Outlook. Derfor havde du bedre at huske nogle reparations- og gendannelsesmåder i dit sind, såsom at bruge reparationsværktøjet til indbakken, regelmæssigt sikkerhedskopiere Outlook-data og få fat i en robust Outlook-rettelse værktøj osv. Med alle disse forholdsregler, selv når din PST-fil bliver kompromitteret, kan du stadig være rolig og let finde dine Outlook-data tilbage.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder rette sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com