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 и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com