| title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
|---|---|---|---|---|---|---|---|---|
Reminder.OriginalReminderDate property (Outlook) |
vbaol11.chm564 |
|
|
ecc3f0c4-0e20-1d02-94b5-40807523ad2d |
06/08/2017 |
medium |
Returns a Date that specifies the original date and time that the specified reminder is set to occur. Read-only.
expression. OriginalReminderDate
expression A variable that represents 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 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 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[!includeSupport and feedback]