Creating a New Calendar Item
Sub app() Dim myAppointment As AppointmentItem Set myAppointment = Application.CreateItem(ItemType:=olAppointmentItem) End Sub