Jei reikia grupiniu būdu ištrinti visas „Outlook“ taisykles, atliekančias konkretų veiksmą, pvz., „Perkelti“, „Kopijuoti“ arba „Pažymėti“, galite perskaityti šį straipsnį. Čia kaip pavyzdį pateiksime veiksmą „Perkelti“, kad pristatytume 2 greitus metodus.
Kartais galbūt norėsite ištrinti visas taisykles, atliekančias konkretų veiksmą programoje „Outlook“. Pavyzdžiui, atkūrėte aplankų struktūras savo pašto dėžutėse. Taigi jūs ketinate iš naujo klasifikuoti ir archyvuoti el. laiškus į skirtingus aplankus. Tokiu atveju galbūt norėsite ištrinti visas taisykles, atliekančias veiksmą „Perkelti“. Žvelgdami į tai, čia pristatysime 2 būdus. Pirmasis tinka vienai pašto dėžutei. Bet jei norite apdoroti visas „Outlook“ pašto dėžutes, geriau naudokite šį 2 metodą.
1 būdas: paketinis ištrynimas vienoje pašto dėžutėje
- Norėdami pradėti, spustelėkite „Failas“.
- Tada meniu „Failas“ spustelėkite mygtuką „Tvarkyti taisykles ir įspėjimus“.
- Kitame dialogo lange „Taisyklės ir įspėjimai“ taisyklių sąraše galite matyti stulpelį „Veiksmai“. Ir veiksmo „Perkelti“ piktograma yra
.
- Dabar paspauskite klavišą „Ctrl“ ir pasirinkite taisykles, kurių veiksmo piktograma yra
vienas po kito. - Pasirinkę taisykles, virš taisyklių sąrašo spustelėkite mygtuką „Ištrinti“.
2 būdas: ištrinkite paketą visose pašto dėžutėse
- Pirmiausia paleiskite „Outlook VBA“ redaktorių pagal „Kaip paleisti VBA kodą „Outlook“.".
- Tada nukopijuokite šį VBA kodą į tuščią 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
- Tada paspauskite klavišą F5, kad paleistumėte šią makrokomandą dabar.
- Kai makrokomanda bus baigta, patikrinkite kiekvienos „Outlook“ pašto dėžutės taisykles. Dingo visos taisyklės, susijusios su veiksmu „Perkelti“.
Susitvarkykite su nerimą keliančiomis „Outlook“ klaidomis
Ar naudodamiesi „Outlook“ gaunate klaidų pranešimų? Tiesą sakant, „Outlook“ yra linkusi į klaidas ir netgi sugadinti. Todėl dažnai susiduriama su „Outlook“ klaidomis. Laimei, „Outlook“ teikia integruotą taisymo įrankį – scanpst. Galite naudoti jį norėdami ištaisyti klaidas. Jei nepavyksta, paskutinė priemonė yra sumanesnis ir stipresnis išorinis įrankis, pvz DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com


