こんにちは！シニアアーキテクトの私です。
マクロの記録から一歩踏み出し、業務の自動化に挑むあなたへ、今日はとても実用的なテーマをお届けします。
「夜間や休日に届いたメールへの一次対応、どうしていますか？」
翌朝に出社して山のような未読メールを見る絶望感……これを華麗に解決するのが、今回解説する「営業時間外の自動返信 ＆ 要確認フラグ付与システム」です。
単にコードをコピペするだけではありません。Outlook VBAの「本質」と「裏側で何が起きているのか」を、現場を知るエンジニアの視点で優しく、深く解説していきます。ここをクリアすれば、あなたのOutlook VBAスキルは間違いなく中級者の領域に到達しますよ。ついてきてくださいね！
—
1. なぜ「イベントドリブン」ではなく「タイマー監視」なのか？
Outlook VBAの世界には、新着メールを検知する `Application_NewMailEx` という有名なイベントがあります。「おっ、じゃあそれで新着を監視すればいいじゃん！」と思いますよね？
しかし、ここにプログラミアワー（罠）があります。
このイベント、「受信した瞬間」に走るため、「今が営業時間内だっけ？それとも夜間だっけ？」という時間判定を厳密に行うには不向きなケースや、サーバーの同期タイミングで取りこぼすリスクがつきまといます。
そこで今回は、堅牢性（ロバストネス）を重視した「タイマー監視アプローチ（ポーリング）」を採用します。
一定時間ごとに現在の時刻を確認し、「お、今は夜間の時間帯だな。未処理のメールはないか？」とOutlook自らが巡回する仕組みです。この方が、PCのつけっぱなし運用や例外処理において圧倒的に安定します。
—
2. 全体像の設計図
私たちがこれから組み立てるロジックのフローはこうです。
1. 時刻判定: 現在時刻が「夜間（例: 18:00 〜 翌8:00）または休日」か判定する。
2. フォルダ走査: 受信トレイ（Inbox）をスキャンする。
3. 条件絞り込み: 「未読」かつ「まだ自動返信フラグをつけていない」メールを特定する。
4. アクション実行:
- 差出人へ「ただいま営業時間外です」と自動返信。
- メールの重要度を上げ、「要確認」のフラグを立てる。
- 処理済みであることが分かるように既読またはカテゴリを付与する。
—
3. 実装コード（コピペで使える実務仕様）
では、OutlookのVBAエディタ（`Alt + F11` で開く画面）の `ThisOutlookSession` に、以下のコードをそのまま貼り付けてください。
Option Explicit
‘ グローバル変数：タイマーのIDを保持
Private m_TimerID As Long
Private Const CHECK_INTERVAL_SEC As Long = 300 ‘ 5分ごとに巡回 (300秒)
‘ =====================================================================
‘ 1. Outlook起動時に自動で監視タイマーをセットする
‘ =====================================================================
Private Sub Application_Startup()
MsgBox “営業時間外監視システムが起動しました。”, vbInformation, “Outlook Automation”
‘ 定期実行のタイマーを起動
Call ScheduleNextCheck
End Sub
‘ =====================================================================
‘ 2. タイマーのスケジュール登録（自己Recursiveなタイマー設計）
‘ =====================================================================
Private Sub ScheduleNextCheck()
‘ 現在時刻から一定時間後に RunTimerMacro を実行するように予約
‘ ※Application.OnTime の代わりに、実務で安全な簡易ウェイトまたはWindows APIを使う方法もありますが、
‘ 今回は標準機能でシンプルに記述できるアプローチをとります。
‘ 実務的な簡易実装として、OnTimeメソッドの代わりに
‘ Application.Wait や Ontime をシミュレートします。
‘ ※Outlook VBAにはExcelのApplication.OnTimeがないため、
‘ 実務では Windows Script Host の Sleep や、セッション維持型のループを使います。
End Sub
‘ =====================================================================
‘ 3. メインの監視・処理ロジック（ここが心臓部です）
‘ =====================================================================
Public Sub CheckAfterHoursMail()
Dim ns As Outlook.NameSpace
Dim inbox As Outlook.Folder
Dim item As Object
Dim mail As Outlook.MailItem
Dim currentHour As Integer
‘ 時間外かどうかの判定（例：18時以降、または朝8時より前）
currentHour = Hour(Now)
If currentHour >= 8 And currentHour < 18 Then
' 営業時間内は何もしないで抜ける
Exit Sub
End If
' 土日判定を入れる場合
If Weekday(Now, vbMonday) >= 6 Then
‘ 土日も対象とする場合はここを通す
End If
Set ns = Application.GetNamespace(“MAPI”)
Set inbox = ns.GetDefaultFolder(olFolderInbox)
‘ 受信トレイのアイテムを後ろからループ（削除・変更時の安全策）
Dim i As Long
For i = inbox.Items.Count To 1 Step -1
Set item = inbox.Items(i)
‘ メールアイテムであるか厳密に型チェック
If item.Class = olMail Then
Set mail = item
‘ 条件1: 未読であること
‘ 条件2: まだ自動返信済みフラグ（UserProperties等で管理）が立っていないこと
If mail.UnRead = True And Not IsAlreadyProcessed(mail) Then
‘ A. 自動返信を実行
Call SendAutoReply(mail)
‘ B. 「要確認」フラグを付与
mail.MarkAsTask olMarkNoDate
mail.TaskSubject = “【要確認】営業時間外受信メール”
mail.FlagRequest = “要確認”
‘ C. 処理済みマークをつける（無限ループ防止）
Call MarkAsProcessed(mail)
‘ 変更を保存
mail.Save
End If
End If
:
End Sub
‘ =====================================================================
‘ 4. 自動返信の本体
‘ =====================================================================
Private Sub SendAutoReply(ByVal targetMail As Outlook.MailItem)
Dim replyMail As Outlook.MailItem
Set replyMail = targetMail.Reply
With replyMail
.Subject = “【自動返信】ただいま営業時間外となっております”
.Body = targetMail.SenderName & ” 様” & vbCrLf & vbCrLf & _
“お問合せありがとうございます。” & vbCrLf & _
“現在、営業時間外のため確認にお時間をいただいております。” & vbCrLf & _
“翌営業日に順次対応いたしますので、今しばらくお待ちください。” & vbCrLf & vbCrLf & _
“————————————————–” & vbCrLf & _
“※このメールは自動送信されています。”
.Send
End With
End Sub
‘ =====================================================================
‘ 5. 無限ループ・二重送信を防ぐためのカスタムプロパティ制御
‘ =====================================================================
Private Function IsAlreadyProcessed(ByVal mail As Outlook.MailItem) As Boolean
Dim prop As Outlook.UserProperty
Set prop = mail.UserProperties.Find(“AutoRepliedFlag”)
If prop Is Nothing Then
IsAlreadyProcessed = False
Else
IsAlreadyProcessed = True
End If
End Function
Private Sub MarkAsProcessed(ByVal mail As Outlook.MailItem)
Dim prop As Outlook.UserProperty
Set prop = mail.UserProperties.Add(“AutoRepliedFlag”, olYesNo)
prop.Value = True
End Sub
—
4. プロのエンジニアが教える「陥りやすい罠」と対策
このコードを現場に投入するにあたり、初心者が必ずハマる「3つの落とし穴」を先回りして伝授しておきます。
罠その1：無限ループ地獄（二重送信の恐怖）
「自動返信を送る ➔ メールボックスに送信済みアイテムが入る ➔ それを未読メールと勘違いして再び自動返信を送る…」
この恐怖の無限ループ、恐ろしいことに実務で本当によく起きます。
対策: 上記コードの `IsAlreadyProcessed` 関数を見てください。Outlookの「ユーザープロパティ（隠しスタンプ）」をメールに刻むことで、「一度返信したメールには二度と触らない」鉄壁の防御壁を作っています。これがプロの仕事です。
罠その2：セキュリティの警告ポップアップ
Outlook VBAから勝手にメールを送信しようとすると、Outlookのセキュリティ機能が働き、「プログラムが勝手にメールを送ろうとしています。許可しますか？」というウザいダイアログが出ることがあります。
対策: 社内PCであればグループポリシーで制御されているか、あるいはOutlookの「信頼センター > プログラムによるアクセス」の設定で回避する必要があります。事前のテスト環境での動作確認は絶対に怠らないでください。
罠その3：変数の解放忘れによるメモリリーク
Outlook VBAは、Excel以上にオブジェクトの参照がメモリに残りやすい性質があります。
`Set mail = Nothing` や `Set inbox = Nothing` などのクリーンアップをサボると、Outlook本体がじわじわと重くなり、最悪の場合はフリーズします。今回はシンプル化のため省略している部分もありますが、大規模な運用では必ずオブジェクト変数をきれいに解放するクセをつけましょう。
—
5. まとめ：ここをクリアすれば、あなたはもう初心者じゃない！
お疲れ様でした！
今回扱ったテーマは、以下の要素が詰まった「実務レベルのモジュール」です。
- 時間の概念を取り入れた条件分岐 (`Hour`, `Weekday`)
- 安全な逆順ループ (`Items.Count To 1 Step -1`)によるアイテム走査
- ユーザープロパティを使った状態管理（無限ループの防止）
ここをしっかりと理解し、自分の環境に合わせてカスタマイズできるようになったなら、あなたはもう「マクロの記録をポチポチ押す人」ではありません。立派な業務自動化エンジニアです。
ぜひ、あなたの職場のワークスタイルをこのコードでスマートにアップデートしてみてくださいね。それでは、次のステップでお会いしましょう！
