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

  • Статья

Возвращает или задает константу 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 и обратная связь.