共用方式為


ReminderAdd Event

Occurs after a reminder is added.

Private Subexpression_ReminderAdd(ByVal ReminderObject As Reminder)

*expression   * A variable which references an object of type **Reminders**declared with events in a class module.

ReminderObject Required. The **Reminder**object added to the collection.

Remarks

A reminder is not actually created until the associated Microsoft Outlook item has been saved. Therefore, this event will not occur until the associated item object has been saved.

Example

The following example displays the date of the next reminder when a reminder is added to the collection.

Public WithEvents objReminders As Outlook.Reminders

Sub Initialize_handler()
    Set objReminders = Application.Reminders
End Sub

Private Sub objReminders_ReminderAdd(ByVal ReminderObject As Reminder)
    'Occurs when a Reminder object is added to the collection using the user interface or object model

    MsgBox "A new reminder is added that will fire at: " & _
            ReminderObject.NextReminderDate

End Sub

Applies to | Reminders Collection

See Also | Reminder Object | ReminderChange Event | ReminderFire Event | ReminderMinutesBeforeStart Property | ReminderOverrideDefault Property | ReminderPlaySound Property | ReminderRemove Event | Reminders Collection