Kako paketno izprazniti vse mape »Izbrisani predmeti« v vseh vaših Outlookovih e-poštnih računih

Če ste v Outlooku konfigurirali več e-poštnih računov in vsak račun uporablja ločeno Outlookovo podatkovno datoteko, boste imeli več map »Izbrisani predmeti«. Ko želite izprazniti vsako mapo »Izbrisani elementi« v vsakem e-poštnem računu, lahko uporabite del kode VBA v tem članku. Omogoča vam, da jih izpraznite v razsutem stanju.

Kot vsi vemo, Outlook uporabnikom omogoča dodajanje in konfiguriranje več e-poštnih računov. Poleg tega, če vsak račun uporablja posamezno Outlookovo podatkovno datoteko, bo vsaka datoteka dobila mapo »Izbrisani elementi«, v kateri so shranjeni izbrisani elementi. Ko potrdite, da so elementi v vseh mapah »Izbrisani predmeti« neuporabni, boste mape izpraznili. V tem primeru, če jih ročno izpraznite, je lahko zelo dolgočasno. Bolje je, da uporabite nasvet za njihovo množično praznjenje, kot je naslednji.

Paketno izpraznite vse mape »Izbrisani predmeti« v vseh e-poštnih računih

1. Na začetku zaženite program Outlook.
2. Nato v glavnem Outlookovem oknu pritisnite tipke “Alt + F11”.
3. Nato morate v oknu »Microsoft Visual Basic for Applications« odpreti prazen modul.
4. Nato v ta modul kopirajte in prilepite naslednje kode VBA.

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. Po tem morate preveriti nastavitve Outlookovih makrov in se prepričati, da so makri v Outlooku dovoljeni.
6. Sčasoma se lahko vrnete v modul in pritisnete tipko "F5", da zaženete ta makro.
7. Po zagonu makra lahko vidite, da so bile vse mape »Izbrisani elementi« uspešno izpraznjene.

V primeru pokvarjenega Outlooka

Ste že kdaj naleteli na zrušitev Outlooka ali celo na pokvarjenost Outlooka? Kako se boste na splošno spopadli s strašnimi primeri? Če ste Outlook uporabljali desetletja, je neizogibno, da se srečate z različnimi težavami v Outlooku. Zato je bolje, da si v mislih zapomnite nekaj načinov popravljanja in obnovitve, kot je uporaba orodja za popravilo mape »Prejeto«, redno varnostno kopiranje Outlookovih podatkov, pridobivanje robustnega Outlook popravek orodje itd. Z vsemi temi previdnostnimi ukrepi, tudi ko je vaša datoteka PST ogrožena, lahko še vedno ostanete mirni in zlahka poiščete svoje Outlookove podatke.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com