通过

Reminder.Dismiss 方法 (Outlook)

  • 项目

消除当前提醒。

语法

expression。 Dismiss

表达 一个代表 Reminder 对象的变量。

备注

如果没有任何可见的提醒， 消除 方法将失败。

示例

以下示例消除所有活动提醒。 一个提醒处于活动状态，如果其 IsVisible 属性设置为 True 。

Sub DismissReminders() 
 
'Dismisses any active reminders. 
 
 
 
 Dim objRems As Outlook.Reminders 
 
 Dim objRem As Outlook.Reminder 
 
 Dim i As Integer 
 
 
 
 Set objRems = Application.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

另请参阅

提醒对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。