Outlook 2007 - kuidas käivitada kõik reeglid
09.10.2009 | Gunnar
Sattusin peale masinale uue installi tegemist huvitava olukorra otsa. Mul on kasutusel Outlook 2007, kus on defineeritud mõnikümmend reeglit, mille alusel sissetulevad e-postid õigetesse kataloogidesse paigutatakse. Peale reeglite importimist ei ole neid võimalik enam korraga käivitada. Probleemile leidsin suhteliselt lihtsa ja lollikindla lahenduse.
Proovisin ka sellist lähenemist, et lisan ise menüüsse kõikide reeglite käivitamise valiku (mis seal enamasti olemas on), kuid see ei olnud eriti abiks.
Pildil on näha ka tekkinud probleem – reeglid pole vaikimisi märgitud ja kui ka märkida, siis ei jäta Outlook seda meelde.
Igakord oma 50 reeglit ära märkida pole just lõbus tegemine.
Probleemi lahendab ära järgmine Outlook 2007 jaoks mõeldud VBA skript (kes paigaldamisel abi vajab, siis võib kommentaarides märku anda).
Dim store As Outlook.store
Dim rules As Outlook.rules
Dim rule As Outlook.rule
Dim ruleList As String
Set store = Application.Session.DefaultStore
Set rules = store.GetRules
For Each rule In rules
If rule.RuleType = olRuleReceive Then
rule.Execute ShowProgress:=True
ruleList = ruleList & vbCrLf & rule.Name
End If
Next
ruleList = "These rules were executed against the Inbox: " & _
vbCrLf & ruleList
MsgBox ruleList, vbInformation, "Macro: RunAllRules"
Set rule = Nothing
Set rules = Nothing
Set store = Nothing
End Sub
See skript tuleb paigutada Outlook 2007 projektifaili (ALT+F11 avab VBA akna). Käivitamisel laseb skript käima kõik Outlook 2007 meilide reeglid, mille kasutaja on loonud.
Iga reegli käivitamisel kuvatakse ka dialoogiakent, mis näitab kui kaugel progressiga parasjagu ollakse antud reegli raamides. Suuremahuliste postkastide korral on see igati abiks asi, sest muidu võib jääda mulje, et Outlook on hangunud.
Outlook 2007 menüüsse soovitab luua uue valiku, mis eeltoodud skripti käivitab. On oluliselt mugavam.