Как закрыть или закрыть напоминание Outlook через Outlook VBA

Question

Я хочу запустить макрос в Outlook в определенное время, поэтому для этого я использую напоминания Outlook.Я написал приведенный ниже код, который успешно запускает макрос, но после того, как он завершил оператор If, появляется всплывающее напоминание, которое мне не нужно видеть, и поэтому необходимо его закрыть / закрыть.

Public Sub Application_Reminder(ByVal Item As Object)
If Item.Subject = "Refresh Data Test" Then
    Call RunExcelMacros.TestRun
End If
End Sub

Может кто-нибудь помочь подсказать, как я могу отклонить напоминание?

Answer 1

Хорошо, я думаю, что у меня это получилось - кажется, что работает ниже, весь код настроен в модуле "ThisOutlookSession":

Private WithEvents OutlookReminders As Outlook.Reminders

Public Sub Application_Reminder(ByVal Item As Object)
Set OutlookReminders = Outlook.Reminders
If Item.Subject = "Refresh Data Test" Then
    Call RunExcelMacros.TestRun
End If
End Sub

Private Sub OutlookReminders_BeforeReminderShow(Cancel As Boolean)
Dim OutlookReminder As Reminder
'After the "Application_Reminder" has run it will then run this code straight after which stops the reminder from actually popping up
    For Each OutlookReminder In OutlookReminders
        If OutlookReminder.Caption = "Refresh Data Test" Then
            If OutlookReminder.IsVisible Then
                OutlookReminder.Dismiss
                Cancel = True
            End If
            Exit For
        End If
    Next OutlookReminder
End Sub