Propriété RecurrencePattern.RecurrenceType (Outlook)

Article
04/07/2023

Renvoie ou définit une constante OlRecurrenceType spécifiant la fréquence des occurrences pour le modèle de périodicité. Lecture-écriture.

Syntaxe

expression. RecurrenceType

Expression Variable qui représente un objet RecurrencePattern .

Remarques

Vous devez définir la propriété RecurrenceType avant de définir d’autres propriétés pour un objet RecurrencePattern. Les propriétés RecurrencePattern que vous pouvez définir par la suite dépendent de la valeur de RecurrenceType, comme indiqué dans le tableau suivant :

OlRecurrenceType	Propriétés RecurrencePattern valides
olRecursWeekly	DayOfWeekMask, Duration, EndTime, Interval, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime
olRecursMonthly	DayOfMonth, Duration, EndTime, Interval, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime
olRecursMonthNth	DayOfWeekMask, Duration, EndTime, Interval, Instance, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime
olRecursYearly	DayOfMonth, Duration, EndTime, Interval, MonthOfYear, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime
olRecursYearNth	DayOfWeekMask, Duration, EndTime, Interval, Instance, NoEndDate, Occurrences, PatternStartDate, PatternEndDate, StartTime

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, MonthOfYear, Instance, Occurrences, StartTime, EndTime et Subject sont définies, le rendez-vous est enregistré, puis affiché avec le modèle : « Se produit le premier lundi de juin à compter du 06/01/2007 jusqu’au 6/06/2016 de 14h00 à 17h00 ».

Sub RecurringYearNth() 
 
 Dim oAppt As AppointmentItem 
 
 Dim oPattern As RecurrencePattern 
 
 Set oAppt = Application.CreateItem(olAppointmentItem) 
 
 Set oPattern = oAppt.GetRecurrencePattern 
 
 With oPattern 
 
 .RecurrenceType = olRecursYearNth 
 
 .DayOfWeekMask = olMonday 
 
 .MonthOfYear = 6 
 
 .Instance = 1 
 
 .Occurrences = 10 
 
 .Duration = 180 
 
 .PatternStartDate = #6/1/2007# 
 
 .StartTime = #2:00:00 PM# 
 
 .EndTime = #5:00:00 PM# 
 
 End With 
 
 oAppt.Subject = "Recurring YearNth Appointment" 
 
 oAppt.Save 
 
 oAppt.Display 
 
End Sub

Voir aussi

RecurrencePattern, objet

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.

Partager via