Propriedade SelectNamesDialog.InitialAddressList (Outlook)
Retorna ou define um objeto AddressList que determina a lista de endereços inicial a ser exibida na caixa de diálogo Selecionar Nomes. Leitura/gravação.
Sintaxe
expression. InitialAddressList
Expressão Uma variável que representa um objeto SelectNamesDialog .
Comentários
Definir a propriedade InitialAddressList é o equivalente programático a selecionar um AddressList da lista suspensa para o Catálogo de endereços na caixa de diálogo Selecionar nomes.
Em seu estado padrão, InitialAddressList é AddressList que tem a propriedade que AddressList. Isinitialaddresslist definida como True. IsInitialAddressList corresponde à definição de Mostrar esta lista de endereços primeiro na caixa de diálogo endereçamento, que está disponível, clicando em Ferramentas e, em seguida, Opções na caixa de diálogo Catálogo de endereços.
Exemplo
O exemplo de código a seguir mostra como usar InitialAddressList e SelectNamesDialog.ShowOnlyInitialAddressList para que a caixa de diálogo Selecionar nomes sempre exibir somente a lista de endereços na pasta padrão Contatos, independentemente da configuração do usuário para a lista de endereços inicial.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.