Objeto Table (Outlook)
Representa um conjunto de dados de item de um objeto Folder ou Search, com itens como linhas da tabela e propriedades como colunas.
Tabela representa um rowset dinâmico somente leitura de dados em um objeto Folder ou Search. Use Folder.GetTable ou Search.GetTable para obter um objeto Table que representa um conjunto de itens em uma pasta ou pasta de pesquisa. Se o objeto Table for obtido por Folder.GetTable, você poderá ampliar a especificação do filtro (em Table.Restrict) para obter um subconjunto de itens na pasta. Se você não especificar nenhum filtro, obterá todos os itens da pasta.
Por padrão, cada item na tabela retornada contém apenas um subconjunto de padrão de suas propriedades. Você pode considerar cada linha de uma tabela como um item na pasta, cada coluna como uma propriedade do item e a tabela como um rowset leve de na memória que permite a enumeração fast e filtragem de itens na pasta. Embora as adições e exclusões da pasta base serão refletidas pelas linhas na tabela, a tabela não suporta todos os eventos para adicionar, alterar e remoção de linhas. Se precisar de um objeto gravável da linha da tabela, obter o ID de entrada dessa linha do padrão EntryID coluna da tabela e use o método GetItemFromID do objeto NameSpace para obter um item completo, como MailItem ou ContactItem, que suporta operações de leitura / gravação. Para obter mais informações sobre colunas padrão em um Table, consulte Propriedades padrão exibidas em um objeto Table.
Para obter mais informações sobre o objeto Table, consulte Enumerando, pesquisando e filtrando itens em uma pasta.
O exemplo a seguir ilustra como o objeto Table pode retornar um conjunto filtrado de itens com base em sua propriedade LastModificationTime. Ele também mostra como listar propriedades padrão, bem como propriedades específicas dos 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)
'Remove all columns in the default column set
oTable.Columns.RemoveAll
'Specify desired properties
With oTable.Columns
.Add ("Subject")
.Add ("LastModificationTime")
'PR_ATTR_HIDDEN referenced by the MAPI proptag namespace
.Add ("http://schemas.microsoft.com/mapi/proptag/0x10F4000B")
End With
'Enumerate the table using test for EndOfTable
Do Until (oTable.EndOfTable)
Set oRow = oTable.GetNextRow()
Debug.Print (oRow("Subject"))
Debug.Print (oRow("LastModificationTime"))
Debug.Print (oRow("http://schemas.microsoft.com/mapi/proptag/0x10F4000B"))
Loop
End Sub
Referência de modelo de objetooutlook membros do objeto do Table Object
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.