Método SelectNamesDialog.Display (Outlook)
Exibe a caixa de diálogo Selecionar Nomes.
Sintaxe
expression. Display
Expressão Uma variável que representa um objeto SelectNamesDialog .
Valor de retorno
Um valor de Boolean que será True se o usuário clicou em OK e False se o usuário clicou em Cancelar ou no ícone Fechar.
Comentários
Ao exibir a caixa de diálogo Selecionar nomes, Display usa o local anterior e o tamanho (indicados por superior, esquerda, largura e altura) da caixa de diálogo.
A caixa de diálogo Selecionar Nomes é modal, ou seja, a execução do código será interrompida até o usuário clicar em OK, Cancelar ou no ícone Fechar.
Você deve detectar as condições de erro que incluem memória insuficiente ou outra mensagem ou caixa de diálogo aberta.
Exemplo
O exemplo de código a seguir mostra como criar um item de email, permitir ao usuário selecionar destinatários na Lista de Endereços Global do Exchange na caixa de diálogo Selecionar Nomes e, se o usuário selecionou destinatários que possam ser completamente resolvidos, enviar o item de email.
Sub SelectRecipients()
Dim oMsg As MailItem
Set oMsg = Application.CreateItem(olMailItem)
Dim oDialog As SelectNamesDialog
Set oDialog = Application.Session.GetSelectNamesDialog
With oDialog
.InitialAddressList = _
Application.Session.GetGlobalAddressList
.Recipients = oMsg.Recipients
If .Display Then
'Recipients Resolved
oMsg.Subject = "Hello"
oMsg.Send
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.