Jak dávkově odstranit všechny složky hledání v aplikaci Outlook

Ve výchozím nastavení Outlook neumožňuje uživatelům smazat více než jednu složku hledání najednou, nemluvě o hromadném odstranění všech složek hledání. Tento článek vám ale bude sdělit metodu, která ji může realizovat.

Chcete-li odstranit složku pro vyhledávání, můžete na ni kliknout pravým tlačítkem myši a v místní nabídce zvolit možnost „Odstranit složku“. Tímto způsobem, když potřebujete smazat všechny své vyhledávací složky, budete si jistě myslet, že je to docela zdlouhavé a těžkopádné. Musíte chtít odstranit všechny najednou. Tady vám tedy představíme prostředek, který vám může pomoci vymazat během chvilky.

Dávkové odstranění všech složek hledání

1. Hned na začátku byste měli Outlook spouštět jako obvykle.
2. Poté, co vstoupíte na hlavní obrazovku Outlooku, musíte stisknout klávesy „Alt + F11“.
3. Najednou se dostanete do okna „Microsoft Visual Basic for Applications“.
4. Následně musíte najít a otevřít modul, který se nepoužívá.
5. Dále můžete do tohoto modulu zkopírovat a vložit následující kód VBA.

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

Poznámky:

• Možná jste ve svém Outlooku nakonfigurovali několik e-mailových účtů. A každý z nich má své vlastní soubory PST. V každém souboru můžete vytvořit některé vyhledávací složky. Výše uvedeným kódem budou odstraněny všechny vyhledávané složky bez ohledu na to, v jakých souborech jsou umístěny.
• Chcete-li určit datový soubor aplikace Outlook, můžete přidat následující řádek pod „Pro každý objStore V objStores“. Zde byste měli změnit „John Smith“ na zobrazovaný název vašeho vlastního souboru PST.

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

6. Poté byste měli změnit úroveň zabezpečení maker aplikace Outlook na nízkou.
7. Nakonec v okně „Microsoft Visual Basic pro aplikace“ spustíte toto makro kliknutím na klávesu F5.
8. Po dokončení makra zjistíte, že byly odstraněny všechny složky hledání v aplikaci Outlook.

Chraňte svá data aplikace Outlook

Vzhledem k tomu, že Outlook je náchylný k poškození, měli byste vynaložit velké úsilí na ochranu dat v Outlooku. Jedním z nejdůležitějších způsobů je bezpochyby konzistentní a aktuální zálohování souborů Outlooku. Kromě toho, abyste v případě potřeby mohli okamžitě zachránit... Outlook korupce, měli byste lépe připravit přesvědčivý a renomovaný nástroj pro opravu, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com