Ako dávkovo vyprázdniť všetky priečinky „Odstránené položky“ vo všetkých vašich e-mailových účtoch programu Outlook

Ak ste vo svojom Outlooku nakonfigurovali niekoľko e-mailových účtov a každý z nich používa samostatný dátový súbor Outlooku, budete mať niekoľko priečinkov „Odstránené položky“. Ak chcete vyprázdniť každý priečinok „Odstránené položky“ v každom e-mailovom účte, môžete v tomto článku využiť časť kódu VBA. Umožňuje vám ich hromadné vyprázdňovanie.

Ako všetci vieme, Outlook umožňuje používateľom pridávať a konfigurovať niekoľko e-mailových účtov. Navyše, ak každý účet používa samostatný dátový súbor Outlooku, každý súbor bude mať priečinok „Odstránené položky“, v ktorom sa ukladajú odstránené položky. Keď potvrdíte, že položky vo všetkých priečinkoch „Odstránené položky“ sú zbytočné, budete mať tendenciu priečinky vyprázdňovať. V takom prípade, ak ich vyprázdňujete ručne, môže to byť veľmi únavné. Lepšie je použiť hrot na ich dávkové vyprázdnenie, napríklad nasledujúci.

Dávkovo vyprázdnite všetky priečinky „Odstránené položky“ vo všetkých e-mailových účtoch

1. Hneď na začiatku spustite program Outlook.
2. Potom stlačte klávesy „Alt + F11“ v hlavnom okne programu Outlook.
3. Ďalej v okne „Microsoft Visual Basic for Applications“ musíte otvoriť prázdny modul.
4. Následne skopírujte a prilepte nasledujúce kódy VBA do tohto modulu.

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. Potom by ste mali skontrolovať nastavenia makier Outlooku a ubezpečiť sa, že sú v Outlooku povolené makrá.
6. Nakoniec sa môžete vrátiť späť do modulu a stlačením klávesu „F5“ spustiť toto makro.
7. Po spustení makra uvidíte, že všetky priečinky „Odstránené položky“ boli úspešne vyprázdnené.

V prípade poškodenia aplikácie Outlook

Stretli ste sa niekedy s pádom programu Outlook alebo dokonca s jeho poškodením? Ako sa vo všeobecnosti vysporiadate s hroznými prípadmi? Ak ste Outlook používali už celé desaťročia, je nevyhnutné sa stretnúť s rôznymi problémami, ktoré sa v ňom vyskytujú. Preto by ste si mali lepšie pamätať niektoré spôsoby opráv a obnovy, ako napríklad použitie nástroja na opravu doručenej pošty, pravidelné zálohovanie údajov Outlooku, zmocnenie sa rozsiahleho Oprava programu Outlook so všetkými týmito preventívnymi opatreniami, aj keď dôjde k zneužitiu vášho súboru PST, stále môžete zostať v pokoji a ľahko nájsť späť svoje údaje programu Outlook.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S