Table.EndOfTable Property

  • Article
Outlook Developer Reference

Returns a Boolean that indicates whether the current row is positioned after the last row in the Table object. Read-only.

Version Information
 Version Added:  Outlook 2007

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.

Visual Basic for Applications 
  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.<strong>EndOfTable</strong>)
    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