Как групово да изтриете всички папки за търсене във вашия Outlook

По подразбиране Outlook не позволява на потребителите да изтриват повече от една папка за търсене наведнъж, да не говорим за групово изтриване на всички папки за търсене. Но тази статия ще ви сподели метод, който може да го реализира.

Като цяло, за да изтриете папка за търсене, можете да щракнете с десния бутон върху нея и да изберете опцията „Изтриване на папка“ от нейното контекстно меню. По този начин, когато трябва да изтриете всичките си папки за търсене, със сигурност ще го смятате за доста досаден и тромав. Трябва да пожелаете да ги изтриете наведнъж. По този начин тук ще ви представим средство, което може да ви помогне да извършите заличаването за миг.

Пакетно изтриване на всички папки за търсене

1. В самото начало трябва да стартирате вашия Outlook както обикновено.
2. След това, след като влезете в основния екран на Outlook, трябва да натиснете бутоните „Alt + F11“.
3. Веднага ще влезете в прозореца „Microsoft Visual Basic for Applications“.
4. Впоследствие трябва да намерите и отворите модул, който не се използва.
5. След това можете да копирате и поставите следния 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

Забележки:

• Може би сте конфигурирали няколко имейл акаунта във вашия Outlook. И всеки има свои собствени PST файлове. Във всеки файл можете да създадете няколко папки за търсене. Чрез горния код всички папки за търсене ще бъдат изтрити, независимо в какви файлове се намират.
• Ако искате да посочите файл с данни на Outlook, можете да добавите следния ред под „За всеки objStore В objStores“. Тук трябва да промените “John Smith” на показваното име на вашия собствен PST файл.

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

6. След това трябва да промените нивото на защита на макроса на Outlook на ниско.
7. В крайна сметка, в прозореца „Microsoft Visual Basic for Applications“, за да стартирате този макрос, можете да щракнете върху бутона F5.
8. След като макросът завърши, ще откриете, че всички папки за търсене във вашия Outlook са изтрити.

Защитете данните си в Outlook

Поради факта, че Outlook е податлив на повреди, трябва да положите големи усилия, за да поддържате данните в Outlook добре защитени. Несъмнено един от най-важните начини е да правите последователни и актуални резервни копия на вашите Outlook файлове. Освен това, за да предложите незабавно спасяване в случай на... Корупция в Outlook, по-добре подгответе убедителен и уважаван инструмент за коригиране, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com