Como alterar a hora predefinida para envio diferido no Outlook?

AutoraSiluvia Data de Modificação2025-11-14

Ao redigir e enviar e-mails no Outlook, é comum recorrer à funcionalidade «Enviar mais tarde» para definir com precisão a hora de envio das suas mensagens. Por predefinição, o Outlook define a opção «Não entregar antes de» (mostrada na imagem abaixo) para as 17:00. Este comportamento padrão pode gerar inconvenientes na prática: a menos que ajuste manualmente este horário sempre que utilizar a função, o seu e-mail só será enviado às 17:00 do dia seguinte — um momento que, muitas vezes, não se alinha com o seu horário de trabalho nem com as suas necessidades de comunicação.

Felizmente, o Outlook oferece formas de automatizar ou personalizar a hora predefinida de envio diferido. Ajustá-la permite alinhar melhor com o seu horário de trabalho preferido e gerir com eficácia as expectativas dos destinatários. Neste tutorial, aprenderá a utilizar código VBA para definir automaticamente uma hora personalizada de envio para todos os seus Envios Atrasados, eliminando a necessidade de ajustes manuais repetitivos sempre que utilizar esta funcionalidade.

os passos para alterar a hora predefinida para entrega com atraso no Outlook

Alterar a hora predefinida do envio diferido no Outlook com código VBA

Não é possível alterar diretamente a hora predefinida interna do Outlook para o envio diferido através das opções ou definições do Outlook. No entanto, pode utilizar uma solução VBA para definir automaticamente a sua hora preferida de envio diferido e as respetivas condições sempre que enviar um e-mail. Esta abordagem flexível permite-lhe determinar exatamente quando a funcionalidade de atraso é aplicada e qual deverá ser a Hora de Envio agendada, simplificando o seu fluxo de trabalho e garantindo consistência.

Com o código VBA abaixo:

Atrasar a hora de envio: Permite-lhe definir a hora exata em que pretende que o Envio Atrasado seja enviado (por exemplo, às 07:30 da manhã).
Hora de ativação do atraso de envio: Define o período após o qual todos os e-mails enviados são automaticamente adiados (por exemplo, após as 17:30).

Por exemplo, se definir a sua hora de envio diferido para as 07:30 e configurar o sistema para ativar automaticamente essa opção após as 17:30, qualquer e-mail enviado entre as 07:30 e as 17:30 será enviado imediatamente. Por outro lado, se enviar um e-mail após as 17:30 e antes das 07:30 do dia seguinte, o Outlook guardá-lo-á automaticamente e enviará às 07:30 da manhã seguinte ao dia útil.

Esta configuração é perfeita para quem deseja que as mensagens enviadas aparentem ter sido redigidas durante o horário laboral normal, independentemente do momento em que forem efetivamente escritas. Contribui para manter uma imagem profissional e reduz ao mínimo as perturbações fora do horário de trabalho dos destinatários.

Antes de utilizar este código, considere os seguintes pontos:

O Outlook tem de estar em execução na hora agendada para o envio ser concluído. O e-mail agendado permanecerá na Caixa de Saída até que o Outlook esteja aberto e ligado.
Se o seu sistema ou o Outlook estiverem configurados com um fuso horário diferente do dos seus destinatários, ajuste as horas em conformidade para evitar confusões.

Siga estes passos para implementar a solução:

1. Abra a sua aplicação de ambiente de trabalho do Outlook e, em seguida, prima simultaneamente Alt+F11 para abrir o editor do Microsoft Visual Basic for Applications.

2. Na janela do VBA, expanda Project1 e, em seguida, clique duas vezes em Objetos do Microsoft Outlook > ThisOutlookSession. Isto abrirá a janela de código para a gestão de eventos em toda a aplicação.

Código VBA: alterar a hora predefinida do envio diferido 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) Pode ajustar a hora predefinida de envio diferido e a hora a partir da qual começa a aplicar o atraso nestas linhas do código:

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

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

Modifique estes valores para definir as suas janelas preferidas de envio no início ou no fim do dia, de acordo com o seu horário de trabalho.

2) Se enviar um e-mail ao fim de semana, o script agendará a mensagem para ser enviada após as 07:30 da manhã da segunda-feira seguinte, evitando assim entregas ao fim de semana.

3. Depois de inserir o código, guarde as alterações e saia da janela do VBA premindo Alt+Q.

Com este script VBA ativo, qualquer e-mail enviado dentro do seu horário laboral especificado (por exemplo, entre as 07:30 e as 17:30) será enviado imediatamente. Fora dessas horas, os e-mails serão automaticamente retidos e enviados às 07:30 da manhã seguinte ao dia útil, proporcionando um calendário de envio consistente sem intervenção manual.

Dicas adicionais e resolução de problemas:

Se encontrar problemas em que os Envio Atrasado permanecem na sua Caixa de Saída e não são enviados na hora agendada, verifique se o Outlook está em execução e tem uma ligação de rede estável nesse momento. O envio da Caixa de Saída exige que o Outlook esteja aberto e ligado.
Após atualizar ou substituir o seu perfil do Outlook, ou se mudar para um novo computador, terá de reaplicar este script, pois as definições do projeto VBA não são transferidas automaticamente.
Se pretender desativar temporariamente esta automatização, basta comentar ou remover o código em ThisOutlookSession.

Soluções alternativas

Se preferir uma solução mais rápida e sem código para agendar e-mails, o Kutools para Outlook oferece a funcionalidade fácil de usar Envio Agendado, que lhe permite agendar envios automáticos, atrasar mensagens ou programar e-mails recorrentes com apenas alguns cliques. Saiba mais aqui:https://www.extendoffice.com/product/kutools-for-outlook/outlook-schedule-email.html

captura da lista Horários Agendados

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook Transferir Já Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto ⬇ Transferir o Conjunto 💳 Comprar o Conjunto