VBA/Excel/Access/Word/Outlook/Outlook Calendar

Creating a New Calendar Item

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

Working with the Contents of a Calendar Item

 
Property 
Sub appopint()
    Dim myAppointment As AppointmentItem
    Set myAppointment = Application.CreateItem(ItemType:=olAppointmentItem)
    With myAppointment
        .Subject = "your email"
        .Body = "body."
        .Start = Str(Date + 7) & " 2.30 PM"
        .End = Str(Date + 7) & " 3.30 PM"
        .BusyStatus = olBusy
        .Categories = "Personal"
        .ReminderMinutesBeforeStart = 30
        .ReminderSet = True
        .Save
    End With
End Sub