Propiedad Table.EndOfTable (Outlook)
Devuelve un valor Boolean que indica si la fila actual se sitúa después de la última fila del objeto Table. Solo lectura.
Sintaxis
expresión. EndOfTable
Expresión Variable que representa un objeto Table .
Comentarios
Cuando se abre una tabla mediante Folder.GetTable, Search.GetTable o Table.Restrict, el valor de EndOfTable depende del número de filas de la tabla. Si no hay ninguna fila, EndOfTable devuelve True. Si hay filas, EndOfTable devuelve False hasta que el cursor se mueve más allá de la última fila de la Table.
La tabla tiene dos filas virtuales Null, una antes de la primera fila y otra después de la última fila de la tabla. Cada llamada a Table.GetNextRow mueve la fila actual a la fila siguiente en la tabla y devuelve un objeto Row que representa la fila actual.
La propiedad EndOfTable devuelve True si la fila actual está después de la última fila y False si la fila actual es igual o anterior a la última fila.
Ejemplo:
El ejemplo de código siguiente aplica un filtro Jet en elementos de la Bandeja de entrada para obtener una tabla de los elementos que tienen una propiedad LastModificationTime es mayor que 1 de noviembre de 2005. A continuación, se utiliza la propiedad EndOfTable para enumerar los elementos de la tabla e imprimir los valores de las propiedades predeterminadas de cada elemento de la tabla.
Sub DemoTable()
'Declarations
Dim Filter As String
Dim oRow As Outlook.Row
Dim oTable As Outlook.Table
Dim oFolder As Outlook.Folder
'Get a Folder object for the Inbox
Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox)
'Define Filter to obtain items last modified after November 1, 2005
Filter = "[LastModificationTime] > '11/1/2005'"
'Restrict with Filter
Set oTable = oFolder.GetTable(Filter)
'Enumerate the table using test for EndOfTable
Do Until (oTable.EndOfTable)
Set oRow = oTable.GetNextRow()
Debug.Print (oRow("EntryID"))
Debug.Print (oRow("Subject"))
Debug.Print (oRow("CreationTime"))
Debug.Print (oRow("LastModificationTime"))
Debug.Print (oRow("MessageClass"))
Loop
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.