通过

Reminder.NextReminderDate 属性 (Outlook)

  • 项目

返回 日期 指定的提醒下一次会。 此为只读属性。

语法

expression。 NextReminderDate

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

备注

每次执行该对象 Snooze 方法或用户单击 暂停按钮时将 NextReminderDate 属性值更改。

示例

下面的示例在集合中，当他们接下来将发生的日期创建一份所有提醒。 该子例程将 标题 和 NextReminderDate 属性连接为一个字符串并在对话框中显示的字符串。

Sub DisplayNextDateReport() 
 
 'Displays the next time all reminders will be displayed. 
 
 Dim objRems As Outlook.Reminders 
 
 Dim objRem As Outlook.Reminder 
 
 Dim strTitle As String 
 
 Dim strReport As String 
 
 
 
 Set objRems = Application.Reminders 
 
 strTitle = "Current Reminder Schedule:" 
 
 strReport = "" 
 
 'Check if any reminders exist. 
 
 If objRems.Count = 0 Then 
 
 MsgBox "There are no current reminders." 
 
 Else 
 
 For Each objRem In objRems 
 
 'Add information to string. 
 
 strReport = strReport & objRem.Caption & vbTab & _ 
 
 objRem.NextReminderDate & vbCr 
 
 Next objRem 
 
 'Display report in dialog box 
 
 MsgBox strTitle & vbCr & vbCr & strReport 
 
 End If 
 
End Sub

另请参阅

提醒对象

支持和反馈

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