次の方法で共有


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