Outlookが早すぎたり遅すぎたりするリマインダーを防ぐ方法は？

Author: Kelly Last Modified: 2025-08-06

例えば、あなたが毎日午前9時から午後6時まで働いているとします。しかし、今朝10時にアポイントメントを作成し、Outlookで2時間前のリマインダーを設定すると、それはあなたの勤務開始前の午前8時にリマインダーが作動することを意味します。一方で、特別な状況ではリマインダーが真夜中に鳴ることがあります。これは非常に不便であり、一部のOutlookユーザーはリマインダーが早すぎたり遅すぎたりすることを防ぎたいと思うかもしれません。ここで、その問題を解決するためのVBAマクロをご紹介します。

Office Tab - Microsoft Officeでタブ形式の編集とブラウジングを有効にし、作業を快適に

Office Tabの機能を読む Office Tabをダウンロード

今すぐKutools for Outlookを解除して、無制限アクセスで100以上の機能をお楽しみください

AI技術を活用してメールの生産性を向上させ、迅速な返信、新規作成、メッセージ翻訳などをより効率化
自動CC/BCCやルールによる自動転送でメールを自動化；交換サーバーを必要とせず自動返信（外出中）を利用可能...
BCC警告や、添付ファイルを忘れた場合の「添付ファイルがない場合のリマインダー」などを利用...
添付ファイル付きでの返信（全員）、挨拶または日時をシグネチャや件名に自動追加、複数のメールに返信などの機能でメール効率を改善...
メール取り消し、添付ファイルツール（すべて圧縮、すべて自動保存…）、重複したメールの削除、クイックレポートなどでメール業務を合理化...

Outlook 2024 - 2010またはOutlook 365をこれらの高度な機能で強化。100以上の強力な機能を楽しんで、メール体験を向上させましょう！

Kutools for Outlookのすべての機能を読む今すぐダウンロード

Outlookが早すぎたり遅すぎたりするリマインダーを防ぐには、次のように操作できます：

ステップ 1: AltキーとF11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

ステップ 2: 左ペインの「Microsoft Outlook Objects」を展開し、次の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を再起動します。

これからは、指定した作業時間外のリマインダー付きで予定を作成すると、「保存して閉じる」ボタンをクリックした後にダイアログボックスが表示され、リマインダーが通知されます。