RecurrencePattern.RecurrenceType-Eigenschaft (Outlook)

Gibt eine OlRecurrenceType-Konstante zurück, die die Häufigkeit der Vorkommen für das Serienmuster angibt, oder legt sie fest. Lese-/Schreibzugriff.

Syntax

expression. RecurrenceType

Ausdruck Eine Variable, die ein RecurrencePattern-Objekt darstellt.

HinwBemerkungeneise

Sie müssen die RecurrenceType-Eigenschaft festlegen, bevor Sie andere Eigenschaften für ein RecurrencePattern-Objekt festlegen. Die RecurrencePattern -Eigenschaften, die Sie nacheinander festlegen können, hängen vom Wert von RecurrenceType ab, wie in der folgenden Tabelle dargestellt wird:

OlRecurrenceType	Gültige RecurrencePattern-Eigenschaften
olRecursWeekly	DayOfWeekMask, Duration, EndTime, Interval, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime
olRecursMonthly	DayOfMonth, Duration, EndTime, Interval, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime
olRecursMonthNth	DayOfWeekMask, Duration, EndTime, Interval, Instance, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime
olRecursYearly	DayOfMonth, Duration, EndTime, Interval, MonthOfYear, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime
olRecursYearNth	DayOfWeekMask, Duration, EndTime, Interval, Instance, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime

Beispiel

Visual Basic für Applikationen-Beispiel verwendet GetRecurrencePattern, um das RecurrencePattern -Objekt für das neu erstellte AppointmentItem zu erhalten. Die Eigenschaften RecurrenceType, DayOfWeekMask, MonthOfYear, Instance, Occurrences, StartTime, EndTime und Subject werden festgelegt, der Termin wird gespeichert und dann mit dem Muster angezeigt: "Tritt am ersten Montag im Juni mit Wirkung vom 01.06.2007 bis 6.06.2016 von 14:00 bis 17:00 Uhr."

Sub RecurringYearNth() 
 
 Dim oAppt As AppointmentItem 
 
 Dim oPattern As RecurrencePattern 
 
 Set oAppt = Application.CreateItem(olAppointmentItem) 
 
 Set oPattern = oAppt.GetRecurrencePattern 
 
 With oPattern 
 
 .RecurrenceType = olRecursYearNth 
 
 .DayOfWeekMask = olMonday 
 
 .MonthOfYear = 6 
 
 .Instance = 1 
 
 .Occurrences = 10 
 
 .Duration = 180 
 
 .PatternStartDate = #6/1/2007# 
 
 .StartTime = #2:00:00 PM# 
 
 .EndTime = #5:00:00 PM# 
 
 End With 
 
 oAppt.Subject = "Recurring YearNth Appointment" 
 
 oAppt.Save 
 
 oAppt.Display 
 
End Sub

Siehe auch

RecurrencePattern-Objekt

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.