Items.IncludeRecurrences, propriété (Outlook)

Retourne une valeur booléenne qui indique True si la collection Items doit inclure des modèles de périodicité. Lecture-écriture.

Syntaxe

expression. IncludeRecurrences

Expression Variable qui représente un objet Items .

Remarques

Cette propriété a un effet uniquement si la collection Items contient des rendez-vous et n’est triée par aucune propriété autre que Start dans l’ordre croissant. La valeur par défaut est False. Utilisez cette propriété lorsque vous souhaitez récupérer tous les rendez-vous pour une date donnée, où normalement les rendez-vous périodiques ne figureraient pas car ils ne sont pas associés à une date spécifique. Si vous devez trier et filtrer des éléments de rendez-vous qui contiennent des rendez-vous périodiques, vous devez procéder dans cet ordre : triez les éléments par ordre croissant, attribuez à IncludeRecurrences la valeur True, puis filtrez les éléments. Pour un exemple illustrant cet ordre, voir l’exemple ci-dessous. Si la collection comporte des rendez-vous périodiques sans date de fin et que cette propriété a la valeur True, la collection obtenue risque d’être infinie. Pensez à bien tester cette condition dans les boucles. Il est conseillé de ne pas utiliser la propriété Count de la collection Items lorsque vous procédez à une itération de la collection Items alors que la propriété IncludeRecurrence a la valeur True. La valeur de Count sera indéfinie.

Attention

Le filtrage sur une liste triée d’occurrences entraîne le non-fonctionnement de la propriété IncludeRecurrences comme prévu. Par exemple, la séquence suivante retourne toutes les occurrences de rendez-vous ; périodiques et non récurrents : (1) Trier par propriété Start (2) Définir la propriété sur False (3) appeler Restrict (c’est-à-dire filtrer).

Exemple

L'exemple de code Visual Basic pour Applications (VBA) montre comment afficher l'objet d'un rendez-vous prévu entre aujourd'hui et demain, y compris pour les rendez-vous périodiques.

Sub DemoFindNext() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim tdystart As Date 
 
 Dim tdyend As Date 
 
 Dim myAppointments As Outlook.Items 
 
 Dim currentAppointment As Outlook.AppointmentItem 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 tdystart = VBA.Format(Now, "Short Date") 
 
 tdyend = VBA.Format(Now + 1, "Short Date") 
 
 Set myAppointments = myNameSpace.GetDefaultFolder(olFolderCalendar).Items 
 
 myAppointments.Sort "[Start]" 
 
 myAppointments.IncludeRecurrences = True 
 
 Set currentAppointment = myAppointments.Find("[Start] >= """ & _ 
 
 tdystart & """ and [Start] <= """ & tdyend & """") 
 
 While TypeName(currentAppointment) <> "Nothing" 
 
 MsgBox currentAppointment.Subject 
 
 Set currentAppointment = myAppointments.FindNext 
 
 Wend 
 
End Sub

L’exemple ci-dessous montre l’ordre de tri et de filtrage des éléments de rendez-vous qui contiennent des rendez-vous périodiques.

Sub SortAndFilterAppointments() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myAppointments As Outlook.Items 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set calendarItems = myNameSpace.GetDefaultFolder(olFolderCalendar).Items 
 
 calendarItems.Sort "[Start]" 
 
 calendarItems.IncludeRecurrences = True 
 
 Set restrictedItems = calendarItems.Restrict("[Organizer]='Dan Wilson'") 
 
End Sub

Voir aussi

Éléments, 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.