insérer un lien hypertexte dans un corps de texte (mail)

[micky01]

Bonjour à tous, je cherchais a envoyé un mail automatiquement à l'aide d'une macro... en cherchant un peu, je suis tombé sur ca code :

bonsoir,


Une solution consiste à créer une instance Late Binding :

Dim ol As Object
Dim olmail As Object
Dim CurrFile As Object

Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(0)

With olmail
    .To = "[EMAIL="desti@free.fr"]desti@free.fr[/EMAIL]"
    .Subject = ActiveWorkbook.FullName
    .Body = "corps du texte"
    .Attachments.Add "C:\PGI\Résultats.xls"
    .Display
End With

ceci marche bien pour moi, j'aimerais juste savoir si il est possible de mettre un lien hypertexte dans le corps de texte? 😕
Je pense bien que ca ne doit pas être compliqué mais bon 🙁

Merci de votre aide 😛