Dismiss Method

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