아웃룩: 응답이 없을 경우 자동으로 이메일 재전송하는 방법

Author: Sun Last Modified: 2025-08-06

당신이 동료나 협력 파트너 또는 다른 사람에게 이메일을 보내고 긴급히 응답이 필요할 때, 특정 시간 전에 응답이 도착하지 않았을 경우 자동으로 이메일을 재전송하도록 설정할 수 있습니다.

응답이 없을 경우 자동 재전송을 위해 리마인더와 VBA 사용하기

파트 1: 지정된 시간에 알림 설정하기

1. 재전송하고자 하는 이메일(보낸 편지함 폴더에서)을 마우스 오른쪽 버튼으로 클릭하면 나타나는 컨텍스트 메뉴에서 "후속 조치 필요" > "리마인더 추가"를 클릭합니다.

2. 나타나는 "사용자 정의" 대화 상자에서 "리마인더" 체크박스를 선택한 상태로 유지한 후, 아래 드롭다운 박스에서 원하는 날짜와 시간을 선택하거나 직접 날짜와 시간을 입력합니다. "확인"을 클릭하세요.

파트 2: 지정된 시간 내 응답이 없을 경우 이메일을 재전송하기 위한 VBA 삽입하기

3. "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 활성화합니다.

4. "프로젝트 – Project1" 패널에서 "ThisOutlookSession"을 두 번 클릭하여 빈 스크립트를 생성하고, 아래 VBA 코드를 복사하여 빈 스크립트에 붙여넣습니다.

VBA: 응답이 없을 경우 이메일 재전송

Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
  Dim xInboxFld As Folder
  Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
  Set GInboxItems = xInboxFld.Items
End Sub

'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
  Dim xSentItems As Outlook.Items
  Dim xMail As MailItem
  Dim i As Long
  Dim xSubject As String
  Dim xItemSubject As String
  Dim xSendTime As String
  On Error Resume Next
  Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
  If Item.Class <> olMail Then Exit Sub
  For i = xSentItems.Count To 1 Step -1
    If xSentItems.Item(i).Class = olMail Then
      Set xMail = xSentItems.Item(i)
      xSubject = LCase(xMail.Subject)
      xSendTime = xMail.SentOn
      xItemSubject = LCase(Item.Subject)
      If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
        If Item.SentOn > xSendTime Then
           With xMail
             .ClearTaskFlag
             .ReminderSet = False
             .Save
           End With
        End If
      End If
    End If
  Next i
End Sub

'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
  Dim xPrompt As String
  Dim xResponse As Integer
  Dim xFollowUpMail As Outlook.MailItem
  Dim xRcp As Recipient
  On Error Resume Next
  'Resend
  If (Item.Class <> olMail) Then Exit Sub
  xPrompt = "You haven't yet received the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
  xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
  If xResponse = vbNo Then Exit Sub
  Set xFollowUpMail = Application.CreateItem(olMailItem)
  With xFollowUpMail
    For Each xRcp In Item.Recipients
      .Recipients.Add (xRcp.Address)
    Next
    .Recipients.ResolveAll
    .Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
    .Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & " as soon as possible"
    .Attachments.Add Item
    .Display
  End With
End Sub

5. 코드를 저장한 후 메인 인터페이스로 돌아가서 "파일" > "옵션"을 클릭하고 "아웃룩 옵션" 창에서 왼쪽 패널의 "신뢰 센터"를 클릭한 다음 "신뢰 센터 설정"을 클릭하여 "신뢰 센터" 창을 활성화합니다. "매크로 설정"을 클릭하고 오른쪽 섹션에서 "모든 매크로 사용 (권장되지 않음; 잠재적으로 위험한 코드 실행 가능)" 옵션이 선택되었는지 확인합니다. "확인" > "확인"을 클릭합니다.