Método NameSpace.GetSelectNamesDialog (Outlook)

Obtém um objeto SelectNamesDialog para a sessão atual.

Sintaxe

expression. GetSelectNamesDialog

Expressão Uma variável que representa um objeto 'NameSpace'.

Valor de retorno

Um objeto SelectNamesDialog para a sessão atual. Objeto SelectNamesDialog oferece suporte a exibir a caixa de diálogo Selecionar nomes para o usuário selecionar entradas de uma ou mais das listas de endereços na sessão atual.

Exemplo

O exemplo de código a seguir mostra como criar uma instância da SelectNamesDialog da sessão atual e usá-lo para exibir as entradas da pasta Contatos em uma caixa de diálogo que se parece com a caixa de diálogo Selecionar nomes na interface de usuário do Outlook.

Sub ShowContactsInDialog() 
 Dim oDialog As SelectNamesDialog 
 Dim oAL As AddressList 
 Dim oContacts As Folder 
 
 Set oDialog = Application.Session.GetSelectNamesDialog 
 Set oContacts = _ 
 Application.Session.GetDefaultFolder(olFolderContacts) 
 
 'Look for the address list that corresponds with the Contacts folder 
 For Each oAL In Application.Session.AddressLists 
 If oAL.GetContactsFolder = oContacts Then 
 Exit For 
 End If 
 Next 
 With oDialog 
 'Initialize the dialog box with the address list representing the Contacts folder 
 .InitialAddressList = oAL 
 .ShowOnlyInitialAddressList = True 
 If .Display Then 
 'Recipients Resolved 
 'Access Recipients using oDialog.Recipients 
 End If 
 End With 
End Sub

Confira também

Objeto NameSpace

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.