Cum să goliți în loturi toate folderele „Elemente șterse” din toate conturile de e-mail Outlook

Dacă ați configurat mai multe conturi de e-mail în Outlook și fiecare cont utilizează un fișier de date Outlook separat, veți avea mai multe foldere „Elemente șterse”. Când doriți să goliți fiecare folder „Elemente șterse” din fiecare cont de e-mail, puteți utiliza fragmentul de cod VBA din acest articol. Vă permite să le goliți în vrac.

După cum știm cu toții, Outlook permite utilizatorilor să adauge și să configureze mai multe conturi de e-mail. În plus, dacă fiecare cont folosește un fișier de date Outlook individual, fiecare fișier va veni cu un folder „Elemente șterse”, care stochează elementele care au fost șterse. Când confirmați că elementele din toate folderele „Elemente șterse” sunt inutile, veți avea tendința să goliți dosarele. În acest caz, dacă le golești manual, poate fi foarte obositor. Mai bine aplicați un sfat pentru a le goli în loturi, ca următorul.

Goliți în lot toate folderele „Elemente șterse” din toate conturile de e-mail

1. De la bun început, lansați programul Outlook.
2. Apoi apăsați butoanele tastei „Alt + F11” în fereastra principală a Outlook.
3. Apoi, în fereastra „Microsoft Visual Basic for Applications”, trebuie să deschideți un modul gol.
4. Ulterior, copiați și lipiți următoarele coduri VBA în acest 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. După aceea, ar trebui să verificați setările macrocomenzilor Outlook, asigurându-vă că macrocomenzile sunt permise în Outlook.
6. În cele din urmă, puteți reveni la modul și apăsați butonul „F5” pentru a rula această macrocomandă.
7. După rularea macrocomenzii, puteți vedea că toate folderele „Elemente șterse” au fost golite cu succes.

În cazul corupției Outlook

Ați întâlnit vreodată o prăbușire Outlook sau chiar corupție Outlook? În general, cum veți face față cazurilor teribile? Dacă ați folosit Outlook de zeci de ani, este inevitabil să vă întâlniți cu diverse probleme în Outlook. Prin urmare, ar fi mai bine să păstrați în minte câteva modalități de reparare și recuperare, cum ar fi utilizarea instrumentului de reparare a căsuței primite, realizarea de copii de rezervă a datelor Outlook în mod regulat, obținerea unui sistem robust. Remediere Outlook instrument etc. Cu toate aceste precauții, chiar și atunci când fișierul dvs. PST este compromis, puteți să vă păstrați calmul și să vă regăsiți cu ușurință datele Outlook.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com