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
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.