返回指定提醒设置的原始发生日期和时间。Date 类型,只读。
expression.OriginalReminderDate
expression 必选。该表达式返回 Reminder 对象。
该值相当于执行 Snooze 方法或用户单击“暂停”按钮之前的原始日期和时间。
以下示例创建 Reminders 集合中所有提醒及其计划发生日期的报告。子例程将集合中所有 Reminder 对象的 Caption 和 OriginalReminderDate 属性连接为一个字符串,并在对话框中显示该字符串。
Sub DisplayOriginalDateReport()
'Displays the time at which all reminders will be displayed
Dim olApp As Outlook.Application
Dim objRems As Reminders
Dim objRem As Reminder
Dim strTitle As String
Dim strReport As String
Set olApp = Outlook.Application
Set objRems = olApp.Reminders
strTitle = "Original Reminder Schedule:"
'Check if any reminders exist
If objRems.Count = 0 Then
MsgBox "There are no current reminders."
Else
For Each objRem In objRems
'If string is empty, create new string
If strReport = "" Then
strReport = objRem.Caption & vbTab & vbTab & _
objRem.OriginalReminderDate & vbCr
Else
'Add info to string
strReport = strReport & objRem.Caption & vbTab & vbTab & _
objRem.OriginalReminderDate & vbCr
End If
Next objRem
'Display report in dialog
MsgBox strTitle & vbCr & vbCr & strReport
End If
End Sub