Option Explicit
Private Sub Appt_With_Reminder()
' If you put this on the Quick Access Toolbar,
' the shortcut is:
'
' ALT + designated character(s)
'
' Click ALT and release to see the designated character(s)
'
' Use the numbers across the top of the keyboard not the keypad.
Dim objAppt As AppointmentItem
Set objAppt = CreateItem(olAppointmentItem)
objAppt.Subject = "Reminder test"
objAppt.Start = Now + (1 / 24) / 2 ' (1 day / 24 hours)/ 2 = one half hour from now
objAppt.End = Now + (1 / 24) ' (1 day / 24 hours) = one hour from now
objAppt.ReminderSet = True
objAppt.ReminderMinutesBeforeStart = 37 ' whole minutes
objAppt.Sensitivity = olPrivate
objAppt.Display
End Sub