Reporter | |
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert. |
In der folgenden, ersten Funktion des Makros legen Sie Ihre gewünschten Einstellungen fest.
Starten Sie das Makro z.B. über ALT+F8.
Public Sub RunRules() Dim RunEnabledRules As Boolean Dim RunDisabledRules As Boolean Dim ExecuteOption As Long Dim IncludeSubfolders As Boolean Dim Inbox As Boolean 'Aktivierte Regeln ausführen (true/false) RunEnabledRules = True 'Deaktivierte Regeln ausführen (true/false) RunDisabledRules = False 'Auf welche Nachrichten sollen die Regeln angewendet werden? '0 = alle Nachrichten '1 = nur gelesene Nachrichten '2 = nur ungelesene Nachrichten ExecuteOption = 0 'Startordner ist der Posteingang (true) oder der aktuelle Ordner (false) Inbox = True 'Regeln nur auf den Startordner anwenden (false) oder auch auf dessen Unterordner (true) IncludeSubfolders = False RunRules_ex RunEnabledRules, RunDisabledRules, ExecuteOption, IncludeSubfolders, Inbox End Sub
SAM | |
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln. |
Dieser zweite Teil führt die eigentliche Arbeit aus. Hier brauchen Sie nichts anzupassen.
Private Sub RunRules_ex(ByVal RunEnabledRules As Boolean, ByVal RunDisabledRules As Boolean, _ ByVal ExecuteOption As Long, ByVal IncludeSubfolders As Boolean, ByVal Inbox As Boolean) Dim Store As Outlook.Store Dim Rules As Outlook.Rules Dim Rule As Outlook.Rule Dim Folder As Outlook.Folder If Inbox Then Set Folder = Application.Session.GetDefaultFolder(olFolderInbox) Else Set Folder = Application.ActiveExplorer.CurrentFolder End If Set Store = Application.Session.DefaultStore Set Rules = Store.GetRules For Each Rule In Rules If Rule.RuleType = olRuleReceive Then If Rule.Enabled Then If RunEnabledRules Then Rule.Execute , Folder, IncludeSubfolders, ExecuteOption End If Else If RunDisabledRules Then Rule.Execute , Folder, IncludeSubfolders, ExecuteOption End If End If End If Next End Sub
Reporter | |
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert. |