Ir para o conteúdo principal

Como encontrar lembretes adiados no Outlook?

Por exemplo, ao suspender um lembrete na janela Lembrete, o lembrete desaparecerá imediatamente. Portanto, como você poderia descobrir o lembrete adiado? Neste artigo, apresentarei a solução para localizar lembretes suspensos no Outlook.

Encontre lembretes suspensos na agenda do Outlook

Guia Office - Habilite edição e navegação com guias no Microsoft Office, facilitando o trabalho
Kutools para Outlook - Impulsione o Outlook com mais de 100 recursos avançados para eficiência superior
Aumente seu Outlook 2021 - 2010 ou Outlook 365 com esses recursos avançados. Desfrute de um teste gratuito abrangente de 60 dias e melhore sua experiência de e-mail!

seta azul bolha direitaEncontre lembretes suspensos na agenda do Outlook

Este método apresentará um VBA para procurar todos os lembretes adiados para Hoje no Outlook. Faça o seguinte:

1. Mude para o Mail e pressione as teclas Alt + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o código VBA abaixo na nova janela do módulo.

VBA: encontre 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. aperte o F5 ou clique no Execute botão para executar este VBA.

Agora você pode ver todos os lembretes adiados para hoje são colados como o corpo da mensagem em um novo e-mail. Veja a imagem:


seta azul bolha direitaArtigos Relacionados


Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos PróSalvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

 

 

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HiI am having problem. I get the following error intermittently "Method Caption of object reminder failed " It then words with nothing being changed.Any ideas welcome.Thanks(I really use this macro when working !
This comment was minimized by the moderator on the site
Hi Dave AA,
For your problem, please try the code below:
<div data-tag="code">Sub SnoozedReminders()

Dim xReminder As Reminder

Dim xReminders As Outlook.Reminders

Dim xRemItems As String

Dim k As Long

On Error Resume Next

k = 0

Set xReminders = Outlook.Application.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 xMailItem As MailItem

On Error Resume Next

Set xMailItem = Application.CreateItem(olMailItem)

With xMailItem

.Subject = Theme

.Body = RemItems

.Save

.Display

End With

Set xMail = Nothing

End SubHope this works for you.
Amanda
This comment was minimized by the moderator on the site
Hi Amanda.Perfect.Many Thanks
This comment was minimized by the moderator on the site
This was so helpful. Thank you.
This comment was minimized by the moderator on the site
WICKED this was helpful thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations