Skip to main content

Como encontrar lembretes adiados no Outlook?

Author: Kelly Last Modified: 2025-06-04

Por exemplo, ao adiar um lembrete na janela de Lembretes, o lembrete desaparecerá imediatamente. Portanto, como você poderia localizar o lembrete adiado? Neste artigo, apresentarei a solução para encontrar lembretes adiados no Outlook.

Encontrar lembretes adiados no calendário do Outlook

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

Encontrar lembretes adiados no calendário do Outlook

Este método apresentará uma VBA para procurar todos os lembretes adiados para Hoje no Outlook. Por favor, siga os passos abaixo:

1. Alterne para a visualização de Correio e pressione as teclas Alt + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código VBA abaixo na nova janela Módulo.

VBA: Encontrar lembretes adiados no Outlook

Sub SnoozedReminders()

  Dim xReminder As  Reminder

  Dim xReminders  As Outlook.Reminders

  Dim xRemItems As  String

  Dim k As Long

  k = 0

  Set xReminders =  Outlook.Reminders

  For Each xReminder  In xReminders

  If  ReminderExpired(xReminder) = True Then

  k = k +  1

  xRemItems = xRemItems & k & ": " &  xReminder.Caption & vbCr & "      Snoozed to " & xReminder.NextReminderDate & vbCr & vbCr

  End If

  Next xReminder

  CreateRemItemsAsEmail "Snoozed RemItems",  xRemItems

  End Sub

Function ReminderExpired(Reminder As Outlook.Reminder)  As Boolean

  If  (Reminder.OriginalReminderDate <> Reminder.NextReminderDate) Then

  ReminderExpired = (Reminder.OriginalReminderDate <>  Reminder.NextReminderDate)

  End If

  End Function

Public Sub CreateRemItemsAsEmail(Theme As String,  RemItems As String)

  Dim xSession As Outlook.NameSpace

  Dim xMailItem As MailItem

  Dim xInboxFd As Outlook.Folder

  On Error Resume Next

  Set xSession = Application.Session

  Set xInboxFd =  xSession.GetDefaultFolder(olFolderInbox)

  Set xMailItem =  xInboxFd.Items.Add("IPM.Mail")

  With xMailItem

  .Subject =  Theme

  .body =  RemItems

  .Save

  .Display

  End With

  Set xSession = Nothing

  Set xInboxFd = Nothing

  Set xmail = Nothing

  End Sub

3. Pressione a tecla F5 ou clique no botão Executar para executar esta VBA.

Agora você pode ver que todos os lembretes adiados para hoje são colados como corpo da mensagem em um novo email. Veja a captura de tela:

the screenshot of finding snoozed reminders in outlook

arrow blue right bubbleArtigos Relacionados


Melhores Ferramentas de Produtividade para Office

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

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / 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 mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

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

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

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

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2