Método Folder.GetTable (Outlook)

Obtém um objeto Tabela que contém itens filtrados por Filtro.

Sintaxe

expression. GetTable( _Filter_ , _TableContents_ )

expressão Uma variável que representa um objeto "Pasta".

Parâmetros

Valor de retorno

Um objeto Table que contém itens no objeto Folder pai que satisfaz os critérios em Filter. Por padrão, TableContents é olUserItems e o objeto Table retornado contém somente os itens filtrados que não estão ocultos.

Comentários

Se Filter for uma cadeia em branco ou o parâmetro Filter for omitido, GetTable devolve uma Tabela com linhas que representam todos os itens na Pasta. Se Filter for uma cadeia em branco ou o parâmetro Filter for omitido e TableContents for olHiddenItems, GetTable devolve uma Tabela com linhas que representam todos os itens ocultos na Pasta.

Para obter mais informações sobre filtros, veja Filtrar Itens e Referenciar Propriedades por Espaço de Nomes.

GetTable retorna uma tabela com a coluna padrão definido para o tipo de pasta da pasta pai. Para modificar o conjunto de coluna padrão, use os métodos Add, Remove ou RemoveAll do objeto da coleção Columns. Quando TableContents é olHiddenItems, o conjunto de colunas predefinido é sempre a coluna predefinida definida para uma pasta de correio, embora a Pasta principal possa ser, por exemplo, uma pasta Contactos. Para obter mais informações sobre conjuntos de colunas padrão, consulte Propriedades padrão exibidas em um objeto Table.

Utilize Table.Restrict para aplicar filtros subsequentes a uma Tabela baseada no objeto Pasta .

Exemplo

O exemplo de código a seguir ilustra como usar GetTable para obter um objeto Table com base no LastModificationTime dos itens na caixa de entrada. Em seguida, ele enumera e imprime os valores de algumas propriedades padrão desses itens.

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 May 1, 2005  
    Filter = "[LastModificationTime] > '5/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("Subject"))  
        Debug.Print (oRow("LastModificationTime"))  
    Loop  
End Sub

Confira também

Objeto Folder

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.