この例では、連絡先アイテムのカスタム フィールドからデータを読み込みます。 まず、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 例外がスローされます。 フォルダーが存在しない場合は、この例外をキャッチして、そのフォルダーを作成できます。