Regel zum Hinzufügen einer Kategorie bei @Erwähnungen

Outlook bietet zwar einen Filter, um Nachrichten anzuzeigen, in denen Sie @erwähnt wurden, aber Sie können auch eine benutzerdefinierte Regel erstellen, die eine Kategorie hinzufügt, wenn Sie in einer Nachricht @erwähnt wurden. Dies kann besonders nützlich sein, um Nachrichten hervorzuheben oder spezielle Aktionen auszuführen.

Überblick über den Lösungsansatz

Wir werden ein VBA-Skript verwenden, um eine Kategorie zu Nachrichten hinzuzufügen, in denen Sie @erwähnt wurden. Dazu erstellen wir ein Makro, das beim Eintreffen neuer Nachrichten ausgeführt wird. Dieses Makro überprüft, ob Sie in der Nachricht @erwähnt wurden, und fügt dann eine Kategorie hinzu.

Schritt-für-Schritt-Anleitung

• Öffnen Sie den VBA-Editor:
  • Drücken Sie ALT + F11, um den VBA-Editor in Outlook zu öffnen.
• Erstellen Sie ein neues Modul:
  • Gehen Sie zu Einfügen > Modul, um ein neues Modul zu erstellen.
• Fügen Sie den VBA-Code ein:
  • Kopieren Sie den folgenden Code und fügen Sie ihn in das neue Modul ein.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace
Dim Folder As Outlook.MAPIFolder
Set Ns = Application.GetNamespace("MAPI")
Set Folder = Ns.GetDefaultFolder(olFolderInbox)
Set Items = Folder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
On Error Resume Next
Dim Msg As Outlook.MailItem

If TypeName(Item) = "MailItem" Then
Set Msg = Item

' Prüfen, ob der Benutzer @erwähnt wurde
If InStr(Msg.Body, "@" & Ns.CurrentUser) > 0 Then
' Kategorie hinzufügen
Msg.Categories = Msg.Categories & ", @Erwähnt"
Msg.Save
End If
End If
End Sub

• Speichern und Schließen:
  • Speichern Sie das Modul und schließen Sie den VBA-Editor.
• Outlook neu starten:
  • Starten Sie Outlook neu, damit das Makro aktiviert wird.

Erläuterung des Codes

• Application_Startup: Diese Prozedur wird beim Starten von Outlook ausgeführt und initialisiert das Items-Objekt, um neue Elemente im Posteingang zu überwachen.
• Items_ItemAdd: Diese Prozedur wird ausgeführt, wenn ein neues Element im Posteingang hinzugefügt wird. Sie überprüft, ob das Element eine E-Mail ist und ob der aktuelle Benutzer in der E-Mail @erwähnt wurde. Wenn ja, wird die Kategorie @Erwähnt hinzugefügt.

Anpassungen

Sie können den Code anpassen, um andere Aktionen auszuführen, z.B.:

• Nachricht verschieben:

Dim DestFolder As Outlook.MAPIFolder
Set DestFolder = Ns.GetDefaultFolder(olFolderInbox).Folders("Zielordner")
Msg.Move DestFolder

• Nachricht kennzeichnen und Erinnerung setzen:

Msg.FlagRequest = "Zur Nachverfolgung"
Msg.TaskDueDate = Now + 1
Msg.ReminderSet = True
Msg.ReminderTime = Now + 1

Zusammenfassung

Mit diesem VBA-Skript können Sie eine Kategorie zu Nachrichten hinzufügen, in denen Sie @erwähnt wurden. Dies kann helfen, wichtige Nachrichten schneller zu erkennen und entsprechend zu handeln. Passen Sie den Code nach Ihren Bedürfnissen an, um zusätzliche Aktionen wie das Verschieben oder Kennzeichnen von Nachrichten durchzuführen.