Propriété RecurrencePattern.Interval (Outlook)
Renvoie ou définit une valeur Long qui spécifie le nombre d’unités d’un type de périodicité donné entre chaque occurrence. Lecture-écriture.
Syntaxe
expression. Interval
Expression Variable qui représente un objet RecurrencePattern .
Remarques
La propriété Interval doit être définie avant la propriété PatternEndDate.
Par exemple, si vous affectez la valeur 2 à la propriété Interval et la propriété RecurrenceType à olRecursWeekly , le modèle se produit toutes les deux semaines.
Lorsque RecurrenceType a la valeur olRecursYearNth ou olRecursYear, la propriété Interval indique le nombre d’années entre les occurrences. Par exemple, Interval égal à 1 indique que la périodicité est annuelle, Interval égal à 2 indique que la périodicité est bisannuelle, et ainsi de suite.
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, Interval, PatternEndDate et Subject sont définies, le rendez-vous est enregistré, puis affiché avec le modèle : « Se produit toutes les 3 semaines le lundi à compter du 21/01/2003 jusqu’au 21/12/2004 de 14:00 à 17:00 ».
Sub CreateAppointment()
Dim myApptItem As AppointmentItem
Dim myRecurrPatt As RecurrencePattern
Set myApptItem = Application.CreateItem(olAppointmentItem)
Set myRecurrPatt = myApptItem.GetRecurrencePattern
myRecurrPatt.RecurrenceType = olRecursWeekly
myRecurrPatt.DayOfWeekMask = olMonday
myRecurrPatt.PatternStartDate = #1/21/2003 2:00:00 PM#
myRecurrPatt.Interval = 3
myRecurrPatt.PatternEndDate = #12/21/2004 5:00:00 PM#
myApptItem.Subject = "Important Appointment"
myApptItem.Save
myApptItem.Display
Set myOlApp = Nothing
Set myApptItem = Nothing
Set myRecurrPatt = Nothing
End Sub
Voir aussi
Procédure : créer un rendez-vous sous forme de réunion dans le Calendrier
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.