HOW TO:從項目的自訂欄位讀取資料
這個範例會從連絡人項目的自訂欄位讀取資料。 這個範例會在名為 Picnic 的資料夾中檢查連絡人,以便查看名為 Picnic 的自訂文字欄位中是否有某個值。 此程式碼會顯示值為 Potato Salad 之所有連絡人的名稱。
**適用於:**本主題中的資訊適用於 Outlook 2007 和 Outlook 2010 的應用程式層級專案。如需詳細資訊,請參閱依 Office 應用程式和專案類型提供的功能。
範例
Private Sub ThisAddIn_Startup(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Startup
Dim result As New System.Text.StringBuilder()
Dim contactFolder As Outlook.MAPIFolder = Me.Application.GetNamespace _
("MAPI").GetDefaultFolder _
(Outlook.OlDefaultFolders.olFolderContacts). _
Folders("Picnic")
Dim picnicMembers As Outlook.Items = _
contactFolder.Items.Restrict("[Picnic]='Potato Salad'")
For Each contact As Outlook.ContactItem In picnicMembers
result.AppendLine(contact.FullName)
Next
If result.Length > 0 Then
MsgBox(result.ToString(), "Potato Salad")
Else
MsgBox( _
"No contacts are assigned potato salad for the picnic.", _
"Potato Salad")
End If
End Sub
private void ThisAddIn_Startup(object sender,
System.EventArgs e)
{
System.Text.StringBuilder result =
new System.Text.StringBuilder();
Outlook.MAPIFolder contactFolder = this.
Application.GetNamespace("MAPI").
GetDefaultFolder(Outlook.OlDefaultFolders.
olFolderContacts).Folders["Picnic"];
Outlook.Items picnicMembers = contactFolder.Items.
Restrict("[Picnic]='Potato Salad'");
foreach (Outlook.ContactItem contact in picnicMembers)
{
result.AppendLine(contact.FullName);
}
if (result.Length > 0)
{
MessageBox.Show(result.ToString(), "Potato Salad");
}
else
{
MessageBox.Show("No contacts are assigned potato salad"
+ " for the picnic.", "Potato Salad");
}
}
穩固程式設計
如果資料夾集合中找不到自訂連絡人資料夾 Picnic,就會擲回 COMException 例外狀況。 您可以攔截此例外狀況,並建立資料夾 (如果遺漏的話)。