Método Conversation.GetTable (Outlook)
Retorna um objeto Table que contém linhas que representam todos os itens da conversa.
Sintaxe
expression. GetTable
Expressão Uma variável que representa um objeto 'Conversation'.
Valor de retorno
Um objeto Table que contém linhas que representam todos os itens na conversa.
Comentários
O método GetTable retorna uma tabela que tem todos os itens da conversa como as linhas. O conjunto de colunas padrão é mostrado na tabela a seguir.
| Coluna | Propriedade |
|---|---|
| 1 | EntryID |
| 2 | Subject |
| 3 | CreationTime |
| 4 | LastModificationTime |
| 5 | MessageClass |
Por padrão, as linhas da tabela são classificadas pela propriedade ConversationIndex dos itens.
Para modificar o conjunto de colunas padrão, use o método Add, Remove ou RemoveAll do objeto da coleção Columns.
O objeto Table retornado por esse método GetTable não inclui itens da conversa que tiverem sido movidas para a pasta Itens excluídos.
Exemplo
O seguinte exemplo DemoConversationTablede código Visual Basic for Applications (VBA), assume que há um item de email aberto em um inspetor. DemoConversationTable obtém um objeto Conversation com base nesse item de email e chama o método GetTable para fazer uma tabela de todos os itens da conversa. Para obter informações específicas para cada item da conversa, que pode abranger entre as lojas, DemoConversationTable adiciona a propriedade de ID de entrada do repositório, https://schemas.microsoft.com/mapi/proptag/0x0FFB0102, como uma coluna à tabela. Como DemoConversationTable enumera cada item (representado por uma linha) na tabela, ele usa a propriedade de ID de entrada do repositório que corresponde ao item e chame o método GetItemFromID do objeto NameSpace para obter o objeto de item. O exemplo, em seguida, exibe o assunto e o número de anexos para esse item.
Observação
[!OBSERVAçãO] A enumeração da conversa só funcionará se a conta do Outlook estiver conectada a um Microsoft Exchange Server que esteja executando pelo menos o Microsoft Exchange Server 2010 ou se o Outlook estiver sendo executado em modo armazenado em cache no Microsoft Exchange Server 2007.
Sub DemoConversationTable()
Dim oConv As Outlook.Conversation
Dim oTable As Outlook.Table
Dim oRow As Outlook.Row
Dim oMail As Outlook.MailItem
Dim oItem As Outlook.MailItem
Const PR_STORE_ENTRYID As String = _
"https://schemas.microsoft.com/mapi/proptag/0x0FFB0102"
On Error Resume Next
' Obtain the current item for the active inspector.
Set oMail = Application.ActiveInspector.CurrentItem
If Not (oMail Is Nothing) Then
' Obtain the Conversation object.
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
Set oTable = oConv.GetTable
oTable.Columns.Add (PR_STORE_ENTRYID)
Do Until oTable.EndOfTable
Set oRow = oTable.GetNextRow
' Use EntryID and StoreID to open the item.
Set oItem = Application.session.GetItemFromID( _
oRow("EntryID"), _
oRow.BinaryToString(PR_STORE_ENTRYID))
Debug.Print oItem.Subject, _
"Attachments.Count=" & oItem.Attachments.count
Loop
End If
End If
End Sub
Confira também
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.