Outlook で配信遅延の既定時刻を変更するにはどうすればよいですか？

Outlook でメールを作成・送信する際、多くのユーザーが「配信遅延」機能を使ってメッセージの実際の送信時刻をコントロールしています。既定では、Outlook は「次の時刻より前に配信しない」オプション（下記スクリーンショット参照）を午後5 時00 分に設定しています。このデフォルト設定は、実際の業務シーンで課題となることがあります。毎回手動でこのプリセット時刻を調整しない限り、メールは翌日の午後5 時まで送信されず、勤務スケジュールやコミュニケーションのニーズに合わないケースが頻発します。

幸いにも、Outlook ではこの既定の配信遅延時刻を自動化したりカスタマイズしたりする方法が用意されています。これを調整すれば、あなたの勤務時間に合わせて、受信者の期待にしっかり応えることができます。このチュートリアルでは、VBA コードを使って、すべての送信遅延の配信時刻を自動的にカスタム設定し、遅延機能を使うたびに手動で繰り返し調整する手間を省く方法をご紹介します。

VBA コードでOutlook の配信遅延の既定時刻を変更する

Outlook のオプションや設定から、内部の既定の配信遅延時刻を直接変更することはできません。ただし、VBA ソリューションを使えば、メール送信時に毎回、希望の配信遅延時刻と条件を自動的に適用できます。この柔軟な方法により、遅延機能をいつ適用するか、および予約された送信時刻を正確に定義でき、ワークフローを効率化しながら一貫性を確保できます。

以下の VBA コードを使用すると：

• 配信時刻の遅延：送信の遅延時間を指定できます（例：午前7 時30 分）
• 配信遅延の有効開始時刻：この時刻以降に送信されたメールが自動的に遅延される期間を設定します（例：午後5 時30 分以降）。

たとえば、配信遅延時刻を午前7 時30 分に設定し、午後5 時30 分以降にこのオプションが自動的に有効になるように構成した場合、午前7 時30 分から午後5 時30 分の間に送信されたメールは遅延なく即座に送信されます。一方、午後5 時30 分以降から翌日の午前7 時30分までの間に送信されたメールは、Outlook によって自動的に保留され、翌営業日の午前7 時30 分に送信されます。

この設定は、メールの実際の作成時刻に関係なく、送信メッセージが標準的な営業時間中に送られたように見せたい方に最適です。これにより、プロフェッショナルな印象を保ちながら、受信者が勤務時間外に対応する必要を最小限に抑えられます。

このコードを使用する前に、以下の点にご注意ください：

• 予約された送信時刻にメールを確実に配信するには、その時刻にOutlook が起動している必要があります。予約送信されたメールは、Outlook が起動してネットワークに接続されるまで「送信箱」に留まります。
• お使いのシステムまたはOutlook のタイムゾーンが受信者のものと異なる場合は、混乱を避けるため、時刻を適切に調整してください。

このソリューションを実装する手順は次のとおりです：

1．Outlook デスクトップアプリケーションを開き、Alt+F11 キーを同時に押して、Microsoft Visual Basic for Applicationsエディターを起動します。

2．VBA ウィンドウでProject1を展開し、Microsoft Outlook Objects>ThisOutlookSessionをダブルクリックしてください。これにより、アプリケーション全体のイベント処理用コードウィンドウが開きます。

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

注記：

3．コードを入力したら、変更内容を保存し、Alt+Qキーを押して VBA ウィンドウを閉じます。

この VBA スクリプトが有効になると、指定した標準時間帯内（例：午前7 時30 分～午後5 時30 分）に送信されたメールは即座に送信されます。この時間帯外に送信されたメールは自動的に保持され、翌営業日の午前7 時30 分に送信されるため、手動操作なしで一貫した送信スケジュールを実現できます。

追加のヒントとトラブルシューティング：

• 送信遅延が「送信箱」に残り、予定時刻に送信されない問題が発生した場合は、その時刻にOutlook が起動しており、安定したネットワーク接続があることを確認してください。「送信箱」からの配信には、Outlook が開いて接続されている必要があります。
• Outlook プロファイルを更新または置き換えた場合、または新しいコンピューターに移行した場合は、VBA プロジェクトの設定は自動的に引き継がれないため、このスクリプトを再度適用する必要があります。
• この自動化機能を一時的に無効にしたい場合は、「ThisOutlookSession」内のコードをコメントアウトするか、削除してください。

代替ソリューション

コード不要でメールのスケジュール送信をもっと簡単に実現したいなら、Kutools for Outlook の直感的な「送信予約」機能がおすすめです。わずか数回のクリックで、自動送信時刻や配信遅延、定期的なメッセージ送信をサクッと設定できます。詳細はこちら：https://www.extendoffice.com/product/kutools-for-outlook/outlook-schedule-email.html

関連記事

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入