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

作者：凱莉最後修改時間：2024-08-05

例如，您每天的工作時間是從上午9:00到下午6:00，但是現在您要在上午10:00進行約會，並在Outlook中添加2小時的提醒。這意味著提醒將在工作開始之前的8:00生效。另一方面，在特殊情況下，提醒可能會在午夜響起。這非常不方便，某些Outlook用戶可能希望阻止Outlook提早或過晚提醒。在這裡，我將介紹一個VBA宏供您在Outlook中解決。

Office 標籤 - 在 Microsoft Office 中啟用選項卡式編輯和瀏覽，讓工作變得輕而易舉

閱讀 Office 標籤的功能下載 Office 選項卡

解鎖 Outlook 的 Kutools 免費版立即享有 70 多項功能，永久無限制使用

提高您的電子郵件生產力與人工智慧技術，讓您能夠快速回覆電子郵件、起草新電子郵件、翻譯訊息，並且更有效率。
自動發送電子郵件自動CC / BCC, 自動前進按規則；傳送自動回复（不在辦公室）無需交換伺服器...
取得類似提醒 BCC警告當您在密件副本清單中回覆所有內容時，以及缺少附件時提醒對於忘記的附件...
提高電子郵件效率回覆（全部）並附上附件, 自動添加問候語或日期和時間到簽名或主題中, 回覆多封電子郵件...
簡化電子郵件發送撤回電子郵件, 附件工具（壓縮全部、自動儲存全部...）、刪除重複項和快速報告...

使用這些進階功能增強您的 Outlook 2024 - 2010 或 Outlook 365。享受 70 多個強大的功能並提升您的電子郵件體驗！

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

為防止Outlook提醒得太早或太晚，您可以執行以下操作：

步驟1：按下其他 + F11 同時按鍵打開“ Microsoft Visual Basic for Applications”窗口。

步驟2：展開 Microsoft Outlook對象 在左窗格中，然後將以下VBA宏粘貼到 本次展望會議.

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代碼中的以下參數來指定工作時間：
hinterMaxHour = 20
hinterMinHour = 9

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

從現在開始，當您在沒有指定提醒時間的情況下創建帶提醒時間的約會時，在您單擊“開始”後，將彈出一個對話框提醒您。 保存並關閉 按鈕。