Freigeben über

Erstellen einer Terminserie, die alle 2 Jahre stattfindet

  • Artikel

Dieses Thema enthält ein VBA-Codebeispiel, mit dem eine Terminserie mit dem folgenden Muster erstellt wird:

  • Beginnt um 14 Uhr und endet um 17 Uhr

  • Tritt am letzten Montag im Juni auf

  • Tritt alle zwei Jahre und insgesamt 3 Mal auf

  • Gilt ab dem 1. Juni 2009

Das Codebeispiel führt zu einer Terminserie von 14 bis 17 Uhr, am letzten Montag im Juni 2009 (29. Juni 2009), 2011 (27. Juni 2011) und 2013 (24. Juni 2013). Der Termin wird im Standardkalender gespeichert und dann angezeigt.

Sub RecurringYearNth() 
 Dim oAppt As AppointmentItem 
 Dim oPattern As RecurrencePattern 
 Set oAppt = Application.CreateItem(olAppointmentItem) 
 Set oPattern = oAppt.GetRecurrencePattern 
 With oPattern 
 ' Appointment occurs every n-th year (with n indicated by the Interval property). 
 .RecurrenceType = olRecursYearNth 
 ' Appointment occurs on Monday. 
 .DayOfWeekMask = olMonday 
 ' Appointment occurs in June. 
 .MonthOfYear = 6 
 ' Appointment occurs on the 5th or last Monday (per the DayOfWeekMask property). 
 .Instance = 5 
 ' Appointment occurs three times. 
 .Occurrences = 3 
 ' Appointment lasts for 180 minutes each time. 
 .Duration = 180 
 ' Appointment becomes effective on June 1, 2009. 
 .PatternStartDate = #6/1/2009# 
 ' Appointment starts at 2 P.M. 
 .StartTime = #2:00:00 PM# 
 ' Appointment ends at 5 P.M. 
 .EndTime = #5:00:00 PM# 
 ' Appointment recurs every 2 years (per a RecurrenceType of olRecursYearNth). 
 .Interval = 2 
 End With 
 oAppt.Subject = "Recurring every 2 years YearNth Appointment" 
 oAppt.Save 
 oAppt.Display 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.