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. SuchenWeiter
Ausdruck Eine Variable, die ein Items-Objekt darstellt.
Rückgabewert
Ein Object -Wert, der das nächste Outlook-Element in der Auflistung gefunden darstellt.
Hinweise
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
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.