Outlook) (Conversation.GetTable 方法

會傳回 Table 物件，其中包含代表交談中所有專案的資料列。

語法

expression。 GetTable

表達 代表'Conversation' 物件的變數。

傳回值

包含代表交談中所有項目之列的 Table 物件。

註解

GetTable 方法會傳回 Table，其中以交談的所有項目做為列。 欄的預設集顯示於下表中。

欄	屬性
1	EntryID
2	主旨
3	CreationTime
4	LastModificationTime
5	MessageClass

根據預設，表中的列是依項目的 ConversationIndex 屬性排序。

若要修改預設資料行集，請使用Columns集合物件的Add、Remove或RemoveAll方法。

由這個 GetTable 方法傳回的 Table 物件不包括已移至 [刪除的郵件] 資料夾的交談中項目。

範例

下列 Visual Basic for Applications (VBA) 程式碼範例 DemoConversationTable 假設有一個在偵測器中開啟的訊息項目。 DemoConversationTable 會根據此訊息項目取得 Conversation 物件， 並呼叫 GetTable 方法來取得所有交談專案的 Table 。 若要取得交談中每個可跨越存放區之專案的特定資訊， DemoConversationTable 請將存放區專案識別碼屬性 https://schemas.microsoft.com/mapi/proptag/0x0FFB0102 新增為數據表中的資料行。 當 DemoConversationTable 列舉資料表中資料列) 所代表的每個專案 (時，它會使用對應至該專案的存放區專案 ID 屬性來呼叫NameSpace物件的GetItemFromID方法來取得專案物件。 然後，此範例會顯示該專案的主旨和附件數目。

注意事項

只有在 Outlook 帳戶連線到至少執行 Microsoft Exchange Server 2010 的Microsoft Exchange Server，或 Outlook 在 2007 Microsoft Exchange Server以快取模式執行時，列舉交談才能運作。

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

另請參閱

Conversation 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。