篩選並有效率地列舉資料夾中的專案
此範例示範如何使用 Table 物件來篩選 [收件匣] 中具有附件的專案，並有效率地列舉這類項目，顯示每個項目的選取屬性。
範例
程式代碼範例會指定與MAPI命名空間 PR_HASATTACH 屬性，並使用屬性在收件匣上的 GetTable 方法中建立初始篩選。 項目類型的 Table 物件具有預設數據行，代表該專案類型的特定屬性。 若要自定義數據行，此範例會先在該 Table 的 Columns 集合上呼叫 RemoveAll 方法，然後在 Columns 集合上呼叫 Add 方法，以使用內建屬性名稱來新增 EntryID、Subject 和 ReceivedTime 屬性，並使用 ReceivedTime 數據行將值儲存在本機日期時間表示中。
然後，此範例會再呼叫 Columns.Add 一次，以新增指定其 MAPI 命名空間的 ReceiveTime 屬性，讓此數據行將值儲存為通用國際標準時間 (UTC) 日期時間值。 最後，此範例會列舉 Table 中的每個專案，並顯示指定為數據表數據行之四個屬性的每個值。
If you use Visual Studio to test this code example, you must first add a reference to the Microsoft Outlook 15.0 Object Library component and specify the Outlook variable when you import the Microsoft.Office.Interop.Outlook namespace. The Imports or using statement must not occur directly before the functions in the code example but must be added before the public Class declaration. The following lines of code show how to do the import and assignment in Visual Basic and C#.
Imports Outlook = Microsoft.Office.Interop.Outlook
using Outlook = Microsoft.Office.Interop.Outlook;
Private Sub DemoTableColumns()
Const PR_HAS_ATTACH As String = _
"http://schemas.microsoft.com/mapi/proptag/0x0E1B000B"
' Obtain Inbox
Dim folder As Outlook.Folder = _
CType(Application.Session.GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderInbox), _
Outlook.Folder)
' Create filter
Dim filter As String = "@SQL=" & Chr(34) _
& PR_HAS_ATTACH & Chr(34) & " = 1"
Dim table As Outlook.Table = _
folder.GetTable(filter, _
Outlook.OlTableContents.olUserItems)
' Remove default columns
table.Columns.RemoveAll()
' Add using built-in name
table.Columns.Add("EntryID")
table.Columns.Add("Subject")
table.Columns.Add("ReceivedTime")
table.Sort("ReceivedTime", Outlook.OlSortOrder.olDescending)
' Add using namespace
' Date received
table.Columns.Add( _
"urn:schemas:httpmail:datereceived")
While Not (table.EndOfTable)
Dim nextRow As Outlook.Row = table.GetNextRow()
Dim sb As StringBuilder = New StringBuilder()
sb.AppendLine(nextRow("Subject").ToString())
' Reference column by name
sb.AppendLine("Received (Local): " _
& nextRow("ReceivedTime").ToString())
' Reference column by index
sb.AppendLine("Received (UTC): " & nextRow(4).ToString())
sb.AppendLine()
Debug.WriteLine(sb.ToString())
End While
End Sub
private void DemoTableColumns()
{
const string PR_HAS_ATTACH =
"http://schemas.microsoft.com/mapi/proptag/0x0E1B000B";
// Obtain Inbox
Outlook.Folder folder =
Application.Session.GetDefaultFolder(
Outlook.OlDefaultFolders.olFolderInbox)
as Outlook.Folder;
// Create filter
string filter = "@SQL=" + "\""
+ PR_HAS_ATTACH + "\"" + " = 1";
Outlook.Table table =
folder.GetTable(filter,
Outlook.OlTableContents.olUserItems);
// Remove default columns
table.Columns.RemoveAll();
// Add using built-in name
table.Columns.Add("EntryID");
table.Columns.Add("Subject");
table.Columns.Add("ReceivedTime");
table.Sort("ReceivedTime", Outlook.OlSortOrder.olDescending);
// Add using namespace
// Date received
table.Columns.Add(
"urn:schemas:httpmail:datereceived");
while (!table.EndOfTable)
{
Outlook.Row nextRow = table.GetNextRow();
StringBuilder sb = new StringBuilder();
sb.AppendLine(nextRow["Subject"].ToString());
// Reference column by name
sb.AppendLine("Received (Local): "
+ nextRow["ReceivedTime"]);
// Reference column by index
sb.AppendLine("Received (UTC): " + nextRow[4]);
sb.AppendLine();
Debug.WriteLine(sb.ToString());
}
}