Свойство Table.EndOfTable (Outlook)

Статья
04/07/2023

Возвращает логическое значение, указывающее, располагается ли текущая строка после последней строки в объекте Table . Только для чтения.

Синтаксис

выражение. EndOfTable

Выражение Переменная, представляющая объект Table .

Замечания

При открытии таблицы с помощью Folder.GetTable, Search.GetTable или Table.Restrict значение EndOfTable зависит от количества строк в таблице. Если строк нет, EndOfTable возвращает значение True. Если есть строки, EndOfTable возвращает значение False , пока курсор не перейдет за пределы последней строки в таблице.

Таблица содержит две виртуальные строки NULL: одна перед первой строкой и одна после последней строки в таблице. Каждый вызов Table.GetNextRow перемещает текущую строку в следующую строку в таблице и возвращает объект Row , представляющий текущую строку.

Свойство EndOfTable возвращает значение True , если текущая строка находится после последней строки, и Значение False , если текущая строка находится в последней строке или до нее.

Пример

В следующем примере кода фильтр Jet применяется к элементам в папке "Входящие", чтобы получить таблицу элементов, у которых значение LastModificationTime больше 1 ноября 2005 г. Затем он использует свойство EndOfTable для перечисления элементов в таблице и вывода значений свойств по умолчанию для каждого элемента в таблице.

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

См. также

Объект Table

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через