顯示對話方塊以從 [連絡人] 資料夾選取專案

這個主題會說明如何使用 SelectNamesDialog 物件，在類似 Outlook 使用者介面之 [選取名稱] 對話方塊的對話方塊中顯示 [連絡人] 資料夾中的項目。

1. 尋找與 [連絡人] 資料夾對應的通訊清單。 SelectNamesDialog 物件會根據 AddressList在對話方塊中顯示整個專案。 若要顯示 [連絡人] 資料夾中的專案，請尋找與 [連絡人] 資料夾對應的 AddressList 。 逐一查看針對目前會話定義的所有通訊清單，並針對每個通訊清單使用 AddressList.GetContactsFolder 來比對對應的資料夾與 [連絡人] 資料夾。

2. 以 [連絡人] 資料夾的通訊清單起始設定對話方塊。

3. 使用 SelectNamesDialog.Display 顯示對話方塊。 如果 SelectNamesDialog.Display 傳回 True，所選取的項目就會出現在 SelectNamesDialog.Recipients 中。

Sub ShowContactsInDialog() 
 Dim oDialog As SelectNamesDialog 
 Dim oAL As AddressList 
 Dim oContacts As Folder 
 
 Set oDialog = Application.Session.GetSelectNamesDialog 
 Set oContacts = _ 
 Application.Session.GetDefaultFolder(olFolderContacts) 
 
 'Look for the address list that corresponds with the Contacts folder 
 For Each oAL In Application.Session.AddressLists 
 If oAL.GetContactsFolder = oContacts Then 
 Exit For 
 End If 
 Next 
 With oDialog 
 'Initialize the dialog box with the address list representing the Contacts folder 
 .InitialAddressList = oAL 
 .ShowOnlyInitialAddressList = True 
 If .Display Then 
 'Recipients Resolved 
 'Access Recipients using oDialog.Recipients 
 End If 
 End With 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。