Wie kann man in Outlook automatisch eine Farbkategorie zu Besprechungen zuweisen, nachdem man sie akzeptiert hat?
In Ihrer täglichen Arbeit erhalten Sie möglicherweise mehrere Besprechungs-E-Mails in Outlook. Manchmal möchten Sie bestimmte Farbkategorien automatisch zu Besprechungen hinzufügen, sobald diese akzeptiert werden. Normalerweise können Sie dies manuell tun, aber es ist mühsam, dies einzeln für jede Besprechung zu machen. In diesem Artikel zeige ich Ihnen, wie Sie dies in Outlook automatisieren können.
Automatische Zuweisung von Farbkategorien zu Besprechungen nach deren Annahme mit VBA-Code
Automatische Zuweisung von Farbkategorien zu Besprechungen nach deren Annahme mit VBA-Code
1. Halten Sie die Tasten "ALT + F11" gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.
2. Doppelklicken Sie im Fenster "Microsoft Visual Basic for Applications" auf "ThisOutlookSession" im Bereich "Project1(VbaProject.OTM)", um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.
VBA-Code: Automatische Zuweisung von Farbkategorien zu Besprechungen nach deren Annahme
Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
Set xMeetingItem = Item
If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
Set xMeetingItemAccepted = xMeetingItem
Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
With xAppointmentItem
.Categories = .Categories & "Red Category"
.Save
End With
End If
End If
End Sub
Hinweis: Im obigen Code können Sie "Red Category" durch den gewünschten Namen der Farbkategorie ersetzen.
3. Starten Sie anschließend Ihr Outlook neu, um das Makro auszulösen.
4. Wenn Sie nun die Besprechungs-E-Mail akzeptieren und auf die Option "Antwort jetzt senden" klicken, wird die spezifische Farbkategorie sofort der akzeptierten Besprechung zugewiesen. Siehe Screenshot:
Hinweis: Dieser Code gilt nur für das Standard-Datenkonto.
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
