Método Items.FindNext (Outlook)

Después de ejecuta el método Find, este método busca y devuelve el siguiente elemento de Outlook en la colección especificada.

Sintaxis

expresión. Findnext

Expresión Variable que representa un objeto Items .

Valor devuelto

Un valor de Object que representa el siguiente elemento de Outlook que se encuentra en la colección.

Comentarios

La operación de búsqueda comienza desde la posición actual, que coincide con la expresión establecida previamente mediante el método Find.

El método devuelve un elemento de Outlook objeto si la llamada se realiza correctamente; Devuelve Null (o Nothing en Visual Basic) si se produce un error.

Ejemplo:

En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el método GetDefaultFolder para devolver el objeto Folder que representa la carpeta calendario predeterminada del usuario actual. Después usa los métodos Find y FindNext para buscar todas las citas que se producen hoy y mostrarlos en una serie de cuadros de mensaje.

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

Consulte también

Objeto Items

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.