|
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
|