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

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

MichelXld à dit:

bonsoir,


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

Code:

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

Cliquez pour agrandir...

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