Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como evitar que o Outlook lembre muito cedo ou muito tarde?

Author Kelly Last modified

Por exemplo, você trabalha das 9h00 às 18h00 todos os dias, mas agora está agendando um compromisso para as 10h00 e adiciona um lembrete de 2 horas para ele no Outlook. Isso significa que o lembrete será acionado às 8h00, antes do início do seu expediente. Por outro lado, o lembrete pode soar à meia-noite em casos especiais. Isso é bastante inconveniente, e alguns usuários do Outlook podem querer evitar que o Outlook lembre muito cedo ou muito tarde. Aqui vou apresentar uma macro VBA para resolver isso no Outlook.

Office Tab - Habilite a edição e navegação com abas no Microsoft Office, tornando o trabalho mais fácil.
Desbloqueie o Kutools para Outlook agora e aproveite mais de 100 recursos com acesso ilimitado para sempre.
Potencialize seu Outlook 2024 - 2010 ou Outlook 365 com esses recursos avançados. Aproveite mais de 100 recursos poderosos e eleve sua experiência de email!

Para evitar que o Outlook lembre muito cedo ou muito tarde, você pode fazer o seguinte:

Passo 1: Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

Passo 2: Expanda os Objetos do Microsoft Outlook no painel esquerdo e cole a seguinte macro VBA na sessão ThisOutlookSession.

VBA: Evitar lembrar muito cedo ou muito tarde no Outlook

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

 

Observação: Você pode especificar seu período de trabalho alterando os seguintes parâmetros no código VBA acima:
reminderMaxHour = 20
reminderMinHour = 9

Passo 3: Salve esta VBA e reinicie o Microsoft Outlook.

A partir de agora, ao criar um compromisso com o horário do lembrete fora do período de trabalho especificado, aparecerá uma caixa de diálogo para lembrá-lo depois de clicar no botão Salvar & Fechar.

the screenshot of step about preventing outlook reminding too early or too late

Se o horário do lembrete for anterior à hora mínima de lembrete (reminderMinHour) especificada, clique em Sim na caixa de diálogo, isso mudará o horário do lembrete e fará o lembrete soar na hora mínima de lembrete (reminderMinHour) especificada.

Se o horário do lembrete for posterior à hora máxima de lembrete (reminderMaxHour) especificada, clique em Sim na caixa de diálogo, isso mudará o horário do lembrete e o lembrará na hora máxima de lembrete (reminderMaxHour) especificada.

Observação: Este código VBA funciona bem com o Outlook 2013, mas não funciona com o Outlook 2010 e 2007.

Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar e-mails com facilidade, incluindo responder, resumir, otimizar, estender, traduzir e criar e-mails.

📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP)  /  Agendar Enviar Email  /  CC/BCC automático por Regra ao Enviar Email  /  Encaminhamento automático (Regra avançada)   /  Adicionar Saudação automaticamente   /  Dividir automaticamente Emails com múltiplos destinatários em Email individuais ...

📨 Gerenciamento de Email: Recallar Email  /  Bloquear emails fraudulentos por Assunto e outros critérios  /  Excluir Duplicado  /  Pesquisa Avançada  /  Organizar Pastas ...

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

🌟 Magia da Interface: 😊Mais emojis bonitos e legais   /  Notificações de emails importantes  /  Minimizar Outlook em vez de fechar ...

👍 Recursos de um clique: Responder a Todos com Anexos  /   Emails Anti-Phishing  /  🕘Exibir o fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados  /  Dividir um Grupo de Contatos em grupos individuais  /  Remover lembrete de aniversário ...

Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não espere, baixe agora e aumente sua eficiência!

kutools for outlook features1 kutools for outlook features2

🚀 Download com um clique — Baixe todos os complementos de Office

Recomendado fortemente: Kutools para Office (5 em1)

Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!

  • ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
  • 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
  • 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint