Sub app() Dim myAppointment As AppointmentItem Set myAppointment = Application.CreateItem(ItemType:=olAppointmentItem) End Sub