Kako grupno isprazniti sve mape "Izbrisane stavke" u svim vašim Outlook računima e-pošte

Ako ste konfigurirali nekoliko računa e-pošte u Outlooku i svaki račun koristi zasebnu podatkovnu datoteku programa Outlook, imat ćete nekoliko mapa "Izbrisane stavke". Kada želite isprazniti svaku mapu "Izbrisane stavke" u svakom računu e-pošte, možete upotrijebiti dio VBA koda u ovom članku. Omogućuje vam da ih ispraznite u rasutom stanju.

Kao što svi znamo, Outlook korisnicima omogućuje dodavanje i konfiguriranje nekoliko računa e-pošte. Osim toga, ako svaki račun koristi pojedinačnu podatkovnu datoteku programa Outlook, svaka datoteka dolazi s mapom "Izbrisane stavke", u kojoj se pohranjuju izbrisane stavke. Kada potvrdite da su stavke u svim mapama "Izbrisane stavke" beskorisne, težit ćete isprazniti mape. U ovom slučaju, ako ih ručno praznite, to može biti vrlo zamorno. Bilo bi bolje da primijenite savjet za njihovo masovno pražnjenje, poput sljedećeg.

Grupno ispraznite sve mape "Izbrisane stavke" u svim računima e-pošte

1. Na samom početku pokrenite svoj Outlook program.
2. Zatim pritisnite tipke "Alt + F11" u glavnom prozoru programa Outlook.
3. Zatim u prozoru "Microsoft Visual Basic za aplikacije" morate otvoriti prazan modul.
4. Nakon toga kopirajte i zalijepite sljedeće VBA kodove u ovaj 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. Nakon toga trebali biste provjeriti postavke makronaredbi programa Outlook i provjeriti jesu li makronaredbe dopuštene u programu Outlook.
6. Na kraju se možete vratiti na modul i pritisnuti tipku "F5" za pokretanje ove makronaredbe.
7. Nakon pokretanja makronaredbe, možete vidjeti da su sve mape "Izbrisane stavke" uspješno ispražnjene.

U slučaju oštećenja Outlooka

Jeste li se ikada susreli s padom Outlooka ili čak oštećenjem Outlooka? Općenito, kako ćete se nositi s strašnim slučajevima? Ako ste desetljećima koristili Outlook, neizbježno je susresti se s raznim problemima u svom Outlooku. Stoga je bolje da imate na umu neke načine popravka i oporavka, kao što je korištenje alata za popravak pristigle pošte, redovito sigurnosno kopiranje Outlook podataka, nabavljanje robusnog Outlook popravak alat, itd. Uz sve ove mjere opreza, čak i kada vaša PST datoteka bude ugrožena, i dalje možete ostati mirni i lako pronaći svoje Outlook podatke.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com