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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour