Lien hypertexte dans mail avec vba

[roulax]

Bonjour à tous,

J'ai développé une macro qui permet d'envoyer un mail à partir d'un fichier excel
Dans le corps du mail, je voudrais ajouter un lien hypertexte vers un serveur.
Petit problème, mon lien ne fonctionne pas.

With ActiveSheet.MailEnvelope
      .Introduction = "Access: \\gol9\garantie\garantie\" ' doit être un lien hypertexte
      .Item.To = ThisWorkbook.Sheets("Diffuse").Range("I25").Value

Une idée?