Reference Appointment Item

[specialk9203]

Does anyone know how to reference the default appointment item in Outlook? One that is not a category.

[skatonni]

I suppose you want this.


Sub CreateAppt()
Dim myAppt As AppointmentItem
Set myAppt = Application.CreateItem(olAppointmentItem)
myAppt.Display
End Sub