Extraire automatiquement un mail dans le corps d'un mail

Bonjour à tous, je suis nouveau sur le forum, et débutant en VBA - Excel.
Afin de pouvoir envoyer des informations via mailchimp à d'anciens contacts et des plus récents, je souhaiterais récupérer les adresses mails sous forme de liste.
Le problème c'est que j'ai dans chaque mail 1 adresse mail à récupérer et celle-ci se trouve dans le corps du texte, ce n'est pas l'adresse de l'expéditeur.

Les mails se trouvent sur outlook.

J'ai environ entre 500 et 1000 mails à récupérer, récupérer chaque mail à la main prendrait un temps fou.
Existe-t-il un script afin d'extraire une adresse mail du corps d'un mail ?
Si oui à quel endroit place-t-on ce script ?

En rouge, partiellement effacé, les mails à récupérer.

Merci et n'hésitez pas si ma demande n'est pas suffisamment claire.

Alex

bonjour,

une proposition à peaufiner.

Sub aargh()

    Set ol = CreateObject("outlook.application")
    Set ns = ol.GetNamespace("MAPI")
    Set Fldr = ns.GetdefaultFolder(6) 'boite de réception par défaut

    For Each msg In Fldr.Items
        texte = msg.body
        adresse = trouveadressemail(texte)
        MsgBox adresse
    Next msg

End Sub

Function trouveadressemail(texte)
    s = Split(texte, " ")
    For i = LBound(s) To UBound(s)
        If InStr(s(i), "@") > 0 Then
            trouveadressemail = s(i)
            Exit Function
        End If
    Next i
End Function

bonjour,

il est d'usage de cloturer le message si la solution te convient.