RecurrencePattern.DayOfWeekMask-Eigenschaft (Outlook)

Gibt eine OlDaysOfWeek -Konstante zurück (oder legt diese fest), die die Maske für die Wochentage darstellt, an denen die Termin- und Aufgabenserien stattfinden. Lese-/Schreibzugriff.

Syntax

expression. DayOfWeekMask

Ausdruck Eine Variable, die ein RecurrencePattern-Objekt darstellt.

HinwBemerkungeneise

DayOfWeekMask sollte festgelegt werden, nachdem die RecurrenceType -Eigenschaft festgelegt wurde und bevor die PatternEndDate und PatternStartDate Eigenschaften werden festgelegt.

Pro Monat und Jahr Muster sind nur für einen einzelnen Tag. Wöchentliche Muster sind nur als oderDayOfWeekMask gültig.

Beispiel

Visual Basic für Applikationen-Beispiel verwendet GetRecurrencePattern, um das RecurrencePattern -Objekt für das neu erstellte AppointmentItem zu erhalten. Die Eigenschaften RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, Dauer, StartTime, EndTime und Betreff festgelegt sind, wird der Termin gespeichert ist, und klicken Sie dann mit dem Muster angezeigt: "tritt auf, jeden am Montag, Mittwoch und Freitag 7/10/2006 bis 8/25/2006 von 2:00 Uhr bis 15:00 Uhr."

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

Ähnlich wie das letzte Beispiel verwendet Visual Basic für Applikationen-Beispiel auch GetRecurrencePattern, um das RecurrencePattern -Objekt für das neu erstellte AppointmentItem zu erhalten. Die Eigenschaften RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, Dauer, StartTime, EndTime und Betreff festgelegt sind, wird der Termin gespeichert ist, und klicken Sie dann mit dem Muster angezeigt: "tritt auf, jeden am Montag, Dienstag, Mittwoch, Donnerstag und Freitag 7/10/2006 bis 8/4/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

Siehe auch

RecurrencePattern-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.