Propriété RecurrencePattern.DayOfWeekMask (Outlook)
Renvoie ou définit une constante OlDaysOfWeek représentant le masque pour les jours de la semaine où le rendez-vous ou la tâche périodique se produit. Lecture-écriture.
Syntaxe
expression. DayOfWeekMask
Expression Variable qui représente un objet RecurrencePattern .
Remarques
La propriété DayOfWeekMask doit être définie après la propriété RecurrenceType et avant les propriétés PatternEndDate et PatternStartDate.
Les périodicités mensuelles et annuelles ne sont valides que pour un seul jour. Les périodicités hebdomadaires ne sont valides que pour la condition Or de la propriété DayOfWeekMask.
Exemple
Cet exemple Visual Basic pour Applications utilise GetRecurrencePattern pour obtenir l’objet RecurrencePattern pour l’objet AppointmentItem nouvellement créé. Les propriétés RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, Duration, StartTime, EndTime et Subject sont définies, le rendez-vous est enregistré, puis affiché avec le modèle : « Se produit tous les lundis, mercredis et vendredis du 10/07/2006 au 25/08/2006 de 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
Tout comme dans l'exemple précédent, cet exemple de code Visual Basic pour Applications utilise également GetRecurrencePattern pour obtenir l'objet RecurrencePattern pour le nouvel objet AppointmentItem. Les propriétés RecurrenceType, DayOfWeekMask, PatternStartDate, PatternEndDate, Duration, StartTime, EndTime et Subject sont définies, le rendez-vous est enregistré, puis affiché avec le modèle : « Se produit tous les lundis, mardis, mercredis, jeudis et vendredis du 10/07/2006 au 4/8/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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.