Condividi tramite


NextReminderDate Property

Returns a Date that indicates the next time the specified reminder will occur. Read-only.

expression.NextReminderDate

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

Remarks

The NextReminderDate property value changes every time the object's **Snooze**method is executed or when the user clicks the Snooze button.

Example

The following example creates a report of all reminders in the collection and the dates when they will next occur. The subroutine concatenates the **Caption**and NextReminderDate properties into a string and displays the string in a dialog box.

Sub DisplayNextDateReport()
'Displays the next time 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 = "Current 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 information to string.
                strReport = strReport & objRem.Caption & vbTab & _
                            objRem.NextReminderDate & vbCr
         Next objRem
        'Display report in dialog box
        MsgBox strTitle & vbCr & vbCr & strReport
    End If

End Sub

Applies to | Reminder Object

See Also | Dismiss Method | Reminder Event | Reminder Object | Reminders Collection