Como descartar automaticamente lembretes do Outlook após um certo tempo?

Question

Aqui está um cenário extremamente comum com o Outlook:

1. adiciono um evento ao meu calendário
2. Uma notificação é exibida, lembrando-me sobre o evento
3. eu ignoro ou simplesmente fecho o pop-up
4. O lembrete aparece novamente mais tarde, lembrando-me de uma reunião que já passou há muito tempo

É possível que todos os lembretes do Outlook sejam ignorados após um determinado tempo após o evento da agenda?

    

Answer 1

JonathanReez

Experimente esta macro, pode ajudar:

Sub RemoveRemindersinSpecificTimeInterval()
    Dim objReminders As Outlook.Reminders
    Dim objReminder As Outlook.Reminder
    Dim dSpecificTime As Date
    Dim objItem

    Set objReminders = Outlook.Reminders
    'The following line refers to 1 day since the current time
    dSpecificTime = DateAdd("d", 1, Now)

    For Each objReminder In objReminders
        If objReminder.NextReminderDate <= Format(dSpecificTime, "ddddd h:nn AMPM") Then
           Set objItem = objReminder.Item
           objItem.ReminderSet = False
           objItem.Save
        End If
    Next
End Sub

Sobre "dSpecificTime", você também pode substituir "Now" por uma data ou hora específica, como dSpecificTime = DateAdd ("m", 1, 10-4-2017) ou dSpecificTime = DateAdd ("h ", 2, 10-4-2017 8:30).

    

Answer 2

Tente iniciar o Outlook com a opção /cleanreminders . Se isso fornecer o comportamento desejado, você poderá adicionar essa opção à maneira padrão de iniciar o Outlook.