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