Hoe u alle mappen "Verwijderde items" leegmaakt in al uw Outlook-e-mailaccounts

Als u meerdere e-mailaccounts in uw Outlook hebt geconfigureerd en elk account een afzonderlijk Outlook-gegevensbestand gebruikt, hebt u verschillende mappen met "Verwijderde items". Als u elke map "Verwijderde items" in elk e-mailaccount wilt legen, kunt u het stuk VBA-code in dit artikel gebruiken. Hiermee kunt u ze in bulk legen.

Zoals we allemaal weten, kunnen gebruikers met Outlook verschillende e-mailaccounts toevoegen en configureren. En als elk account een afzonderlijk Outlook-gegevensbestand gebruikt, wordt elk bestand geleverd met een map "Verwijderde items", waarin de items worden opgeslagen die zijn verwijderd. Wanneer u bevestigt dat de items in alle mappen "Verwijderde items" nutteloos zijn, zult u geneigd zijn de mappen leeg te maken. In dit geval kan het erg vervelend zijn als u ze handmatig leegt. U kunt beter een tip toepassen om ze in batches te legen, zoals de volgende.

Batch Maak alle mappen "Verwijderde items" leeg in alle e-mailaccounts

1. Start vanaf het begin uw Outlook-programma.
2. Druk vervolgens op de toetsen "Alt + F11" in het hoofdvenster van Outlook.
3. Vervolgens moet u in het venster "Microsoft Visual Basic for Applications" een lege module openen.
4. Kopieer en plak vervolgens de volgende VBA-codes in deze module.

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. Daarna moet u uw Outlook-macro-instellingen controleren en ervoor zorgen dat macro's zijn toegestaan ​​in uw Outlook.
6. Uiteindelijk kunt u teruggaan naar de module en op de toets "F5" drukken om deze macro uit te voeren.
7. Nadat de macro is uitgevoerd, kunt u zien dat alle mappen "Verwijderde items" met succes zijn geleegd.

In het geval van Outlook-corruptie

Ben je ooit een Outlook-crash of zelfs Outlook-corruptie tegengekomen? Hoe gaat u in het algemeen om met de verschrikkelijke gevallen? Als u Outlook al tientallen jaren gebruikt, is het onvermijdelijk dat u verschillende problemen tegenkomt in uw Outlook. Daarom kunt u maar beter enkele reparatie- en herstelmethoden in gedachten houden, zoals het gebruik van de inbox-reparatietool, het regelmatig maken van back-ups van Outlook-gegevens, het verkrijgen van een robuust Outlook-oplossing tool, enz. Met al deze voorzorgsmaatregelen kunt u, zelfs wanneer uw PST-bestand wordt gecompromitteerd, nog steeds kalm blijven en gemakkelijk uw Outlook-gegevens terugvinden.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com