Compartilhar via

Exibir uma caixa de diálogo para selecionar entradas na pasta Contatos

  • Artigo

Este tópico descreve como usar o objeto SelectNamesDialog para exibir entradas da pasta Contatos em uma caixa de diálogo que se assemelha à caixa de diálogo Selecionar Nomes na interface do usuário do Outlook.

  1. Procure a lista de endereços que corresponde à pasta Contatos. O objeto SelectNamesDialog exibe inteiros em uma caixa de diálogo com base em uma Lista de Endereços. Para exibir entradas na pasta Contatos, procure o AddressList que corresponde à pasta Contatos. Iterar por meio de todas as listas de endereços definidas para a sessão atual e, para cada lista de endereços, use AddressList.GetContactsFolder para corresponder a pasta correspondente com a pasta Contatos.

  2. Inicialize a caixa de diálogo com a lista de endereços da pasta Contatos.

  3. Use SelectNamesDialog.Display to display the dialog box. Se SelectNamesDialog.Display retornar True, as entradas estarão disponíveis em SelectNamesDialog.Recipients.

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

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.