So legen Sie automatisch unterschiedliche Erinnerungszeit für Outlook-Besprechungen in verschiedenen Farbkategorien fest

Wenn Sie Outlook-Besprechungen nach Farbkategorien klassifizieren und unterschiedliche Erinnerungszeit für Besprechungen in verschiedenen Farbkategorien festlegen möchten, können Sie auf diesen Artikel verweisen. Hier lernen Sie, dies mit Outlook VBA zu realisieren.

Angenommen, Sie teilen Ihre Besprechungen in zwei Gruppen ein. Die eine Gruppe befindet sich in der Kategorie „Extern“, da der Besprechungsort zu weit entfernt ist, die andere in der Kategorie „Vor Ort“, da der Besprechungsort direkt vor Ort ist. Sie möchten nun, dass Outlook die Erinnerungszeit für „Externe“ Besprechungen automatisch eine Stunde vor Beginn und für „Vor-Ort“-Besprechungen 15 Minuten vor Beginn einstellt. Im Folgenden stellen wir Ihnen eine einfache Methode vor, um diese Anforderung zu erfüllen.

Automatische Festlegung unterschiedlicher Erinnerungen für Besprechungen in verschiedenen Farbkategorien

1. Starten Sie zunächst Ihre Outlook-Anwendung.
2. Drücken Sie dann die Tasten „Alt + F11“, um auf das VBA-Editorfenster zuzugreifen.
3. Kopieren Sie anschließend im folgenden Fenster den folgenden VBA-Code und fügen Sie ihn in das Projekt „ThisOutlookSession“ ein.

Public WithEvents objCalendar As Outlook.Folder
Public WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
    Set objCalendar = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objCalendarItems = objCalendar.Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Call SetReminder_BasedOnCategories(Item)
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Call SetReminder_BasedOnCategories(Item)
End Sub

Private Sub SetReminder_BasedOnCategories(ByVal objCalendarItem As Object)
    Dim objMeeting As Outlook.AppointmentItem
    Dim strCategories As String
 
    If objCalendarItem.Class = olAppointment Then
       'Check if the item is a meeting
       If objCalendarItem.MeetingStatus = olMeeting Then
          Set objMeeting = objCalendarItem
          strCategories = objMeeting.Categories
 
          'Set Reminder as 60 min before start for offsite appointments
          If InStr(strCategories, "Offsite") > 0 Then
             With objMeeting
                 .ReminderSet = True
                 .ReminderMinutesBeforeStart = 60
                 .Save
             End With
             'Set Reminder as 15 min before start for onsite appointments
          ElseIf InStr(strCategories, "Onsite") > 0 Then
             With objMeeting
                 .ReminderSet = True
                 .ReminderMinutesBeforeStart = 15
                 .Save
             End With
          End If
       End If
    End If
End Sub

4. Anschließend müssen Sie in die Unterroutine „Application_Startup“ klicken und die Taste „F5“ drücken, um dieses Makro auszuführen.
5. Seitdem überprüft Outlook jedes Mal, wenn eine neue Besprechung zum Standardkalender hinzugefügt wird oder Sie eine vorhandene Besprechung ändern, automatisch die Kategorien der Besprechung und stellt automatisch die andere Erinnerungszeit ein.

Beseitigen Sie Outlook-Fehler

Bei Outlook können gelegentlich verschiedene Probleme auftreten. Daher ist es äußerst wichtig, dass Benutzer lernen, wie sie mit diesen Problemen umgehen. Zunächst sollten Sie regelmäßig Datensicherungen Ihrer Outlook-Daten erstellen. Darüber hinaus empfiehlt es sich, sofern möglich, ein leistungsstarkes Backup bereitzuhalten. Outlook reparieren Werkzeug in der Nähe, wie z DataNumen Outlook Repair. Es kann Ihre PST-Datei scannen, um Outlook-Probleme herauszufinden und sie dann problemlos zu beheben.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Wiederherstellung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX