Outlook) (SelectNamesDialog.InitialAddressList 屬性
會傳回或設定 AddressList 物件,決定要在 [ 選取名稱 ] 對話方塊中顯示的初始通訊清單。 可讀寫。
語法
expression。 InitialAddressList
表達 代表 SelectNamesDialog 物件的變數。
註解
設定 InitialAddressList屬性相當於在 [選取名稱] 對話方塊中,從 [通訊錄] 的下拉式清單中選取AddressList。
在預設狀態中,InitialAddressList 是屬性 AddressList.IsInitialAddressList 設為 True 的 AddressList。 IsInitialAddressList 相當於設定 [地址設定] 對話方塊中的 [先顯示這份通訊清單],依序按一下 [通訊錄] 對話方塊中的 [工具] 及 [選項],即可使用。
範例
下列程式碼範例示範如何使用 InitialAddressList 和 SelectNamesDialog.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 支援與意見反應。