Items.IncludeRecurrences-Eigenschaft (Outlook)
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.
Hinweise
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
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.