Export (0) Print
Expand All

FindNext Method

Office 2003

After the Find method runs, this method finds and returns the next Microsoft Outlook item in the specified collection. The search operation begins from the current position, which matches the expression previously set through the Find method.

expression.FindNext

expression    Required. An expression that returns an Items collection object.

Example

This Visual Basic for Applications (VBA) example uses the GetDefaultFolder method to return the MAPIFolder object that represents the default Calendar folder for the current user. It then uses the Find and FindNext methods to locate all the appointments that occur today and display them in a series of message boxes.

Sub DemoFindNext()
	Dim myOlApp As Outlook.Application
	Dim myNameSpace As Outlook.NameSpace
	Dim tdystart As Date
	Dim tdyend As Date
	Dim myAppointments As Outlook.Items
	Dim currentAppointment As Outlook.AppointmentItem
	Set myOlApp = CreateObject("Outlook.Application")
	Set myNameSpace = myOlApp.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
		


Applies to | Items Object



Show:
© 2015 Microsoft