Como alterar o horário padrão para entrega com atraso no Outlook?

Author: Siluvia Last Modified: 2025-08-06

Ao ativar a opção de entrega com atraso (a opção "Não entregar antes" na captura de tela abaixo) para um email no Outlook, o horário de envio é definido como 17h00 por padrão. Suponha que você esteja trabalhando tarde da noite e não quer que os outros saibam que está fazendo horas extras. Você precisa ativar a opção de entrega com atraso para seus emails antes de enviá-los. Depois de ativar a opção, será necessário alterar manualmente o horário de envio padrão. Caso contrário, o email será enviado após as 17h00 do dia seguinte. Existe alguma maneira de alterar esse horário de entrega padrão?

Este tutorial fornece um código VBA para ajudá-lo a alterar o horário padrão da opção de entrega com atraso no Outlook.

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

Alterar o horário padrão para entrega com atraso no Outlook com código VBA

Você pode aplicar o seguinte código VBA para alterar o horário padrão da opção de entrega com atraso no Outlook.

No seguinte código VBA:

Você pode especificar dois horários: o "horário de entrega com atraso" e o "horário de ativação da opção de entrega com atraso".

Por exemplo, você define o horário de entrega com atraso para 07h30 e configura a opção de entrega com atraso para ser ativada automaticamente após as 17h30. Quando você enviar um email entre 07h30 e 17h30, o email será enviado diretamente. Se um email for enviado entre 17h30 e 07h30, ele será agendado para envio após as 07h30 do próximo dia.

Por favor, teste o script conforme segue.

1. Abra seu Outlook, pressione simultaneamente as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Na janela "Microsoft Visual Basic for Applications", clique duas vezes em "Project1" > "Microsoft Outlook Objects" > "ThisOutlookSession" para abrir a janela "ThisOutlookSession (Code)", e depois copie o seguinte código nessa janela de código.

Código VBA: alterar o horário padrão para entrega com atraso no 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

Notas:

1) Você pode alterar o tempo de atraso e o horário para ativar a opção de entrega com atraso nas seguintes linhas.

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

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

2) Ao enviar um email nos fins de semana, ele será agendado para envio após as 07h30 na Segunda-feira.

3. Salve o código e pressione as teclas "Alt" + "Q" para fechar a janela "Microsoft Visual Basic for Applications".

A partir de agora, quando você enviar um email entre 07h30 e 17h30, o email será enviado diretamente. Se um email for enviado entre 17h30 e 07h30, ele será agendado para envio após as 07h30 no próximo dia útil.