Outlook) 的 SelectNamesDialog.ShowOnlyInitialAddressList 屬性 (

會傳回或設定 Boolean，決定 SelectNamesDialog.InitialAddressList 所代表的 AddressList 是否為 [選取名稱] 對話方塊之 [通訊錄] 下拉式清單中唯一可用的 AddressList。 讀取/寫入。

語法

expression。 ShowOnlyInitialAddressList

表達 代表 SelectNamesDialog 物件的變數。

註解

這個屬性的預設值為 False，表示會顯示所有通訊清單。 若要將 [通訊錄] 的下拉式清單限制為 InitialAddressList 所指示的通訊錄，請將 ShowOnlyInitialAddressList 設定為 True。

如果您未設定InitialAddressList屬性，然後將ShowOnlyInitialAddressList設定為True，則AddressList.IsInitialAddressList等於True的AddressList會是 [通訊錄] 下拉式清單中唯一可用的通訊清單。

範例

下列程式碼範例示範如何使用 IsInitialAddressList 和 ShowOnlyInitialAddressList ，讓 [ 選取名稱 ] 對話方塊一律只顯示預設 [連絡人] 資料夾中的通訊清單，而不論使用者的初始地址清單設定為何。

Sub ShowOnlyContacts() 
 
 Dim oMsg As MailItem 
 
 Set oMsg = Application.CreateItem(olMailItem) 
 
 
 
 Dim oDialog As SelectNamesDialog 
 
 Set oDialog = Application.Session.GetSelectNamesDialog 
 
 
 
 Dim oContacts As Folder 
 
 Set oContacts = _ 
 
 Application.Session.GetDefaultFolder(olFolderContacts) 
 
 
 
 Dim oAL As AddressList 
 
 For Each oAL In Application.Session.AddressLists 
 
 If oAL.GetContactsFolder = oContacts Then 
 
 Exit For 
 
 End If 
 
 Next 
 
 With oDialog 
 
 .InitialAddressList = oAL 
 
 .ShowOnlyInitialAddressList = True 
 
 .Recipients = oMsg.Recipients 
 
 If .Display Then 
 
 'Recipients Resolved 
 
 End If 
 
 End With 
 
End Sub

另請參閱

SelectNamesDialog 物件

支援和意見反應

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