바쁨 상태일 때 Outlook에서 받은 이메일에 자동으로 회신하는 방법은 무엇입니까?

Author: Sun Last Modified: 2025-08-06

때로는 특정 기간 동안 바쁠 때 받은 이메일에 자동으로 회신하고 싶을 수 있습니다. 하지만 이를 처리할 내장 기능은 없으며, 여기에서는 VBA 코드를 사용하여 해결할 수 있는 방법을 소개합니다.

VBA 코드를 사용한 바쁨 상태일 때 자동 회신

다음은 VBA 코드입니다. 이 코드는 Outlook 캘린더에 약속이 있을 경우 자동으로 회신하며, 캘린더가 비어 있으면 자동 회신을 중단합니다.

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 매크로는 기본 데이터 파일의 받은 편지함에서 받은 이메일에 자동으로 회신할 수 있습니다.