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
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.