Compartilhar via


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

Objeto SelectNamesDialog

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.