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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。