Von einem Freund erhielt ich vor einigen Wochen die Problemstellung geschildert, dass dieser Regeln in Outlook ausführen möchte. Genauer:
... auf der Party¹ hatten wir über ein Makro gesprochen, das im Outlook alle Regeln ausführt. Also nur durch Anklicken eines Symbols den Posteingang aufräumt, sofern dort entsprechende Regeln vorhanden. Es wäre cool, wenn du das hinbekommen könntest. ...
Das sind zwei Anforderungen:
- die Regeln von Outlook sollen per VBA angesteuert werden können
- die Regeln sollen pro Ordner ausgeführt werden können, also nicht nur auf den Posteingang
Unter den Vorgängerversionen von Outlook 2007 funktioniert dieses nicht, weil das Objektmodell von Outlook dort keinen Zugriff auf die Regeln bzw. den Regelassistenten unterstützt. Hier könnte man nur, ähnlich der Lösung bei einer automatischen Synchronisation über ActiveSync per Bluetooth über phoneAlarm, Nachrichten schicken. Doch Robert hat die 2007er Version, so dass alles für eine perfekte Lösung vorhanden ist. Scott Hanselman hat gestern gezeigt, wie leicht Outlook 2007 automatisiert werden kann. Scott hat nur zwei Zeilen Anwendungscode benötigt und auch bei dieser Aufgabenstellung werden es nur unwesentlich mehr, wie ich heute beim Lösen der Problemstellung festgestellt habe.
Damit Makros unter Outlook funktionieren, muss die Sicherheit etwas weniger restriktiv gesetzt sein. Das findet sich unter Extras, Makro, Sicherheit, Makrosicherheit. Dort ist der Wert Warnungen für alle Makros bzw. Keine Sicherheitsprüfung für Makros einzustellen.
Wenn nicht, erscheint bei der Ausführung von unsignierten Makros eine Fehlermeldung.
Wenn der Wert Warnungen für alle Makros gewählt wird, erscheint dann eine Warnung beim Öffnen der Makros über Extra, Makros. Makros bleiben über die Symbolleiste aber deaktiviert. Demzufolge ist dann nur der Wert Keine Sicherheitsüberprüfung für Makros sinnvoll.
Das Makro wird dann über Extras, Makro, Makros eingefügt. Dazu muss zuerst ein Name bei Makroname eingegeben und dann auf Erstellen geklickt werden. Als Name ist z. B. RunAllRules selbstsprechend. Im dem darauffolgenden Fenster ist zuerst der folgende Anwendungscode einzufügen und danach dieses Fenster wieder zu schließen (Sub RunAllRules() und End Sub wird automatisch eingefügt).
Sub RunAllRules()
Dim outlookStore As Outlook.Store
Dim allRules As Outlook.Rules
Dim actualRule As Outlook.Rule
Set outlookStore = Application.Session.DefaultStore
Set allRules = outlookStore.GetRules
For Each actualRule In allRules
If actualRule.RuleType = olRuleReceive And actualRule.Enabled Then
actualRule.Execute ShowProgress:=True
End If
Next
Set outlookStore = Nothing
Set allRules = Nothing
Set actualRule = Nothing
End Sub
Um dann das Makro auch bequem aufrufen zu können, muss in eine freie Fläche einer Symbolleiste mit der rechten Maustaste geklickt und dann Anpassen gewählt werden. Dort ist dann in Kategorien der Wert Makros und bei Befehlen Standard.RunAlles auszuwählen. Dieses kann danach mit der linken Maustaste in irgendeine Symbolleiste gezogen werden.
Es braucht nur noch ein Klick mit der rechten Maustaste auf das Symbol Standard.RunAllRules und schon kann über Schaltflächensymbol ändern ein sinnvolleres Symbol ausgewählt werden. Ein erneuter Klick mit der rechten Maustaste darauf und anschließender Auswahl Standard führt dazu, das dann auch nur das gewählte Symbol angezeigt wird und nicht noch Text. Dann benötigt es nur noch den Klick auf Schließen und schon steht das Makro komfortabel zur Verfügung, das alle definierten Regeln ausführt.
Wem die angezeigte Verlaufsbar nicht gefällt, ändert
actualRule.Execute ShowProgress:=True
einfach in
und schon wird nichts mehr angezeigt.
Der obige Anwendungscode führt die definierten Regeln immer gegen den Ordner Posteingang aus. Die Methode Execute einer Regel erlaubt aber Parameter. Sie lautet
rule.Execute(ShowProgress, Folder, IncludeSubfolders,
RuleExecuteOption)
Für Regel auf den aktuell gewählten Ordner muss dann nur noch der Aufruf dieser Methode im obigen Anwendungcode anpasst und der aktuelle Ordner als Parameter mit übergeben werden. Siehe dazu auch hier.
¹ Ja, so was wird auf einer Party gefragt... ;)