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

Objeto de conversació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.