Méthode Conversation.GetTable (Outlook)
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
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.