Note: The other languages of the website are Google-translated. Back to English
English English

Como alterar o tempo padrão para atraso na entrega no Outlook?

Ao habilitar a opção de entrega atrasada (o Não entregue antes opção na captura de tela a seguir) para um email no Outlook, o horário de envio é definido como 5h por padrão. Suponha que você esteja trabalhando tarde da noite e não queira que os outros saibam que você está fazendo hora extra. Você precisa habilitar a opção de entrega atrasada para seus e-mails antes de enviá-los. Depois de habilitar a opção, você precisa alterar manualmente o tempo de envio padrão. Caso contrário, o e-mail será enviado após as 00h do dia seguinte. Existe alguma maneira de alterar esse tempo de entrega padrão?

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


Alterar o tempo padrão para entrega de atraso no Outlook com código VBA

Você pode aplicar o seguinte código VBA para alterar o tempo padrão para a opção de entrega de atraso no Outlook.

No seguinte código VBA:

Você pode especificar duas vezes: o atraso na entrega e o opção de atraso de entrega permitindo tempo.

Por exemplo, você define o horário de entrega atrasada para 07h30 e define a opção de entrega atrasada para ser ativada automaticamente após as 5h30. Quando você envia um e-mail entre 07h30 e 5h30, o e-mail será enviado diretamente. Se um e-mail for enviado entre 5h30 e 07h30, ele será programado para ser enviado após as 07h30 do dia seguinte.

Por favor, teste o script da seguinte forma.

1. Inicie o Outlook, pressione o outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duas vezes em Project1 > Objetos do Microsoft Outlook > Esta sessão do Outlook para abrir o ThisOutlookSession (Código) window e, em seguida, copie o código a seguir para esta janela de código.

Código VBA: altere o tempo padrão para entrega de atraso no Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20220415
  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
  On Error GoTo xError
  If (Item.Class <> olMail) Then Exit Sub
  Set xMail = Item
  xWeekday = Weekday(Date, vbSunday)
  xNowTime = Format(Now, "hh:nn:ss")
  xIsDelay = (StrComp(xNowTime, xCompareTime) > 0)
  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
Exit Sub
xError:
  MsgBox "ItemSend: " & Err.Description, , "Kutools for Outlook"
End Sub

notas:

1) Você pode alterar o tempo de atraso e o tempo para habilitar a opção de entrega atrasada nas linhas a seguir.
Const xDelayTime As String = "07:30:00"
Const xCompareTime As String = "17:30:00"
2) Ao enviar um e-mail nos finais de semana, será agendado o envio após as 07h30 de segunda-feira.

3. Salve o código e pressione o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.

A partir de agora, quando você enviar um e-mail entre 07h30 e 5h30, o e-mail será enviado diretamente. Se um e-mail for enviado entre 5h30 e 07h30, ele será programado para ser enviado após as 07h30 do próximo dia útil.


Artigos relacionados

Alterar a hora padrão do lembrete de eventos de dia inteiro no Outlook
Normalmente, a hora do lembrete padrão de evento de dia inteiro é 18 horas no Outlook 2007/2010 e 0.5 dia no Outlook 2013. Às vezes, a hora de lembrete padrão de evento de dia inteiro pode não corresponder ao seu horário de trabalho. Aqui, apresentaremos a maneira de alterar a hora do lembrete padrão de eventos de dia inteiro no Microsoft Outlook.

Alterar o tempo de acompanhamento padrão no Outlook
Como sabemos, quando adicionamos um lembrete de acompanhamento para um e-mail no Outlook, o horário padrão de acompanhamento é às 4h30 (ou outro horário, dependendo do seu horário de trabalho). No entanto, você pode alterar o horário padrão de acompanhamento e deixá-lo lembrá-lo no início do horário de trabalho, como às 9h. Neste artigo, mostrarei como alterar o tempo de acompanhamento padrão no Outlook.

Alterar local de arquivo padrão no Outlook
Por padrão, o Outlook tem um local padrão para os arquivos compactados. Além do local padrão, você pode definir seu próprio local de arquivamento para seus arquivos compactados. Neste tutorial, mostraremos como alterar o local de arquivamento padrão no Outlook em detalhes.

Alterar o local de salvamento do anexo padrão no Outlook
Você já se cansou de encontrar o local do anexo especificado sempre que inicia o Outlook? Neste tutorial, mostraremos como alterar o local padrão do anexo. Depois disso, a pasta especificada para salvar anexos será aberta automaticamente sempre que você salvar os anexos, embora reinicie o Outlook.

Alterar o padrão de evento de dia inteiro para ocupado no Outlook
Por padrão, o Outlook define o status de compromissos e reuniões como "Ocupado", mas eventos de dia inteiro como "Livre" (veja a captura de tela abaixo). Você precisa alterar manualmente o status Mostrar como para Ocupado sempre que criar um evento de dia inteiro. Para alterar a exibição padrão como status de eventos de dia inteiro para Ocupado, o artigo fornece dois métodos.


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (18)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isto não funcionou para mim
Este comentário foi feito pelo moderador no site
Olá David Koenig,
Você recebeu algum prompt de erro? Preciso saber mais especificamente sobre seu problema, como sua versão do Outlook. Desculpe a inconveniência.
Este comentário foi feito pelo moderador no site
Isso é ótimo, obrigado, e se você quiser um e-mail único no fim de semana para enviar imediatamente, como você faria isso?
Este comentário foi feito pelo moderador no site
Olá Isabelle,
Não entendo muito bem o que você quer dizer. Você quer dizer atrasar todos os e-mails e enviá-los juntos no fim de semana?
Preciso de mais informações sobre sua pergunta. Desculpe pela inconveniência.
Este comentário foi feito pelo moderador no site
Isso é realmente útil

Se você quiser desativá-lo apenas para um e-mail (ou seja, substituir o padrão e enviar este e-mail fora do horário de trabalho), como você faria isso?
Eu tentei entrar na 'Caixa de saída' e tirar o atraso de entrega - mas quando clico em enviar, ele volta para a 'caixa de saída' com o atraso de entrega ativado novamente.

Aprecie qualquer conselho!
Este comentário foi feito pelo moderador no site
Oi Liam,
Tente o seguinte código VBA.
Se você precisar desativar o atraso na entrega de um e-mail, após enviá-lo, vá para a caixa de saída, clique duas vezes no e-mail para abri-lo. Clique Opções > Atraso na entrega > Desmarque a opção Não entregue antes caixa de seleção > feche o Propriedades caixa de diálogo > Clique ENVIAR.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/delay-delivery.png

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20221124
  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
  On Error GoTo xError
  If (Item.Class <> olMail) Then Exit Sub
  Set xMail = Item
  If xMail.Submitted = True Then Exit Sub
  xWeekday = Weekday(Date, vbSunday)
  xNowTime = Format(Now, "hh:nn:ss")
  xIsDelay = (StrComp(xNowTime, xCompareTime) > 0)
  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
Exit Sub
xError:
  MsgBox "ItemSend: " & Err.Description, , "Kutools for Outlook"
End Sub
Este comentário foi feito pelo moderador no site
O tempo de atraso padrão geral de 5:00 pode ser alterado para (digamos) 10:00? Tenho uma situação de trabalho que exige que eu crie um e-mail diário de manhã cedo, mas não envie até as 10h - geralmente é a única vez que preciso atrasar um envio, portanto, meu padrão de 10h economizaria um pouco de edição toda manhã.
Este comentário foi feito pelo moderador no site
Oi Michael,
O tempo de atraso padrão pode ser alterado de 5h para 00h quando você clica no botão Enviar, mas funciona para todos os e-mails enviados no início da manhã.
Preciso confirmar se você deseja ativar essa entrega atrasada apenas para um e-mail específico. Nesse caso, o código não funcionará para suas necessidades.
Este comentário foi feito pelo moderador no site
Eu gostaria que o horário de envio padrão fosse sempre 10h, não 00h. Se eu precisar alterar o horário de entrega para outro e-mail, ficarei feliz em fazer isso, mas para minha tarefa diária, o padrão das 5h é preferível.
Este comentário foi feito pelo moderador no site
Oi Michael,
Porque o Não entregue antes opção está habilitada ao clicar no botão Enviar com o código VBA, preciso confirmar os dois problemas a seguir. Essas informações precisam ser levadas em consideração no código. Desculpe pela inconveniência.
1. Deseja atrasar o envio de e-mails apenas no início da manhã (antes das 10h)? Existe um intervalo de tempo específico? Como 00:7 - 00:9.
2. E se você enviar e-mails depois das 10:00? Esses e-mails são enviados diretamente sem demora?
Este comentário foi feito pelo moderador no site
Olá Michael.

google para o suplemento SetDeliveryTime para Outlook (freeware).
Este comentário foi feito pelo moderador no site
Perfeito! Isso é exatamente o que eu queria - esse suplemento altera o horário padrão "Não entregar antes" das 5h para o que se deseja especificar. Muito obrigado, Victor, e muito obrigado por sua diligência em atender meu pedido, Crystal.
Este comentário foi feito pelo moderador no site
Apliquei o script VBA e funcionou muito bem. Como faço para desfazer isso? Estou tentando desativar o envio atrasado de volta para desmarcado como padrão.
Este comentário foi feito pelo moderador no site
Eu usei isso e funciona muito bem, no entanto, preciso remover e desativar a caixa de seleção de entrega atrasada automática. Você pode por favor ajudar?
Este comentário foi feito pelo moderador no site
Eu apliquei isso e funciona. No entanto, como faço para retirar o código VBA para não ter esse recurso ativado?
Este comentário foi feito pelo moderador no site
Olá Travis,
Se você deseja apenas desabilitar o código e ainda precisar dele no futuro, por favor, comente o código inteiro no editor VBA.
1. Abra o Editor VBA (pressione o botão outro + F11 chaves).
2. Clique com o botão direito do mouse em qualquer lugar da faixa de opções.
3. Selecione "Editar” Barra de ferramentas para adicionar a barra de ferramentas Editar à faixa de opções.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/vba1.png
4. Selecione todo o código VBA e clique no botão Bloco de Comentário botão.
Nota: Se você quiser ativar o código novamente, basta selecionar o código inteiro e clicar no botão Bloco de descomentar botão.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/vba2.png
Este comentário foi feito pelo moderador no site
Ei, isso não está funcionando para mim. Estou na versão 2210 do Outlook. Também tenho outra função em ThisOutlookSession. Você poderia me ajudar a ver o que pode estar acontecendo?
Este comentário foi feito pelo moderador no site
Essa é uma versão bastante avançada do Outlook, Brian! 😄
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL