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

Статья
04/07/2023

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

Синтаксис

выражение. DayOfWeekMask

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

Замечания

DayOfWeekMask следует задать после установки свойства RecurrenceType и до установки свойств PatternEndDate и PatternStartDate.

Шаблоны за месяц и год действительны только в течение одного дня. Еженедельные шаблоны действительны только как ordayOfWeekMask.

Пример

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

Sub RecurringAppointmentEveryMondayWednesdayFriday() 
 
 Dim oAppt As AppointmentItem 
 
 Dim oPattern As RecurrencePattern 
 
 Set oAppt = Application.CreateItem(olAppointmentItem) 
 
 Set oPattern = oAppt.GetRecurrencePattern 
 
 With oPattern 
 
 .RecurrenceType = olRecursWeekly 
 
 .DayOfWeekMask = olMonday Or olWednesday Or olFriday 
 
 .PatternStartDate = #7/10/2006# 
 
 .PatternEndDate = #8/25/2006# 
 
 .Duration = 60 
 
 .StartTime = #2:00:00 PM# 
 
 .EndTime = #3:00:00 PM# 
 
 End With 
 
 oAppt.Subject = "Recurring Appointment Monday Wednesday Friday" 
 
 oAppt.Save 
 
 oAppt.Display 
 
End Sub

Как и в предыдущем примере, в этом Visual Basic для приложений примере также используется GetRecurrencePattern для получения объекта RecurrencePattern для созданного объекта AppointmentItem. Свойства RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, Duration, StartTime, EndTime и Subject задаются, встреча сохраняется, а затем отображается с шаблоном : "Происходит каждый понедельник, вторник, среду, четверг и пятницу с 10.07.2006 до 04.08.2006 г.".

Sub RecurringEventEveryWeekday() 
 
 Dim oPattern As Outlook.RecurrencePattern 
 
 Dim oAppt As Outlook.AppointmentItem 
 
 Set oAppt = Application.CreateItem(olAppointmentItem) 
 
 Set oPattern = oAppt.GetRecurrencePattern 
 
 With oPattern 
 
 .RecurrenceType = olRecursWeekly 
 
 .DayOfWeekMask = olMonday Or olTuesday Or olWednesday Or olThursday Or olFriday 
 
 .PatternStartDate = #7/10/2006# 
 
 .PatternEndDate = #8/4/2006# 
 
 .Duration = 1440 'Duration in minutes, for all day event = 24 * 60 
 
 .StartTime = #12:00:00 AM# 
 
 .EndTime = #12:00:00 AM# 
 
 End With 
 
 oAppt.Subject = "Recurring Event Every Weekday" 
 
 oAppt.Save 
 
 oAppt.Display 
 
End Sub

См. также

Объект RecurrencePattern

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

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