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

Objeto Recipients

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.