Table.EndOfTable property (Outlook)
Returns a Boolean that indicates whether the current row is positioned after the last row in the Table object. Read-only.
expression A variable that represents a Table object.
When you open a Table using Folder.GetTable, Search.GetTable, or Table.Restrict, the value of EndOfTable depends on the number of rows in the Table. If there are no rows, EndOfTable returns True. If there are rows, EndOfTable returns False until the cursor moves beyond the last row in the Table.
The Table has two virtual Null rows, one before the first row and one after the last row in the Table. Each call to Table.GetNextRow moves the current row to the next row in the Table and returns a Row object that represents the current row.
The EndOfTable property returns True if the current row is after the last row and False if the current row is on or before the last row.
The following code sample applies a Jet filter on items in the Inbox to obtain a Table of items that have a LastModificationTime greater than November 1, 2005. It then uses the EndOfTable property to enumerate the items in the Table and print the values of the default properties for each item in the Table.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.