Dismiss Method
Dismisses the current reminder.
expression.Dismiss
*expression * Required. An expression that returns a **Reminder**object.
Remarks
The Dismiss method will fail if there is no visible reminder.
Example
The following example dismisses all active reminders. A reminder is active if its **IsVisible**property is set to True.
SSub DismissReminders()
'Dismisses any active reminders.
Dim olApp As Outlook.Application
Dim objRems As Outlook.Reminders
Dim objRem As Outlook.Reminder
Dim i As Integer
Set olApp = New Outlook.Application
Set objRems = olApp.Reminders
For i = objRems.Count To 1 Step -1
If objRems(i).IsVisible = True Then
objRems(i).Dismiss
End If
Next
Set olApp = Nothing
Set objRems = Nothing
Set objRem = Nothing
End Sub
Applies to | Reminder Object
See Also | Reminder Object | Reminders Collection | Snooze Method