So entfernen Sie schnell die Erinnerungen für das Auftreten eines wiederkehrenden Outlook-Termins am Wochenende

Wenn Sie nach der Planung eines wiederkehrenden Termins in Ihrem Outlook-Kalender die Erinnerungen an die auf das Wochenende fallenden Termine entfernen möchten, können Sie die in diesem Artikel vorgestellte Methode nutzen.

Haben Sie wiederkehrende Termine in Ihrem Outlook-Kalender? Sie haben beispielsweise einen wiederkehrenden Termin geplant, der alle 4 Tage stattfindet. In diesem Fall würden einige Termine auf Wochenenden fallen. An diesem Punkt sind die Erinnerungen an diese Wochenendtermine für Sie möglicherweise nutzlos. Daher möchten Sie die Erinnerungen entfernen. Mit Blick auf diese Anforderung stellen wir hier eine effektive und bequeme Methode vor.

Entfernen Sie die Erinnerungen für die Wochenendtermine eines wiederkehrenden Termins

1. Starten Sie gleich zu Beginn die Outlook-Anwendung.
2. Wechseln Sie dann über die Tastenkombination „Alt + F11“ zum Outlook-VBA-Editor.
3. Fügen Sie als Nächstes den folgenden VBA-Code in ein Projekt oder Modul ein.

Sub RemoveRemindersOfWeekendOccurrencesOfRecurringAppointments()
    Dim objAppointment As Outlook.AppointmentItem
    Dim objCalendar As Outlook.Folder
    Dim objCalendarItems As Outlook.Items
    Dim objRecurrencePattern As RecurrencePattern
    Dim dStartDate, dEndDate As Date
    Dim dCurrentDate, dActualTime As Date
    Dim strFilter As String
    Dim objFoundAppointment As Outlook.AppointmentItem
    Dim objOccurrence As Outlook.AppointmentItem
   
    Set objAppointment = Application.ActiveExplorer.Selection.Item(1)
 
    Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objCalendarItems = objCalendar.Items
    objCalendarItems.Sort "[Start]", False
    objCalendarItems.IncludeRecurrences = True
 
    Set objRecurrencePattern = objAppointment.GetRecurrencePattern
    dStartDate = Format(objRecurrencePattern.PatternStartDate, "MM/DD/YYYY")
    dEndDate = Format(objRecurrencePattern.PatternEndDate, "MM/DD/YYYY")
   
    dCurrentDate = dStartDate
    Do Until dCurrentDate >= dEndDate
       If Weekday(dCurrentDate) = vbSaturday Or Weekday(dCurrentDate) = vbSunday Then
          dActualTime = dCurrentDate & " " & objRecurrencePattern.StartTime
          dActualTime = Format(dActualTime, "ddddd hh:mm:ss AMPM")
 
          strFilter = "[Start] <= " & Chr(34) & dCurrentDate & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & dCurrentDate & " 00:00 AM" & Chr(34) & " AND [Subject] = " & Chr(34) & objAppointment.Subject & Chr(34)
          Set objFoundAppointment = objCalendarItems.Find(strFilter)
 
          If Not objFoundAppointment Is Nothing Then
             'Get the occurrence on weekends
             Set objOccurrence = objRecurrencePattern.GetOccurrence(dActualTime)
 
             'Remove the reminders
             With objOccurrence
                 .Subject = "(C)" & objAppointment.Subject
                 .ReminderSet = False
                 .Save
             End With
           End If
       End If
       dCurrentDate = DateAdd("d", 1, dCurrentDate)
    Loop
End Sub

4. Danach können Sie das Fenster schließen.
5. Befolgen Sie anschließend die im Artikel beschriebenen Schritte „So führen Sie VBA-Code in Outlook aus“, um dieses Makro zur Symbolleiste für den Schnellzugriff hinzuzufügen.
6. Führen Sie dieses Makro jetzt ggf. aus.

• Wählen Sie zunächst ein Vorkommen des wiederkehrenden Termins aus.
• Klicken Sie anschließend in der Symbolleiste für den Schnellzugriff auf die Makroschaltfläche.
• Nach Abschluss des Makros werden die Erinnerungen an die am Wochenende geplanten Termine entfernt. Außerdem werden die Betreffzeilen auf Grundlage des Codes geändert, wie im folgenden Screenshot:

Outlook vor Korruption schützen

Wie andere gängige Dateien, z. B. Word-Dokumente oder Excel-Arbeitsblätter, sind Outlook-Datendateien anfällig. Daher sollten Sie einige wirksame Vorsichtsmaßnahmen ergreifen, um die Wahrscheinlichkeit einer Beschädigung von Outlook zu verringern. Beispielsweise müssen Sie eine regelmäßige PST-Datensicherung durchführen. Darüber hinaus sollten wir, um Datenverlust zu verhindern, ein Outlook-Reparaturtool in der Nähe haben, wie z. B. DataNumen Outlook Repair. Es ist in der Lage Outlook reparieren Probleme mit müheloser Leichtigkeit.

Einführung des Autors:

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