За замовчуванням Outlook не дозволяє користувачам видаляти більше однієї папки пошуку за один раз, не кажучи вже про масове видалення всіх папок пошуку. Але ця стаття поділиться з вами методом, який може це реалізувати.
Як правило, щоб видалити папку пошуку, ви можете клацнути її правою кнопкою миші та вибрати опцію «Видалити папку» з контекстного меню. Таким чином, коли вам потрібно буде видалити всі ваші папки пошуку, ви напевно подумаєте, що це досить стомлююче та громіздке. Ви повинні захотіти видалити їх усі за один раз. Таким чином, тут ми представимо вам засіб, який може допомогти вам виконати видалення миттєво.
Пакетне видалення всіх папок пошуку
- На самому початку вам слід запустити Outlook як зазвичай.
- Потім, після доступу до головного екрана Outlook, вам потрібно натиснути клавіші «Alt + F11».
- Відразу ви потрапите у вікно «Microsoft Visual Basic for Applications».
- Згодом вам потрібно знайти та відкрити модуль, який не використовується.
- Далі ви можете скопіювати та вставити наведений нижче код 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
- Після цього вам слід змінити рівень захисту макросів Outlook на низький.
- Зрештою, у вікні «Microsoft Visual Basic для програм», щоб запустити цей макрос, ви можете натиснути кнопку F5.
- Після завершення роботи макросу ви побачите, що всі папки пошуку в Outlook видалено.
Захистіть свої дані Outlook
Оскільки Outlook схильний до пошкодження, вам слід докласти значних зусиль для захисту даних Outlook. Безсумнівно, одним із найважливіших способів є створення послідовних та актуальних резервних копій файлів Outlook. Крім того, щоб забезпечити негайне порятунок у разі Корупція в Outlook, вам краще підготувати надійний і авторитетний інструмент для виправлення, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com