消除当前提醒。
expression.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