Propriedade SelectNamesDialog.ShowOnlyInitialAddressList (Outlook)
Retorna ou define um Boolean que determina se AddressList representado por SelectNamesDialog.InitialAddressList é a única AddressList disponíveis na lista suspensa para o Catálogo de endereços na caixa de diálogo Selecionar nomes. Leitura/gravação.
Sintaxe
expression. ShowOnlyInitialAddressList
Expressão Uma variável que representa um objeto SelectNamesDialog .
Comentários
O valor padrão dessa propriedade é False, que significa que todas as listas de endereços são exibidas. Para restringir a lista suspensa para Catálogo de endereços para aquele indicado pelo InitialAddressList, defina ShowOnlyInitialAddressList como True.
Se você não definir a propriedade InitialAddressList e definir ShowOnlyInitialAddressList como True, a Lista de Endereços com AddressList.IsInitialAddressList igual a True será a única lista de endereços disponível na lista suspensa para Catálogo de Endereços.
Exemplo
O exemplo de código a seguir mostra como usar IsInitialAddressList e 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.