Outlook에서 지연 전달의 기본 시간을 변경하는 방법은 무엇입니까?

Author: Siluvia Last Modified: 2025-08-06

Outlook에서 이메일에 대해 지연 전달 옵션(아래 스크린샷의 "이 시간 전에는 전달하지 않음" 옵션)을 활성화하면 발송 시간이 기본적으로 오후 5:00로 설정됩니다. 만약 늦은 밤에 작업 중이고 다른 사람들이 당신이 야근 중임을 알게 하고 싶지 않다면, 이메일을 보내기 전에 지연 전달 옵션을 활성화해야 합니다. 옵션을 활성화한 후에는 기본 발송 시간을 수동으로 변경해야 합니다. 그렇지 않으면 이메일이 다음 날 오후 5:00 이후에 발송됩니다. 이 기본 전달 시간을 변경할 방법이 있을까요?

이 튜토리얼에서는 Outlook에서 지연 전달 옵션의 기본 시간을 변경하는 데 도움이 되는 VBA 코드를 제공합니다.

the steps of changing the default time for delay delivery in Outlook

VBA 코드를 사용하여 Outlook에서 지연 전달의 기본 시간 변경하기

다음 VBA 코드를 적용하여 Outlook에서 지연 전달 옵션의 기본 시간을 변경할 수 있습니다.

다음 VBA 코드에서:

"지연 전달 시간"과 "지연 전달 옵션 활성화 시간"이라는 두 가지 시간을 지정할 수 있습니다.

예를 들어, 지연 전달 시간을 오전 7:30으로 설정하고, 오후 5:30 이후에는 자동으로 지연 전달 옵션이 활성화되도록 설정할 수 있습니다. 오전 7:30부터 오후 5:30 사이에 이메일을 보내면 이메일이 즉시 발송됩니다. 만약 오후 5:30부터 오전 7:30 사이에 이메일을 보내면, 이메일은 다음 날 오전 7:30 이후에 발송될 예정입니다.

다음과 같이 스크립트를 테스트해 보세요.

1. Outlook을 실행하고 "Alt" + "F11" 키를 동시에 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

2. "Microsoft Visual Basic for Applications" 창에서 "Project1" > "Microsoft Outlook Objects" > "ThisOutlookSession"을 더블 클릭하여 "ThisOutlookSession (Code)" 창을 열고, 다음 코드를 이 코드 창에 복사합니다.

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

참고:

1) 다음 줄에서 지연 시간과 지연 전달 옵션을 활성화할 시간을 변경할 수 있습니다.

"Const xDelayTime As String = "07:30:00""

"Const xCompareTime As String = "17:30:00""

2) 주말에 이메일을 보내는 경우, 월요일 오전 7:30 이후에 발송될 예정입니다.

3. 코드를 저장하고 "Alt" + "Q" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 닫습니다.

이제부터 오전 7:30부터 오후 5:30 사이에 이메일을 보내면 이메일이 즉시 발송됩니다. 만약 오후 5:30부터 오전 7:30 사이에 이메일을 보내면, 이메일은 다음 근무일 오전 7:30 이후에 발송될 예정입니다.