Как автоматически отклонять напоминания Outlook по прошествии определенного времени?

Question

Вот очень распространенный сценарий с Outlook:

1. Я добавляю событие в свой календарь
2. Появляется уведомление, напоминающее мне о событии
3. Я игнорирую это или просто закрываю всплывающее окно
4. Напоминание всплывает снова позже, напоминая мне о давно ушедшей встрече

Можно ли сделать так, чтобы все напоминания Outlook отклонялись после определенного времени после события календаря?

Answer 1

JonathanReez

Попробуйте этот макрос, это может помочь:

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

Что касается «dSpecificTime», вы также можете заменить «Сейчас» на определенную дату или время, например, dSpecificTime = DateAdd(«m», 1, 10-4-2017) или dSpecificTime = DateAdd(«h», 2, 10- 4-2017 8:30 утра).

Answer 2

Попробуйте запустить Outlook с /cleanreminders . Если это обеспечивает желаемое поведение, вы можете добавить этот переключатель к стандартному способу запуска Outlook.