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.
Syntax
expression. EndOfTable
expression A variable that represents a Table object.
Remarks
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.
Example
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
See also
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.