OriginalReminderDate 属性

返回指定提醒设置的原始发生日期和时间。Date 类型，只读。

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