Condividi tramite


ReminderSet Property

True if a reminder has been set for this appointment, e-mail item, or task. Read/write Boolean.

expression.ReminderSet

*expression    * Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates an appointment item and sets the ReminderSet property before saving it.

Sub AddAppointment()
    Dim OutApp As Outlook.Application
    Dim apti As Outlook.AppointmentItem
    Set OutApp = CreateObject("Outlook.application")
    Set apti = OutApp.CreateItem(olAppointmentItem)
    apti.Subject = "Car Servicing"
    apti.Start = DateAdd("n", 16, Now)
    apti.End = DateAdd("n", 60, apti.Start)
    apti.ReminderSet = True
    apti.ReminderMinutesBeforeStart = 60
    apti.Save
End Sub

Applies to | AppointmentItem Object | MailItem Object | MeetingItem Object | TaskItem Object

See Also | ReminderMinutesBeforeStart Property | ReminderOverrideDefault Property | ReminderPlaySound Property | ReminderSoundFile Property | ReminderTime Property