메인 컨텐츠로 가기

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

작가: 실루비아 최종 수정 날짜: 2023-06-02

배송지연 옵션을 활성화할 때( 전에 배달하지 마십시오 다음 스크린샷의 옵션) Outlook의 전자 메일에 대한 전송 시간은 기본적으로 오후 5시로 설정됩니다. 당신이 밤 늦게까지 일하고 있고 당신이 야근을 하고 있다는 사실을 다른 사람들에게 알리고 싶지 않다고 가정해 봅시다. 이메일을 보내기 전에 이메일에 대한 배달 지연 옵션을 활성화해야 합니다. 옵션을 활성화한 후 기본 전송 시간을 수동으로 변경해야 합니다. 그렇지 않으면 다음 날 오후 00시 이후에 이메일이 발송됩니다. 이 기본 배송 시간을 변경할 수 있는 방법이 있습니까?

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


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

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

다음 VBA 코드에서:

두 번 지정할 수 있습니다. 배달 시간을 지연 그리고 지연 배달 옵션 활성화 시간.

예를 들어 배달 지연 시간을 오전 07시 30분으로 설정하고 오후 5시 30분 이후에는 배달 지연 옵션이 자동으로 활성화되도록 설정합니다. 07:30 AM - 5:30 PM 사이에 이메일을 보내면 이메일이 직접 발송됩니다. 오후 5시 30분~오전 07시 30분에 이메일을 보낸 경우 다음 날 오전 07시 30분 이후에 발송되도록 예약됩니다.

다음과 같이 스크립트를 테스트하십시오.

1. Outlook을 시작하고 다른 + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 Project1 > Microsoft Outlook 개체 > ThisOutlook세션 를 열려면 ThisOutlookSession (코드) 창을 열고 다음 코드를 이 코드 창에 복사합니다.

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) 주말에 이메일을 보내실 경우 월요일 오전 07시 30분 이후에 발송될 예정입니다.

3. 코드를 저장하고 다른 + Q 닫는 키 응용 프로그램 용 Microsoft Visual Basic 창.

이제부터 오전 07시 30분~오후 5시 30분에 메일을 보내시면 바로 메일이 발송됩니다. 오후 5시 30분~오전 07시 30분에 이메일을 보낸 경우 다음 근무일 오전 07시 30분 이후에 발송되도록 예약됩니다.


관련 기사

Outlook에서 하루 종일 이벤트의 기본 미리 알림 시간 변경
일반적으로 종일 이벤트의 기본 미리 알림 시간은 Outlook 18/2007에서는 2010 시간이고 Outlook 0.5에서는 2013 일입니다. 때때로 종일 일정의 기본 미리 알림 시간이 작업 일정과 일치하지 않을 수 있습니다. 여기에서는 Microsoft Outlook에서 종일 이벤트의 기본 미리 알림 시간을 변경하는 방법을 소개합니다.

Outlook에서 기본 후속 작업 시간 변경
아시다시피 Outlook에서 이메일에 대한 후속 알림을 추가 할 때 기본 후속 작업 시간은 오후 4시 30 분 (또는 근무 시간에 따라 다른 시간)입니다. 그러나 기본 후속 작업 시간을 변경하고 오전 9시와 같이 근무 시간이 시작될 때 알림을받을 수 있습니다. 이 기사에서는 Outlook에서 기본 후속 작업 시간을 변경하는 방법을 보여줍니다.

Outlook에서 기본 보관 위치 변경
기본적으로 Outlook에는 보관 파일의 기본 위치가 있습니다. 기본 위치 외에도 아카이브 파일의 아카이브 위치를 설정할 수 있습니다. 이 자습서에서는 Outlook에서 기본 보관 위치를 변경하는 방법을 자세히 보여줍니다.

Outlook에서 기본 첨부 파일 저장 위치 변경
Outlook을 시작할 때마다 지정한 첨부 파일 위치를 찾는 데 지쳤습니까? 이 튜토리얼에서는 기본 첨부 위치를 변경하는 방법을 보여줍니다. 그 후에는 Outlook을 다시 시작하더라도 첨부 파일을 저장할 때마다 지정된 첨부 파일 저장 폴더가 자동으로 열립니다.

Outlook에서 하루 종일 이벤트 기본값을 바쁨으로 변경
기본적으로 Outlook은 약속 및 모임 상태를 "바쁨"으로 설정하지만 하루 종일 이벤트는 "무료"로 설정합니다(아래 스크린샷 참조). 하루 종일 이벤트를 만들 때마다 표시 형식 상태를 바쁨으로 수동으로 변경해야 합니다. 하루 종일 이벤트의 상태로 기본 표시를 바쁨으로 변경하기 위해 이 문서에서는 두 가지 방법을 제공합니다.


최고의 사무 생산성 도구

속보: Outlook용 Kutools 출시 무료 버전!

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 자동 회신(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

Outlook 기능을 위한 kutools1 Outlook 기능을 위한 kutools2
 

 

 

Comments (42)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
Would there be a way to change only the default delay time and NOT the time to enable the delay delivery option?
This comment was minimized by the moderator on the site
Hi

So useful! Can you add the option that if you are sending to people from within your organisation, this rule does not apply and emails are sent immediately?
This comment was minimized by the moderator on the site
Hi Crystal

This was just what I was looking for, it worked once, and I was very excited! Since then no matter what time of day, the emails send as soon as I click "Send". Any thoughts on what I've done wrong? I'd also love to be able to exclude 'high importance' flags.
This comment was minimized by the moderator on the site
Please ignore that request, seems it was to do with trust settings. Sorted now, thanks for the code!
This comment was minimized by the moderator on the site
I found that when you send an email on Sunday it is push to a week out as xMail.DeferredDeliveryTime = (Date + (vbSaturday - xWeekday + 2)) & " " & xDelayTime ends up with 8 days in the future instead of the expected one. As 7 (vbSaturday) - 1 (xWeekday on Sunday) + 2 is 8. This is my fix:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by EWP 20230518
  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
This comment was minimized by the moderator on the site
Hi Ehrin Pitts,

Thank you for the correction. I will check the code in the post and correct it.
This comment was minimized by the moderator on the site
This is a most useful piece of code, because it prevents me from disturbing people outside office hours.
However, I sometimes need to send an email outside normal hours and it is a nuisance to comment out the VBA code each time.
My suggestion is that if the "Importance" flage is set to high, then the mail will be sent immediately and not be delayed. Would it be possible for you to add such an exclusion in the code. (Still keeping the existing code, including the line with the xSenderAddress).
This comment was minimized by the moderator on the site
Hi Bernard,

The following VBA code helps to exclude the emails with a high importance flag. Please give it a try.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20230410
  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
  If xMail.Importance = olImportanceHigh Then Exit Sub 'Exclude emails with a high importance flag
  xWeekday = Weekday(Date, vbSunday)
  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 = vbFriday) And xIsDelay) Or (xWeekday = vbSaturday) Or (xWeekday = vbSunday) Then
      xMail.DeferredDeliveryTime = (Date + (vbSaturday - xWeekday + 2)) & " " & 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
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations