Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Creating a New Calendar Item

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