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

Материал из VB Эксперт
Перейти к: навигация, поиск

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>