Partilhar via

Propriedade Table.EndOfTable (Outlook)

  • Artigo

Retorna um Boolean que indica se a linha atual é posicionada após a última linha no objeto Table. Somente leitura.

Sintaxe

expression. EndOfTable

Expressão Uma variável que representa um objeto Table .

Comentários

Quando você abre uma tabela usando Folder. GetTable, Search. GetTable ou Restrict, o valor da EndOfTable depende do número de linhas da tabela. Se não houver nenhuma linha, EndOfTable retornará True. Se houver linhas, EndOfTable retornará False até que o cursor move além do Tablea última linha.

A tabela tem duas linhas virtual Nulo, um antes da primeira linha e um depois da última linha da tabela. Cada chamada a Table. GetNextRow move a linha atual para a próxima linha da tabela e retorna um objeto Row que representa a linha atual.

A propriedade EndOfTable retorna True se a linha atual estiver depois da última linha e False se a linha atual estiver no ou antes da última linha.

Exemplo

O exemplo de código a seguir aplica um filtro Jet em itens da caixa de entrada para obter uma tabela de itens que tenham um LastModificationTime maior que 1 de novembro de 2005. Ele usa a propriedade EndOfTable para enumerar os itens na tabela e imprimir os valores das propriedades padrão de cada item na tabela.

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

Confira também

Objeto Table

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.