如何快速刪除Outlook定期約會的周末發生的提醒

Outlook解決方案 2025 年 9 月 29 日

在Outlook日曆中安排定期約會後，如果要刪除有關週末發生事件的提醒，則可以使用本文介紹的方法。

您的Outlook日曆中是否有任何定期約會？例如，您已安排每4天進行一次定期約會。在這種情況下，這種約會的某些情況將發生在周末。在這一點上，這些週末發生的提醒可能對您沒有用。因此，您想刪除他們的提醒。針對這一要求，在這裡我們將介紹一種有效而便捷的方法。

刪除有關定期約會的周末發生的提醒

首先，啟動Outlook應用程序。
然後，通過“ Alt + F11”鍵轉到Outlook VBA編輯器。
接下來，將以下VBA代碼放入項目或模塊中。

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

之後，您可以關閉窗口。
隨後，按照文章“如何在Outlook中運行VBA代碼”以將該宏添加到快速訪問工具欄。
最終，現在運行此宏。

首先，選擇一次定期約會。
接下來，單擊快速訪問工具欄中的宏按鈕。
宏完成後，將刪除週末安排的提醒。另外，主題將根據代碼進行更改，如以下屏幕截圖所示：

防止腐敗的前景

與Word文件，Excel工作表等其他常見文件一樣，Outlook數據文件也容易受到攻擊。因此，您應該採取一些有力的預防措施，以減少Outlook損壞的可能性。例如，您必須堅持常規的PST數據備份。此外，為了防止數據丟失，我們應該將Outlook修復工具保留在附近，例如 DataNumen Outlook Repair。它能夠維修展望毫不費力地解決問題。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 sql損壞和Outlook修復軟件產品。欲了解更多信息，請訪問萬維網。datanumen.COM