Items.FindNext-Methode (Outlook)

Nachdem die Find -Methode ausgeführt wurde, wird diese Methode sucht und gibt das nächste Outlook-Element in der angegebenen Auflistung zurück.

Syntax

Ausdruck. Findnext

Ausdruck Eine Variable, die ein Items-Objekt darstellt.

Rückgabewert

Ein Object -Wert, der das nächste Outlook-Element in der Auflistung gefunden darstellt.

HinwBemerkungeneise

Der Suchvorgang beginnt an der aktuellen Position, die den Ausdruck festgelegte über die Find -Methode entspricht.

Die Methode gibt ein Outlook-Element Objekt, wenn der Aufruf erfolgreich ist; Es gibt Null (oder Nothing in Visual Basic) zurück, wenn der Aufruf fehlschlägt.

Beispiel

Visual Basic für Applikationen (VBA) verwendet die GetDefaultFolder -Methode, um das Folder -Objekt zurückzugeben, das den Standardordner Kalender des aktuellen Benutzers darstellt. Anschließend wird die Find - und FindNext -Methoden, um alle Termine zu suchen, die heute auftreten und in einer Reihe von Meldungsfeldern angezeigt werden.

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 
 Set currentAppointment = myAppointments.Find("[Start] >= """ & tdystart & """ and [Start] <= """ & tdyend & """") 
 While TypeName(currentAppointment) <> "Nothing" 
 MsgBox currentAppointment.Subject 
 Set currentAppointment = myAppointments.FindNext 
Wend 
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.