将提醒延迟一定的时间。相当于用户单击“暂停”按钮。
expression.Snooze(SnoozeTime)
expression 必选。该表达式返回 Reminder 对象。
SnoozeTime 可选,Variant 类型。指明提醒延迟的时间(以分钟计)。默认值为 5 分钟。
如果当前提醒不处于活动状态,该方法将执行失败。
以下示例将所有活动提醒延迟指定的时间。
Sub SnoozeReminders()
'Delays all reminders by a specified amount of time
Dim olApp As Outlook.Application
Dim objRems As Reminders
Dim objRem As Reminder
Dim varTime As Variant
Set olApp = Outlook.Application
Set objRems = olApp.Reminders
varTime = InputBox("Enter the number of minutes to delay")
For Each objRem In objRems
If objRem.IsVisible = True Then
objRem.Snooze (varTime)
End If
Next objRem
End Sub