2 efektīvas metodes visu Outlook kārtulu sērijveida dzēšanai, veicot noteiktu darbību

Ja jums ir nepieciešams sērijveidā izdzēst visus Outlook kārtulas, kas veic noteiktu darbību, piemēram, “Pārvietot”, “Kopēt” vai “Atzīmēt”, varat izlasīt šo rakstu. Šeit mēs izmantosim darbību “Pārvietot” kā piemēru, lai iepazīstinātu jūs ar divām ātrām metodēm.

Reizēm, iespējams, vēlēsities izdzēst visus noteikumus, kas programmā Outlook veic noteiktu darbību. Piemēram, pastkastēs esat pārbūvējis mapju struktūras. Tādējādi jūs plānojat pārklasificēt un arhivēt e-pastus dažādās mapēs. Šajā gadījumā, iespējams, vēlēsities paketē izdzēst visus noteikumus, kas veic darbību “Pārvietot”. Apskatot to, šeit mēs ieviesīsim 2 veidus. Pirmais ir piemērots vienai pastkastei. Bet, ja vēlaties apstrādāt visas Outlook pastkastes, labāk izmantojiet šo 2. metodi.

1. metode: partijas dzēšana vienā pastkastē

1. Vispirms noklikšķiniet uz “Fails”.
2. Pēc tam izvēlnē Fails noklikšķiniet uz pogas Pārvaldīt kārtulas un brīdinājumus.
3. Nākamajā dialoglodziņā “Noteikumi un brīdinājumi” kārtulu sarakstā varat redzēt sleju “Darbības”. Darbības “Pārvietot” ikona ir .
4. Tagad nospiediet taustiņu “Ctrl” un tikmēr atlasiet kārtulas, kuru darbības ikona ir  vienu pēc otra.
5. Pēc noteikumu izvēles noklikšķiniet uz pogas “Dzēst” virs kārtulu saraksta.

2. metode: partijas dzēšana visās pastkastēs

1. Lai sāktu, palaidiet Outlook VBA redaktoru saskaņā ar “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam kopējiet šo VBA kodu tukšā modulī.

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. Pēc tam nospiediet taustiņu “F5”, lai tūlīt palaistu šo makro.
4. Kad makro ir pabeigts, pārbaudiet katras Outlook pastkastes noteikumus. Visi noteikumi, kas saistīti ar darbību “Pārvietot”, vairs nav spēkā.

Dariet ar satraucošām Outlook kļūdām

Vai, lietojot programmu Outlook, tiek parādīti kļūdu ziņojumi? Patiesībā programma Outlook ir pakļauta kļūdām un pat korupcijai. Tādējādi bieži sastopas ar Outlook kļūdām. Par laimi, Outlook nodrošina iebūvēto labošanas rīku - Scanpst. Varat to izmantot, lai mēģinātu novērst kļūdas. Ja tas neizdodas, jūsu pēdējā iespēja ir izveicīgāks un spēcīgāks ārējs rīks, piemēram DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar