Kako grupno isprazniti sve fascikle "izbrisane stavke" u svim vašim Outlook nalozima e-pošte

Ako ste konfigurisali nekoliko naloga e-pošte u svom Outlooku i svaki nalog koristi zasebnu Outlook datoteku sa podacima, imaćete nekoliko fascikli „Izbrisane stavke“. Kada želite da ispraznite svaku fasciklu „Izbrisane stavke” na svakom nalogu e-pošte, možete koristiti deo VBA koda u ovom članku. Omogućava vam da ih ispraznite na veliko.

Kao što svi znamo, Outlook omogućava korisnicima da dodaju i konfigurišu nekoliko naloga e-pošte. Osim toga, ako svaki nalog koristi pojedinačnu datoteku Outlook podataka, svaki fajl će doći sa fasciklom „Izbrisane stavke“ u kojoj se čuvaju izbrisane stavke. Kada potvrdite da su stavke u svim fasciklama „Izbrisane stavke“ beskorisne, težićete da ispraznite fascikle. U ovom slučaju, ako ih ručno ispraznite, to može biti vrlo zamorno. Bolje je da primenite savet da ih ispraznite, kao što je sledeći.

Grupno ispraznite sve fascikle „izbrisane stavke“ u svim nalozima 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“ potrebno je da otvorite 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 Outlooka i provjeriti jesu li makroi dopušteni u vašem Outlooku.
6. Na kraju, možete se vratiti na modul i pritisnuti tipku “F5” da pokrenete ovaj makro.
7. Nakon pokretanja makroa, možete vidjeti da su svi folderi „Izbrisane stavke“ uspješno ispražnjeni.

U slučaju korupcije Outlook

Jeste li se ikada susreli s padom Outlooka ili čak oštećenjem Outlooka? Općenito, kako ćete se nositi sa strašnim slučajevima? Ako ste Outlook koristili decenijama, neizbježno je naići na razne probleme u Outlooku. Stoga je bolje da imate na umu neke načine popravke i oporavka, kao što je korištenje alata za popravak pristigle pošte, redovito pravljenje rezervnih kopija Outlookovih podataka, preuzimanje robusnog Outlook popravka alat, itd. Uz sve ove mjere opreza, čak i kada je vaša PST datoteka ugrožena, i dalje možete ostati mirni i lako pronaći svoje Outlook podatke.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com