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

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 a edição e navegação com guias no Office e torne o trabalho muito mais fácil ...
Kutools for Outlook - traz 100 recursos avançados poderosos para o Microsoft Outlook
  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários e-mails por regras; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tenta 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 de uma vez; Adicionar saudação automaticamente quando responder; Adicionar data e hora automaticamente ao assunto ...
  • Ferramentas de Anexo: Desanexar automaticamente, Comprimir tudo, Renomear tudo, Salvar tudo automaticamente ... Relatório Rápido, Contar e-mails selecionados, Remover e-mails e contatos duplicados ...
  • Mais de 100 recursos avançados resolva a maioria dos seus problemas no Outlook 2010-2019 e 365. Full features 60-day free trial.

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 Corrida 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


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 (5)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
CRUEL isso foi útil obrigado!
Este comentário foi feito pelo moderador no site
Isso foi tão útil. Obrigada.
Este comentário foi feito pelo moderador no site
Oi estou tendo problema. Eu recebo o seguinte erro intermitentemente "Método de legenda do lembrete de objeto falhou" Em seguida, palavras sem nada sendo alterado. Todas as idéias são bem-vindas. Obrigado (eu realmente uso essa macro ao trabalhar!
Este comentário foi feito pelo moderador no site
Olá Dave AA,
Para o seu problema, tente o código abaixo:
Sub adiadoLembretes()

Escurecer xReminder como lembrete

Dim xReminders As Outlook.Reminders

Dim xRemItems como string

Dim k por muito tempo

On Error Resume Next

k = 0

Definir xReminders = Outlook.Application.Reminders

Para cada xReminder em xReminders

Se ReminderExpired(xReminder) = True Então

k = k + 1

xRemItems = xRemItems & k & ": " & xReminder.Caption & vbCr & " Adiado para " & xReminder.NextReminderDate & vbCr & vbCr

Se acabar

Próximo xLembrete

CreateRemItemsAsEmail "RemItems suspensos", xRemItems

End Sub

Função ReminderExpired(Reminder As Outlook.Reminder) As Boolean

Se (Reminder.OriginalReminderDate <> Reminder.NextReminderDate) Então

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

Se acabar

Função final

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

Dim xMailItem As MailItem

On Error Resume Next

Definir xMailItem = Application.CreateItem(olMailItem)

Com xMailItem

.Assunto = Tema

.Body = RemItems

.Salve 

.Exibição

Terminar com

Definir xMail = Nada

End SubHope isso funciona para você.
Amanda
Este comentário foi feito pelo moderador no site
Oi Amanda.Perfeito.Muito obrigado
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos