Método Recipients.ResolveAll (Outlook)
Tenta resolver todos os objetos de destinatário da coleção Recipients com base no catálogo de endereços.
Sintaxe
expression. ResolveAll
Expressão Uma variável que representa um objeto Destinatários .
Valor de retorno
True se todos os objetos foram resolvidos, False se um ou mais não foram.
Exemplo
Este exemplo de Visual Basic for Applications (VBA) usa o método ResolveAll para tentar resolver todos os destinatários e, se não tiver êxito, exibe uma caixa de mensagens para cada destinatário não resolvido.
Sub CheckRecipients()
Dim MyItem As Outlook.MailItem
Dim myRecipients As Outlook.Recipients
Dim myRecipient As Outlook.Recipient
Set myItem = Application.CreateItem(olMailItem)
Set myRecipients = myItem.Recipients
myRecipients.Add("Aaron Con")
myRecipients.Add("Nate Sun")
myRecipients.Add("Dan Wilson")
If Not myRecipients.ResolveAll Then
For Each myRecipient In myRecipients
If Not myRecipient.Resolved Then
MsgBox myRecipient.Name
End If
Next
End If
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.