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

Objeto Table

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.