This documentation is archived and is not being maintained.

ReminderSet Property

Office 2003

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


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


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
End Sub