Méthode Conversation.GetTable (Outlook)

  • Article

Renvoie un objet Table qui contient des lignes qui représentent tous les éléments de la conversation.

Syntaxe

expression. GetTable

Expression Variable qui représente un objet « Conversation ».

Valeur renvoyée

Objet Table qui contient les lignes représentant tous les éléments de la conversation.

Remarques

La méthode GetTable renvoie une Table contenant tous les éléments de la conversation sous forme de lignes. L’ensemble de colonnes par défaut est présenté dans le tableau suivant.

Colonne Propriété
1 EntryID
2 Sujet
3 CreationTime
4 LastModificationTime
5 MessageClass

Par défaut, les lignes du tableau sont triées selon la propriété ConversationIndex des éléments.

Pour modifier le jeu de colonnes par défaut, utilisez les méthodes Add, Remove ou RemoveAll de l’objet de collection Columns .

L’objet Table renvoyé par la méthode GetTable n’inclut pas les éléments de conversation qui ont été déplacés vers le dossier Éléments supprimés.

Exemple

L’exemple de code Visual Basic pour Applications (VBA) suivant, DemoConversationTable, suppose qu’un élément de courrier est ouvert dans un inspecteur. DemoConversationTable obtient un objet Conversation basé sur cet élément de courrier et appelle la méthode GetTable pour obtenir une table de tous les éléments de conversation. Pour obtenir des informations spécifiques pour chaque élément de la conversation, qui peuvent s’étendre sur plusieurs magasins, DemoConversationTable ajoute la propriété d’ID d’entrée de magasin, https://schemas.microsoft.com/mapi/proptag/0x0FFB0102, en tant que colonne à la table. Comme DemoConversationTable énumère chaque élément (représenté par une ligne) dans la table, il utilise la propriété d’ID d’entrée de magasin qui correspond à cet élément pour appeler la méthode GetItemFromID de l’objet NameSpace afin d’obtenir l’objet item. L’exemple affiche ensuite l’objet et le nombre de pièces jointes de cet élément.

Remarque

L’énumération de la conversation fonctionne uniquement si le compte Outlook est connecté à un Microsoft Exchange Server qui s’exécute au moins Microsoft Exchange Server 2010, ou si Outlook s’exécute en mode mis en cache par rapport à 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

Voir aussi

Conversation, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.