Kaip ištuštinti visus „ištrintų elementų“ aplankus visose „Outlook“ el. pašto paskyrose

Jei „Outlook“ sukonfigūravote kelias el. pašto paskyras ir kiekviena paskyra naudoja atskirą „Outlook“ duomenų failą, turėsite kelis aplankus „Ištrinti elementai“. Jei norite ištuštinti kiekvieną aplanką „Ištrinti elementai“ kiekvienoje el. pašto paskyroje, galite panaudoti šiame straipsnyje pateiktą VBA kodo dalį. Tai leidžia juos ištuštinti urmu.

Kaip visi žinome, „Outlook“ leidžia vartotojams pridėti ir konfigūruoti kelias el. pašto paskyras. Be to, jei kiekviena paskyra naudoja atskirą „Outlook“ duomenų failą, kiekviename faile bus aplankas „Ištrinti elementai“, kuriame saugomi ištrinti elementai. Kai patvirtinate, kad visuose aplankuose „Ištrinti elementai“ esantys elementai yra nenaudingi, jūs linkę ištuštinti aplankus. Tokiu atveju, jei juos ištuštinsite rankiniu būdu, tai gali būti labai nuobodu. Geriau pritaikykite antgalį, kad ištuštintumėte juos partijomis, pvz., toliau pateiktą.

Ištuštinkite visus aplankus „Ištrinti elementai“ visose el. pašto paskyrose

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ lange paspauskite klavišus „Alt + F11“.
3. Toliau lange „Microsoft Visual Basic for Applications“ turite atidaryti tuščią modulį.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į šį 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. Po to turėtumėte patikrinti „Outlook“ makrokomandos nustatymus ir įsitikinti, kad „Outlook“ makrokomandos yra leidžiamos.
6. Galų gale galite grįžti į modulį ir paspausti klavišo „F5“ mygtuką, kad paleistumėte šią makrokomandą.
7. Paleidus makrokomandą, matote, kad visi aplankai „Ištrinti elementai“ buvo sėkmingai ištuštinti.

„Outlook“ korupcijos atveju

Ar kada nors susidūrėte su „Outlook“ gedimu ar net „Outlook“ sugadinimu? Apskritai, kaip elgsitės baisiais atvejais? Jei „Outlook“ naudojate dešimtmečius, „Outlook“ neišvengiamai susidursite su įvairiomis problemomis. Todėl geriau nepamirškite kai kurių taisymo ir atkūrimo būdų, pvz., naudokite gautųjų taisymo įrankį, reguliariai kurkite atsargines Outlook duomenų kopijas, gaukite patikimą Outlook taisymas Naudodami visas šias atsargumo priemones, net kai jūsų PST failas pažeidžiamas, vis tiek galite būti ramūs ir lengvai susirasti savo Outlook duomenis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com