Working with the Contents of a Calendar Item : Outlook Calendar « Outlook « VBA / Excel / Access / Word






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

 








Related examples in the same category

1.Creating a New Calendar Item