OriginalReminderDate Property

Returns a Date that specifies the original date and time that the specified reminder is set to occur. Read-only.


*expression   * Required. An expression that returns a **Reminder**object.


This value corresponds to the original date and time value before the **Snooze**method is executed or the user clicks the Snooze button.


The following Microsoft Visual Basic/Visual Basic for Applications (VBA) example creates a report of all reminders in the **Reminders**collection and the dates at which they are scheduled to occur. The subroutine concatenates the Caption and OriginalReminderDate properties of all Reminder objects in the collection into a string and displays the string in a dialog box.

Sub DisplayOriginalDateReport()
'Displays the time at which all reminders will be displayed.

    Dim olApp As Outlook.Application
    Dim objRems As Outlook.Reminders
    Dim objRem As Outlook.Reminder
    Dim strTitle As String
    Dim strReport As String

    Set olApp = New Outlook.Application
    Set objRems = olApp.Reminders

    strTitle = "Original Reminder Schedule:"
    strReport = ""
    'Check if any reminders exist.
    If objRems.Count = 0 Then
        MsgBox "There are no current reminders."
        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

Applies to | Reminder Object

See Also | Dismiss Method | Snooze Method