Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

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