Dismiss Outlook reminder
If you want to dismiss all the reminders, you can simply implement the following code (declare this object WithEvents
displaying all the events):
Private WithEvents olRemind As Outlook.RemindersPrivate Sub Application_Reminder(ByVal Item As Object) Set olRemind = Outlook.Reminders ' RUN OTHER MACRO HEREEnd SubPrivate Sub olRemind_BeforeReminderShow(Cancel As Boolean) Cancel = True End Sub
The only way I know how to do this is as follows.
You need this at the top of your module/class:
Private WithEvents olRemind As Outlook.Reminders
Then when you get your Outlook object you need to do this:
Set olRemind = olApp.Reminders
Where olApp
is your Outlook Application object.
Now in your code you need to have this event:
Private Sub olRemind_BeforeReminderShow(Cancel As Boolean)
Once you put the WithEvents
at the top then you will be able to see all the events you can use.
Now you can cancel this event and thus not see the reminder window.