Outlook VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Outlook
  4. Creating a New Calendar Item
Sub app()
    Dim myAppointment As AppointmentItem
    Set myAppointment = Application.CreateItem(ItemType:=olAppointmentItem)
End Sub