如何防止 Outlook 提醒過早或過晚？

Author: Kelly Last Modified: 2025-05-12

例如，您每天從早上 9 點工作到下午 6 點，但現在您正在安排上午 10 點的約會，並在 Outlook 中為其設置了 2 小時的提醒。這意味著提醒將在您上班前的早上 8 點響起。另一方面，在特殊情況下，提醒可能會在半夜響起。這非常不方便，一些 Outlook 使用者可能希望防止 Outlook 提醒過早或過晚。在這裡，我將向您介紹一個 VBA 宏來解決這個問題。

Office Tab - 啟用 Microsoft Office 中的分頁編輯和瀏覽功能，讓工作變得輕鬆愉快

閱讀 Office Tab 的功能下載 Office Tab

立即解鎖 Kutools for Outlook 的免費版本，享受超過 70 種功能的無限存取權限

透過 AI 技術提升您的郵件處理效率，讓您快速回覆郵件、撰寫新郵件、翻譯郵件內容等，更加高效地完成工作
透過規則自動化郵件處理，例如自動抄送密送、自動轉寄；無需 Exchange 伺服器即可發送自動回覆（外出通知）...
當您在密件抄送清單中並嘗試全部回覆時，會收到如答覆的郵件為BCC時提示等提醒，以及忘記附加檔案時的附件遺漏提醒...
透過帶有附件的回覆（全部）、自動新增問候語或日期與時間至簽名檔或主題欄、一次回覆多封郵件等功能提升郵件處理效率...
透過撤回郵件、附件工具（壓縮所有附件、自動保存所有附件...）、刪除重複郵件以及快速報告等功能簡化郵件處理流程...

強化您的 Outlook 2024 - 2010 或 Outlook 365，使用這些進階功能。享受 70 多種強大功能，提升您的郵件體驗！

閱讀 Kutools for Outlook 的所有功能下載免費版本

要防止 Outlook 提醒過早或過晚，您可以按照以下步驟操作：

步驟 1：同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

步驟 2：在左側窗格中展開 Microsoft Outlook 物件，並將以下 VBA 宏粘貼到 ThisOutlookSession 中。

VBA：防止在 Outlook 中提醒過早或過晚

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

注意：您可以通過更改上述 VBA 程式碼中的以下參數來指定您的工作時間段：
reminderMaxHour = 20
reminderMinHour = 9

步驟 3：保存此 VBA，然後重新啟動您的 Microsoft Outlook。

從現在開始，當建立的約會提醒時間超出您指定的工作時間段時，在您點擊「儲存並關閉」按鈕後，將彈出一個對話框提醒您。