通过

Reminder.OriginalReminderDate 属性 (Outlook)

  • 项目

返回一个指定的原始日期和指定为特定提醒设置发生的时间的 日期 。 此为只读属性。

语法

expression。 OriginalReminderDate

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

备注

此值与执行 Snooze 方法或用户单击 暂停按钮之前的原始日期和时间值相对应。

示例

(VBA) 示例下面的 Microsoft Visual Basic for Applications 创建所有提醒的报告中 提醒 集合并在它们计划发生的日期。 该子例程将所有 提醒 集合中的对象转换为字符串 标题 和 OriginalReminderDate 属性连接起来，并在对话框中显示的字符串。

Sub DisplayOriginalDateReport() 
 
 'Displays the time at which 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 = "Original 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 info to string 
 
 strReport = strReport & objRem.Caption & vbTab & vbTab & _ 
 
 objRem.OriginalReminderDate & vbCr 
 
 Next objRem 
 
 'Display report in dialog 
 
 MsgBox strTitle & vbCr & vbCr & strReport 
 
 End If 
 
End Sub

另请参阅

提醒对象

支持和反馈

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