Outlookで忙しいときに受信したメールに自動的に返信するにはどうすればよいですか？

Author: Sun Last Modified: 2025-05-23

時々、一定期間忙しいときにOutlookで受信したメッセージに自動的に返信したい場合があります。しかし、この作業を処理できる組み込み機能はありません。ただし、ここでVBAコードを使用して対応できます。

VBAコードを使用して忙しいときに自動返信

以下は、Outlookカレンダーにいくつかの予定がある間、自動的に返信するVBAコードです。カレンダーに何もなければ、自動返信が停止します。

1. Alt + F11 キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Project1ペインから ThisOutlookSession をダブルクリックし、以下のコードをスクリプトにコピーして貼り付けます。

VBA: カレンダーで忙しいときに自動返信

Public WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
    Set xMailItem = Item
    Set xReplyMailItem = xMailItem.Reply
    xReplyHTMLBody = xReplyMailItem.HTMLBody
    Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
    xAppointments.Sort "[Start]"
    xAppointments.IncludeRecurrences = True
    xDateFormat = Format(Now, "ddddd h:nn AMPM")
    xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
    Set xRestrictAppointments = xAppointments.Restrict(xFilter)
    If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
    For Each xAppointment In xRestrictAppointments
        If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
            xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
                                      xReplyHTMLBody
            xReplyMailItem.Send
        End If
    Next
End If
End Sub

3. このコードを保存し、Outlookを再起動します。これ以降、予定の時間範囲内にメールを受信すると、自動返信が送信されます。

注意:

(1) コード内で、このスクリプトの返信本文を必要に応じて変更できます。「今すぐお返事できません。後ほどご返信いたします。」 & _

(2) このVBAマクロは、デフォルトのデータファイルの受信トレイに受信されたメールに自動的に返信できます。