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

Статья
04/07/2023

Возвращает или задает значение Long , указывающее количество единиц заданного типа повторения между вхождениями. Для чтения и записи.

Синтаксис

выражение. Interval

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

Замечания

Перед настройкой PatternEndDate необходимо задать свойство Interval.

Например, если задать для свойства Interval значение 2, а для свойства RecurrenceType — значение olRecursWeekly , шаблон будет возникать каждую вторую неделю.

Если параметр RecurrenceType имеет значение olRecursYearNth или olRecursYear, свойство Interval указывает количество лет между вхождениями. Например, интервал равен 1, указывает, что повторение имеет значение каждый год, интервал равен 2 , означает, что повторение — каждые 2 года и т. д.

Пример

В этом Visual Basic для приложений примере используется GetRecurrencePattern для получения объекта RecurrencePattern для созданного элемента AppointmentItem. Свойства RecurrenceType, DayOfWeekMask, PatternStartDate, Interval, PatternEndDate и Subject задаются, встреча сохраняется, а затем отображается с шаблоном: "Происходит каждые 3 недели в понедельник с 21.01.2003 по 21.01.2004 г. с 14:00 до 17:00".

Sub CreateAppointment() 
 
 Dim myApptItem As AppointmentItem 
 
 Dim myRecurrPatt As RecurrencePattern 
 
 
 
 
 
 Set myApptItem = Application.CreateItem(olAppointmentItem) 
 
 Set myRecurrPatt = myApptItem.GetRecurrencePattern 
 
 myRecurrPatt.RecurrenceType = olRecursWeekly 
 
 myRecurrPatt.DayOfWeekMask = olMonday 
 
 myRecurrPatt.PatternStartDate = #1/21/2003 2:00:00 PM# 
 
 myRecurrPatt.Interval = 3 
 
 myRecurrPatt.PatternEndDate = #12/21/2004 5:00:00 PM# 
 
 myApptItem.Subject = "Important Appointment" 
 
 myApptItem.Save 
 
 myApptItem.Display 
 
 Set myOlApp = Nothing 
 
 Set myApptItem = Nothing 
 
 Set myRecurrPatt = Nothing 
 
End Sub

См. также

Объект RecurrencePattern

How to: Create an Appointment as a Meeting on the Calendar

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

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

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