Dismiss 方法

消除当前提醒。

expression  必选。该表达式返回 Reminder 对象。

说明

如果没有可见的提醒，Dismiss 方法将执行失败。

示例

以下示例消除所有活动提醒。如果提醒的 IsVisible 属性设置为 True，则提醒是活动的。

Sub DismissReminders()
'Dismisses any active reminders

    Dim olApp As Outlook.Application
    Dim objRems As Reminders
    Dim objRem As Reminder

    Set olApp = Outlook.Application
    Set objRems = olApp.Reminders

    For Each objRem In objRems
        If objRem.IsVisible = True Then
            objRem.Dismiss
        End If
    Next objRem

End Sub