Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie un objet Table qui contient des lignes représentant 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 | Subject |
| 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 l’ensemble 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 de conversation basé sur cet élément de courrier et appelle la méthode GetTable pour obtenir un tableau de tous les éléments de conversation. Pour obtenir des informations spécifiques sur chaque élément de la conversation, qui peuvent s’étendre sur plusieurs magasins, DemoConversationTable ajoute la propriété ID d’entrée de magasin, https://schemas.microsoft.com/mapi/proptag/0x0FFB0102, sous la forme d’une colonne à la table. Au fur et à mesure qu’énumère DemoConversationTable chaque élément (représenté par une ligne) dans la table, il utilise la propriété 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 des conversations 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 sur 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.