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
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.