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

Создание повторяющейся встречи, которая происходит каждые 2 года

  • Статья

В этом разделе показан пример кода Visual Basic для приложений (VBA), который создает встречу, которая происходит в следующем шаблоне:

  • Начинается в 14:00 и заканчивается в 17:00

  • Происходит в последний понедельник июня.

  • Происходит каждый год для трех экземпляров.

  • Вступает в силу 1 июня 2009 г.

Пример кода приводит к повторяющейся встрече с 14:00 до 17:00 в последний понедельник июня 2009 года (29 июня 2009 г.), 2011 (27 июня 2011 г.) и 2013 г. (24 июня 2013 г.). Встреча сохраняется в календаре по умолчанию, а затем отображается.

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

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

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