在 [選取名稱] 對話框中顯示對應至 [連絡人] 資料夾的通訊錄
此範例示範如何取得對應至預設 [聯繫人] 資料夾的通訊簿，然後在 [ 選取名稱 ] 對話框中顯示通訊簿。
範例
Outlook 中的所有通訊簿都會以 NameSpace 物件的 AddressLists 屬性表示為集合。 程式代碼範例會使用 AddressList 物件的 GetContactsFolder 方法來尋找對應至每個通訊清單的聯繫人資料夾。 每個 Outlook 資料夾都有項目識別碼。 比較預設 [連絡人] 資料夾的項目識別碼與 [連絡人] 資料夾的 [項目標識元]，以產生對應至預設 [連絡人] 資料夾的 AddressList。
在 [選取名稱] 對話框中顯示對應至預設 [聯繫人] 資料夾的通訊清單之前，程式代碼範例會將它設定為 SelectNamesDialog 物件之 InitialAddressList 屬性的值。
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 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();
}
}
}
}