方法: プログラムによって Outlook の連絡先にアクセスする

[アーティクル]
02/21/2013

この例では、指定された検索文字列が姓に含まれるすべての連絡先を検索します。

対象: このトピックの情報は、Outlook 2013 と Outlook 2010 のアプリケーションレベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクトタイプ別の使用可能な機能」を参照してください。

使用例

    Private Sub ThisAddIn_Startup(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Startup
        AccessContacts("Na")
    End Sub

    Private Sub AccessContacts(ByVal findLastName As String)
        Dim folderContacts As Outlook.MAPIFolder = Me.Application.ActiveExplorer() _
            .Session.GetDefaultFolder(Outlook.OlDefaultFolders _
            .olFolderContacts)
        Dim searchFolder As Outlook.Items = folderContacts.Items
        Dim counter As Integer = 0
        For Each foundContact As Outlook.ContactItem In searchFolder
            If foundContact.LastName.Contains(findLastName) Then
                foundContact.Display(False)
                counter = counter + 1
            End If
        Next
        MsgBox("You have " & counter & _
            " contacts with last names that contain " _
            & findLastName & ".")
    End Sub

private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
    AccessContacts("Na");
}

private void AccessContacts(string findLastName)
{
    Outlook.MAPIFolder folderContacts = this.Application.ActiveExplorer().Session.
        GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts);
    Outlook.Items searchFolder = folderContacts.Items;
    int counter = 0;
    foreach (Outlook.ContactItem foundContact in searchFolder)
    {
        if (foundContact.LastName.Contains(findLastName))
        {
            foundContact.Display(false);
            counter = counter + 1;
        }
    }
    MessageBox.Show("You have " + counter +
        " contacts with last names that contain "
        + findLastName + ".");
}

private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
    AccessContacts("Na");
}

private void AccessContacts(string findLastName)
{
    Outlook.MAPIFolder folderContacts = this.Application.ActiveExplorer().Session.
        GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts);
    Outlook.Items searchFolder = folderContacts.Items;
    int counter = 0;
    foreach (Outlook.ContactItem foundContact in searchFolder)
    {
        if (foundContact.LastName.Contains(findLastName))
        {
            foundContact.Display(false);
            counter = counter + 1;
        }
    }
    MessageBox.Show("You have " + counter +
        " contacts with last names that contain "
        + findLastName + ".");
}