Macro - Vérifier une adresse mail

Bonjour à tous,

J'ai une liste de contact (Nom et prénom) sous format excel, et j'aimerais pouvoir transformer ces noms en adresse mail. Je travaille avec Outlook et Exchange. J'essaie donc d'utiliser la fontion Resolve.

Voici mon code:

Sub Email_vérification()

Dim myNamespace As Outlook.Namespace

Dim myRecipient As Outlook.Recipient

Set myNamespace = Application.GetNamespace("MAPI")

Set myRecipient = myItem.CreateRecipient("NOM DU CONTACT")

myRecipient.Resolve

If myRecipient.Resolved Then

MsgBox ("myRecipient.value")

End If

End Sub

Toutefois, il ne fonctionne pas.

Quelqu'un aurait une idée ?

Merci !