在“选择姓名”对话框中显示与“联系人”文件夹对应的通讯簿
该示例演示如何获得对应于默认“联系人”文件夹的通讯簿，然后在“选择姓名”对话框中显示该通讯簿。
示例
Outlook 中的所有通讯簿都由 NameSpace 对象的 AddressLists 属性表示为集合。 此代码示例使用 AddressList 对象的 GetContactsFolder 方法，查找与每个地址列表对应的“联系人”文件夹。 每个 Outlook 文件夹都有一个条目 ID。 比较默认“联系人”文件夹的条目 ID 与“联系人”文件夹的条目 ID，以生成与默认“联系人”文件夹对应的地址列表。
在“选择姓名”对话框中显示与默认“联系人”文件夹对应的地址列表前，此代码示例先将它设置为 SelectNamesDialog 对象的 InitialAddressList 属性值。
如果使用 Visual Studio 测试此代码示例，必须先添加对 Microsoft Outlook 15.0 对象库组件的引用，并在导入 Microsoft.Office.Interop.Outlook 命名空间时指定 Outlook 变量。 不得将 Imports 或 using 语句直接添加到此代码示例中的函数前面，这两个语句必须后跟公共类声明。 下面的代码行演示了如何在 Visual Basic 和 C# 中执行导入和分配。
Imports Outlook = Microsoft.Office.Interop.Outlook
using Outlook = Microsoft.Office.Interop.Outlook;
Private Sub ShowContactsFolderAsInitialAddressList()
Dim addrLists As Outlook.AddressLists
Dim contactsFolder As Outlook.Folder = _
CType(Application.Session.GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderContacts), _
Outlook.Folder)
addrLists = Application.Session.AddressLists
For Each addrList As Outlook.AddressList In addrLists
Dim testFolder As Outlook.Folder = _
CType(addrList.GetContactsFolder(), Outlook.Folder)
If Not (testFolder Is Nothing) Then
' Test to determine if Folder returned
' by GetContactsFolder has same EntryID
' as default Contacts folder.
If (Application.Session.CompareEntryIDs( _
contactsFolder.EntryID, testFolder.EntryID)) Then
Dim snd As Outlook.SelectNamesDialog = _
Application.Session.GetSelectNamesDialog()
snd.InitialAddressList = addrList
snd.Display()
End If
End If
Next
End Sub
private void ShowContactsFolderAsInitialAddressList()
{
Outlook.AddressLists addrLists;
Outlook.Folder contactsFolder =
Application.Session.GetDefaultFolder(
Outlook.OlDefaultFolders.olFolderContacts)
as Outlook.Folder;
addrLists = Application.Session.AddressLists;
foreach (Outlook.AddressList addrList in addrLists)
{
Outlook.Folder testFolder =
addrList.GetContactsFolder() as Outlook.Folder;
if (testFolder != null)
{
// Test to determine if Folder returned
// by GetContactsFolder has same EntryID
// as default Contacts folder.
if (Application.Session.CompareEntryIDs(
contactsFolder.EntryID, testFolder.EntryID))
{
Outlook.SelectNamesDialog snd =
Application.
Session.GetSelectNamesDialog();
snd.InitialAddressList = addrList;
snd.Display();
}
}
}
}