2 ефективні методи пакетного видалення всіх правил Outlook, виконуючи певну дію

Якщо вам потрібно пакетно видалити всі правила Outlook, які виконують певну дію, наприклад, "Перемістити", "Копіювати" або "Позначити", ви можете прочитати цю статтю. Тут ми візьмемо для прикладу дію «Переміщення», щоб представити вам 2 швидкі методи.

Іноді вам може знадобитися видалити всі правила, що виконують певну дію в Outlook. Наприклад, ви відновили структури папок у своїх поштових скриньках. Таким чином, ви маєте намір перекласифікувати та архівувати електронні листи в різні папки. У цьому випадку вам може знадобитися групове видалення всіх правил, що виконують дію «Переміщення». Дивлячись на це, тут ми представимо 2 способи. Перший підходить для однієї поштової скриньки. Але якщо ви хочете обробити всі поштові скриньки у вашому Outlook, вам краще скористатися наведеним нижче способом 2.

Спосіб 1: Пакетне видалення в одній поштовій скриньці

1. Для початку натисніть «Файл».
2. Потім у меню «Файл» натисніть кнопку «Керувати правилами та сповіщеннями».
3. У наступному діалоговому вікні "Правила та попередження" ви можете побачити стовпець "Дії" у списку правил. І піктограма дії «Переміщення» є .
4. Тепер натисніть клавішу "Ctrl", а тим часом виберіть правила, піктограмою яких є дія  один за одним.
5. Після вибору правил натисніть кнопку «Видалити» над списком правил.

Спосіб 2: Пакетне видалення у всіх поштових скриньках

1. Для початку запустіть редактор Outlook VBA відповідно до «Як запустити код VBA у своєму Outlook».
2. Далі скопіюйте наступний код VBA у порожній модуль.

Sub DeleteAllMoveRules()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objRules As Outlook.rules
    Dim i As Long
    Dim objRule As Outlook.Rule
    Dim objRuleAction, objMoveRuleAction As Outlook.RuleAction
 
    Set objStores = Outlook.Application.Session.Stores
 
    'Process all mailboxes
    For Each objStore In objStores
        Set objRules = objStore.GetRules
 
        For i = objRules.Count To 1 Step -1
            Set objRule = objRules(i)
            For Each objRuleAction In objRule.Actions
                'If "Move" action is enabled
                If objRuleAction.ActionType = olRuleActionMoveToFolder Then
                   Set objMoveRuleAction = objRuleAction
                   If objMoveRuleAction.Enabled = True Then
                      'Delete the rule
                      objRules.Remove (objRule.Name)
                      On Error Resume Next
                      objRules.Save
                      Exit For
                   End If
                 End If
            Next
       Next i
    Next
End Sub

3. Згодом натисніть клавішу “F5”, щоб запустити цей макрос прямо зараз.
4. Коли макрос завершиться, перевірте правила кожної поштової скриньки в Outlook. Усі правила, пов’язані з дією „Переміщення”, зникли.

Поводьтеся з тривожними помилками Outlook

Чи отримуєте повідомлення про помилки під час використання Outlook? Насправді Outlook схильний до помилок і навіть корупції. Отже, часто зустрічаються помилки Outlook. На щастя, Outlook надає вбудований інструмент виправлення - scanpst. За допомогою нього можна спробувати виправити помилки. Якщо це не вдається, ваша остання інстанція - це більш вмілий та потужний зовнішній інструмент, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com