Méthode Recipients.ResolveAll (Outlook)
Tente de résoudre tous les objets Recipient de la collection Recipients par rapport au carnet d’adresses.
Syntaxe
expression. ResolveAll
Expression Variable qui représente un objet Recipients .
Valeur renvoyée
Renvoie True si tous les objets ont été résolus, False si un ou plusieurs ne l'ont pas été.
Exemple
Cet exemple Visual Basic pour Applications (VBA) utilise la méthode ResolveAll pour tenter de résoudre tous les destinataires et, en cas d’échec, affiche une boîte de message pour chaque destinataire non résolu.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.