Items.IncludeRecurrences-Eigenschaft (Outlook)

Artikel
04/07/2023

Gibt einen Wert vom Typ Boolean, der True angibt, ob die Items -Auflistung Serienmuster enthalten soll. Lese-/Schreibzugriff.

Syntax

Ausdruck. IncludeRecurrences

Ausdruck Eine Variable, die ein Items-Objekt darstellt.

HinwBemerkungeneise

Diese Eigenschaft wird nur wirksam, wenn die Items -Auflistung Termine enthält und nicht nach einer anderen Eigenschaft als Start in aufsteigender Reihenfolge sortiert ist. Der Standardwert ist False. Verwenden Sie diese Eigenschaft, wenn Sie alle Termine für ein bestimmtes Datum abrufen möchten, auf dem würde Terminserien normalerweise nicht angezeigt werden, da sie nicht mit einem bestimmten Datum verknüpft sind. Wenn Sie müssen zum Sortieren und Filtern auf Terminelemente Termine, die Terminserien enthalten, müssen Sie dazu in der angegebenen Reihenfolge: die Elemente in aufsteigender Reihenfolge sortiert, IncludeRecurrences auf True festgelegt und dann die Elemente filtern. Ein Codebeispiel mit dieser Reihenfolge finden Sie im zweite Beispiel unten. Die Auflistung Terminserien ohne Enddatum enthält, kann die Eigenschaft auf True festlegen die Auflistung, das unendlich viele verursachen. Achten Sie darauf, dass Sie einen Test für dieses in jeder Schleife enthalten. Sie sollten nicht Count -Eigenschaft der Items -Auflistung verwenden, wenn Sie die Items -Auflistung mit IncludeRecurrence -Eigenschaft auf True festgelegt. Der Wert von Count wird ein nicht definierter Wert sein.

Achtung

Das Filtern nach einer sortierten Liste von Vorkommen führt dazu, dass die IncludeRecurrences-Eigenschaft nicht wie erwartet funktioniert. Die folgende Sequenz gibt beispielsweise alle Terminereignisse zurück. recurring and non-recurring(1) Sort by Start property (2) Set property to False (3) call Restrict (d.h. filter).

Beispiel

Im folgenden Beispiel für Visual Basic für Applikationen (VBA) wird der Betreff der Termine, einschließlich wiederkehrender Termine, angezeigt, die von heute bis morgen stattfinden.

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

Im nachfolgenden Beispiel wird gezeigt, in welcher Reihenfolge Termine sortiert und gefiltert werden sollen, die Terminserien enthalten.

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

Siehe auch

Items-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via