Método Conversation.GetTable (Outlook)
Devuelve un objeto Table que contiene filas que representan a todos los elementos de la conversación.
Sintaxis
expresión. GetTable
Expresión Variable que representa un objeto "Conversation".
Valor devuelto
Un objeto Table que contiene filas que representan todos los elementos de la conversación.
Comentarios
El método GetTable devuelve una tabla que tiene todos los elementos de la conversación como las filas. El conjunto de columnas predeterminado se muestra en la siguiente tabla.
Columna | Propiedad |
---|---|
1 | EntryID |
2 | Subject |
3 | CreationTime |
4 | LastModificationTime |
5 | MessageClass |
De forma predeterminada, las filas de la tabla se ordenan por la propiedad ConversationIndex de los elementos.
Para modificar el conjunto de columnas predeterminado, use los métodos Add, Remove o RemoveAll del objeto de la colección Columns.
El objeto Table devuelto por este método GetTable no incluir los elementos de la conversación que se han movido a la carpeta Elementos eliminados.
Ejemplo:
En el siguiente ejemplo de código de Visual Basic para Aplicaciones (VBA), DemoConversationTable
, se supone que hay un elemento de correo abierto en un inspector. DemoConversationTable
obtiene un objeto Conversation basado en este elemento de correo y llama al método GetTable para obtener una tabla de todos los elementos de conversación. Para obtener información específica para cada elemento de la conversación, que puede abarcar entre almacenes, DemoConversationTable
agrega la propiedad id. de entrada de almacén, https://schemas.microsoft.com/mapi/proptag/0x0FFB0102
, como una columna a la tabla. A medida DemoConversationTable
que enumera cada elemento (representado por una fila) de la tabla, usa la propiedad id. de entrada de almacén que corresponde a ese elemento para llamar al método GetItemFromID del objeto NameSpace para obtener el objeto item. El ejemplo muestra el asunto y la cantidad de datos adjuntos de ese elemento.
Nota:
[!NOTA] La enumeración de la conversación funciona únicamente si la cuenta de Outlook está conectada con Microsoft Exchange Server y ejecuta al menos Microsoft Exchange Server 2010 o si Outlook se está ejecutando en modo en caché con 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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.