Kaip paketiniu būdu ištrinti visus paieškos aplankus „Outlook“.

Pagal numatytuosius nustatymus „Outlook“ neleidžia vartotojams vienu metu ištrinti daugiau nei vieno paieškos aplanko, jau nekalbant apie masinį visų paieškos aplankų trynimą. Tačiau šiame straipsnyje bus pateiktas metodas, kuris gali tai įgyvendinti.

Paprastai norėdami ištrinti paieškos aplanką, galite dešiniuoju pelės mygtuku spustelėti jį ir kontekstiniame meniu pasirinkti parinktį „Ištrinti aplanką“. Tokiu būdu, kai reikės ištrinti visus paieškos aplankus, tikrai manysite, kad tai gana varginanti ir sudėtinga. Turite norėti juos visus ištrinti vienu metu. Taigi, čia mes jums pristatysime priemonę, kuri gali padėti atlikti ištrynimą akimirksniu.

Paketas ištrinti visus paieškos aplankus

1. Pačioje pradžioje turėtumėte paleisti „Outlook“ kaip įprasta.
2. Tada, patekę į pagrindinį "Outlook" ekraną, turite paspausti "Alt + F11" klavišų mygtukus.
3. Iš karto pateksite į „Microsoft Visual Basic for Applications“ langą.
4. Tada turite rasti ir atidaryti nenaudojamą modulį.
5. Tada galite nukopijuoti ir įklijuoti šį VBA kodą į šį modulį.

Sub BatchDeleteAllSearchFolders()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.store
    Dim objSearchFolders As Outlook.Folders
    Dim objSearchFolder As Outlook.Folder

    On Error Resume Next
    Set objStores = Outlook.Application.Session.Stores
 
    For Each objStore In objStores
        'Get all search folders under each Outlook data file
        Set objSearchFolders = objStore.GetSearchFolders
        For Each objSearchFolder In objSearchFolders
            'Delete each search folder
            objSearchFolder.Delete
        Next
    Next
End Sub

Pastabos:

• Galbūt „Outlook“ sukonfigūravote kelias el. pašto paskyras. Ir kiekvienas turi savo PST failus. Kiekviename faile galite sukurti keletą paieškos aplankų. Naudojant aukščiau pateiktą kodą, visi paieškos aplankai bus ištrinti, nesvarbu, kokiuose failuose jie yra.
• Jei norite nurodyti „Outlook“ duomenų failą, skiltyje „Kiekvienai objStore In objStores“ galite pridėti šią eilutę. Čia turėtumėte pakeisti „John Smith“ į rodomą savo PST failo pavadinimą.

If objStore.DisplayName = "John Smith" Then
 . . . . . . . . . . . . . . .
End If

6. Po to turėtumėte pakeisti „Outlook“ makrokomandos saugos lygį į žemą.
7. Galų gale, lange „Microsoft Visual Basic for Applications“, norėdami paleisti šią makrokomandą, galite spustelėti klavišo F5 mygtuką.
8. Baigę makrokomandą pastebėsite, kad visi jūsų „Outlook“ paieškos aplankai buvo ištrinti.

Apsaugokite savo „Outlook“ duomenis

Kadangi „Outlook“ yra linkusi į duomenų sugadinimą, turėtumėte dėti daug pastangų, kad „Outlook“ duomenys būtų gerai apsaugoti. Be abejo, vienas iš svarbiausių būdų yra nuolat kurti ir atnaujinti „Outlook“ failų atsargines kopijas. Be to, kad būtų galima nedelsiant atkurti duomenis gedimo atveju... Outlook korupcija, geriau paruoškite patikimą ir patikimą taisymo įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

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