Outlookで遅延配信のデフォルト時間を変更するにはどうすればよいですか？

Author: Siluvia Last Modified: 2025-05-23

Outlookでメールに対して遅延配信オプション（次のスクリーンショットの「この時間以前は送信しない」オプション）を有効にすると、送信時間がデフォルトで午後5:00に設定されます。例えば、深夜に作業していて、他の人に残業していることを知られたくない場合、メールを送信する前に遅延配信オプションを有効にする必要があります。このオプションを有効にした後、デフォルトの送信時間を手動で変更する必要があります。そうしないと、翌日の午後5:00以降にメールが送信されてしまいます。このデフォルトの配信時間を変更する方法はありますか？

このチュートリアルでは、Outlookで遅延配信オプションのデフォルト時間を変更するのに役立つVBAコードを提供します。

the steps of changing the default time for delay delivery in Outlook

VBAコードを使用してOutlookで遅延配信のデフォルト時間を変更する

以下のVBAコードを適用して、Outlookで遅延配信オプションのデフォルト時間を変更できます。

次のVBAコードでは：

「遅延配信時間」と「遅延配信オプションの有効化時間」の2つの時間を指定できます。

例えば、遅延配信時間を午前7:30に設定し、午後5:30以降に遅延配信オプションが自動的に有効になるように設定します。午前7:30から午後5:30の間にメールを送信すると、そのメールは直接送信されます。午後5:30から翌日の午前7:30の間にメールを送信すると、翌日の午前7:30に送信されるようスケジュールされます。

以下のスクリプトをテストしてください。

1. Outlookを開き、「Alt」＋「F11」キーを同時に押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「Microsoft Visual Basic for Applications」ウィンドウで、「Project1」＞「Microsoft Outlook Objects」＞「ThisOutlookSession」をダブルクリックして「ThisOutlookSession (Code)」ウィンドウを開き、次のコードをこのコードウィンドウにコピーします。

VBAコード：Outlookで遅延配信のデフォルト時間を変更する

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice & EWP 20230602
  Const xDelayTime As String = "07:30:00"  'The delay delivery time of emails
  Const xCompareTime As String = "17:30:00" 'The time to enable the delay delivery option
  Dim xMail As Outlook.MailItem
  Dim xWeekday As Integer
  Dim xNowTime As String
  Dim xIsDelay As Boolean
  Dim xRet1 As Integer
  Dim xRet2 As Integer
  On Error GoTo xError
  If (Item.Class <> olMail) Then Exit Sub
  Set xMail = Item
  xWeekday = Weekday(Date, vbMonday)
  xNowTime = Format(Now, "hh:nn:ss")
  xIsDelay = False
  xRet1 = StrComp(xNowTime, xDelayTime)
  xRet2 = StrComp(xNowTime, xCompareTime)
  If xRet1 = xRet2 Then
    xIsDelay = True
  End If
  If (xRet1 = -1) And (xRet2 = -1) Then
    xMail.DeferredDeliveryTime = Date & " " & xDelayTime
  Else
    If ((xWeekday = 5) And xIsDelay) Or (xWeekday = 6) Or (xWeekday = 7) Then
      xMail.DeferredDeliveryTime = (Date + (5 - xWeekday + 3)) & " " & xDelayTime
    ElseIf xIsDelay Then
      xMail.DeferredDeliveryTime = (Date + 1) & " " & xDelayTime
    End If
  End If
Exit Sub
xError:
  MsgBox "ItemSend: " & Err.Description, , "Kutools for Outlook"
End Sub

注意：

1) 次の行で遅延時間と遅延配信オプションを有効にする時間を変更できます。

"Const xDelayTime As String = "07:30:00""

"Const xCompareTime As String = "17:30:00""

2) 週末にメールを送信すると、月曜日の午前7:30以降に送信されるようスケジュールされます。

3. コードを保存し、「Alt」＋「Q」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを閉じます。

これで、午前7:30から午後5:30の間にメールを送信すると、そのメールは直接送信されます。午後5:30から翌日の午前7:30の間にメールを送信すると、翌営業日の午前7:30に送信されるようスケジュールされます。

Outlookで終日イベントのデフォルトリマインダー時間を変更する
通常、Outlook 2007/2010では終日イベントのデフォルトリマインダー時間は18時間、Outlook 2013では0.5日です。時々、終日イベントのデフォルトリマインダー時間が自分の勤務スケジュールに合わない場合があります。ここでは、Microsoft Outlookで終日イベントのデフォルトリマインダー時間を変更する方法を紹介します。

Outlookでデフォルトのフォローアップ時間を変更する
ご存知の通り、Outlookでメールにフォローアップリマインダーを追加すると、デフォルトのフォローアップ時間は午後4:30（または勤務時間によって異なる時間）です。しかし、デフォルトのフォローアップ時間を変更し、勤務開始時にリマインダーを設定したい場合、たとえば午前9:00に通知されるようにしたい場合があります。この記事では、Outlookでデフォルトのフォローアップ時間を変更する方法をご紹介します。

Outlookでデフォルトのアーカイブ場所を変更する
デフォルトでは、Outlookにはアーカイブファイル用のデフォルトの保存場所があります。デフォルトの場所以外にも、独自のアーカイブ場所を設定できます。このチュートリアルでは、Outlookでデフォルトのアーカイブ場所を変更する方法を詳しく説明します。

Outlookでデフォルトの添付ファイル保存場所を変更する
毎回Outlookを起動するたびに指定した添付ファイルの保存場所を探すのにうんざりしていませんか？このチュートリアルでは、デフォルトの添付ファイル保存場所を変更する方法を紹介します。その後、指定した添付ファイル保存フォルダは、Outlookを再起動しても、添付ファイルを保存するたびに自動的に開かれます。

Outlookで終日イベントのデフォルトステータスを「予定あり」に変更する
デフォルトでは、Outlookは予定や会議のステータスを「予定あり」に設定しますが、終日イベントは「空き」に設定されています（下のスクリーンショット参照）。終日イベントを作成するたびに、手動で「表示」ステータスを「予定あり」に変更する必要があります。この記事では、終日イベントのデフォルトの「表示」ステータスを「予定あり」に変更するための2つの方法を提供します。