Dacă creați sau primiți multe elemente de calendar, este posibil să puteți economisi timp sau simplifica programarea utilizând VBA. Următoarele secțiuni vă arată să creați un element de calendar și să lucrați cu conținutul acestuia.

Crearea unui element de calendar nou

Pentru a crea un element de calendar nou, utilizați metoda Createltem a obiectului Application și specificați olAppointmentltem pentru argumentul ItemType. Următorul exemplu creează o variabilă de obiect Appointmentltem denumită myAppointment și îi atribuie un element de rezervare nou:

Dim myAppointment As Appointmentltem

Set myAppointment = Application.CreateItem(ItemType:=olAppointmentItem)

Lucrul cu conținutul unui element din calendar

Pentru a lucra cu conținutul unui element de calendar, setați sau obțineți proprietățile corespunzătoare. Acestea sunt proprietățile cele mai utilizate:

• Subject este subiectul întâlnirii.
• Body este textul corpului pentru întâlnire.
• Start este ora de începere a întâlnirii.
• End este ora de încheiere a întâlnirii.
• BusyStatus este starea dumneavoastră în timpul întâlnirii: olBusy, olFree, olOutOfOffice sau olTentative.
• Categories represintă categoria sau categoriile atribuite elementului.
• ReminderSet determină dacă întâlnirea are o alarmă de atenționare (True) sau nu (False).
• ReminderMinutesBeforeStart este numărul de minute înainte de eveniment la care se declanșează atenționarea.

Următorul exemplu creează un nou obiect AppointmentItem și îl atribuie variabilei obiect myAppointment. Apoi stabilește subiectul, corpul, data de începere (2:30~PM la șapte zile de la data creării) și data de încheiere (o oră după începere); marchează timpul ca fiind ocupat; îi atribuie categoria Personal; stabilește o atenționare cu 30 de minute înainte de numire; și salvează programarea:

Dim myAppointment As AppointmentItem

Set myAppointment = Application.CreateItem(ItemType:=olAppointmentItem)

With myAppointment

  .Subject = "Dentist"

  .Body = "Dr. Smith " & vbCr & "4436 Acacia Blvd."

  .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

Obiectul AppointmentItem are 71 de proprietăți. Dacă doriți să explorați mai multe dintre ele, aruncați o privire pe pagina web MSDN:

http://msdn.microsoft.com/en-us/library/office/jj900814.aspx