Свойство RecurrencePattern.RecurrenceType (Outlook)

Статья
04/07/2023

Возвращает или задает константу OlRecurrenceType , указывающую частоту вхождений для шаблона повторения. Для чтения и записи.

Синтаксис

выражение. RecurrenceType

Выражение Переменная, представляющая объект RecurrencePattern .

Замечания

Необходимо задать свойство RecurrenceType перед заданием других свойств для объекта RecurrencePattern . Свойства RecurrencePattern , которые можно задать впоследствии, зависят от значения RecurrenceType, как показано в следующей таблице:

OlRecurrenceType	Допустимые свойства RecurrencePattern
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

Пример

В этом Visual Basic для приложений примере используется GetRecurrencePattern для получения объекта RecurrencePattern для созданного элемента AppointmentItem. Свойства RecurrenceType, DayOfWeekMask, MonthOfYear, Instance, Occurrences, StartTime, EndTime и Subject задаются, встреча сохраняется, а затем отображается с шаблоном : "Происходит с первого понедельника июня с 16.00 06.2007 по 6.06.2016 с 14:00 до 17:00".

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

См. также

Объект RecurrencePattern

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через