AppointmentItem.ReminderSet Property (Outlook)
Published: July 16, 2012
Returns or sets a Boolean value that is True if a reminder has been set for this item. Read/write.
This example creates an appointment item and sets the ReminderSet property before saving it.
Sub AddAppointment() Dim apti As Outlook.AppointmentItem Set apti = Application.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