VBA/Excel/Access/Word/Outlook/Outlook Calendar
Версия от 19:33, 26 мая 2010; (обсуждение)
Creating a New Calendar Item
<source lang="vb">
Sub app()
Dim myAppointment As AppointmentItem Set myAppointment = Application.CreateItem(ItemType:=olAppointmentItem)
End Sub
</source>
Working with the Contents of a Calendar Item
<source lang="vb">
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
</source>