Kako paketno izbrisati vse iskalne mape v Outlooku

Outlook privzeto uporabnikom ne dovoljuje brisanja več kot ene iskalne mape naenkrat, da ne omenjamo množičnega brisanja vseh iskalnih map. Toda ta članek vam bo predstavil metodo, ki jo lahko uresniči.

Na splošno lahko za brisanje iskalne mape z desno miškino tipko kliknete eno in v kontekstnem meniju izberete možnost »Izbriši mapo«. Na ta način, ko boste morali izbrisati vse svoje iskalne mape, se vam bo to zagotovo zdelo precej dolgočasno in okorno. Zagotovo želite izbrisati vse naenkrat. Zato vam bomo tukaj predstavili sredstvo, ki vam lahko pomaga pri brisanju v hipu.

Paketno brisanje vseh iskalnih map

1. Na samem začetku bi morali Outlook zagnati kot običajno.
2. Nato po dostopu do glavnega zaslona Outlooka morate pritisniti tipki »Alt + F11«.
3. Takoj boste prišli v okno »Microsoft Visual Basic for Applications«.
4. Nato morate najti in odpreti modul, ki ni v uporabi.
5. Nato lahko kopirate in prilepite naslednjo kodo VBA v ta 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

Opombe:

• Morda ste v Outlooku konfigurirali več e-poštnih računov. In vsaka ima svoje datoteke PST. V vsaki datoteki lahko ustvarite nekaj iskalnih map. Z zgornjo kodo bodo izbrisane vse iskalne mape, ne glede na to, v katerih datotekah se nahajajo.
• Če želite določiti Outlookovo podatkovno datoteko, lahko dodate naslednjo vrstico pod »Za vsako objStore v objStores«. Tukaj bi morali spremeniti »John Smith« v prikazno ime vaše datoteke PST.

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

6. Po tem bi morali spremeniti raven varnosti makra v Outlooku na nizko.
7. Sčasoma lahko v oknu »Microsoft Visual Basic for Applications« zaženete ta makro tako, da kliknete tipko F5.
8. Ko se makro konča, boste ugotovili, da so bile vse iskalne mape v Outlooku izbrisane.

Zaščitite svoje Outlookove podatke

Ker je Outlook nagnjen k poškodbam, si morate zelo prizadevati za zaščito podatkov v Outlooku. Nedvomno je eden najpomembnejših načinov dosledno in posodobljeno varnostno kopiranje datotek Outlook. Poleg tega lahko v primeru težav zagotovite takojšnjo rešitev. Outlook korupcija, raje pripravite prepričljivo in ugledno orodje za popravilo, kot je npr DataNumen Outlook Repair.

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 obnoviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com