Envoyer un e-mail Outlook contenant un lien

Bonjour

J'ai un souci avec une code que j'arrive pas à le résoudre, j'ai besoin de votre aide.

En effet, j'ai une cellule qui contient vers un dossier, sur Excel tout marche bien (le lien s'ouvre)

Parcontre, si j'envoie la cellule dans un e-mail, le lien ne s'ouvre pas :(

Voici le code:

Sub test()
Dim LienContrat As String
Dim xOutApp As Object, OutMail As Object

LienContrat = Sheets("feuil1").Range("A1").Value

Set xOutApp = CreateObject("Outlook.Application")
        Set OutMail = xOutApp.CreateItem(0)
        xMailItem = "L'offre N"
        xMailBody = "Bonjour ," & _
        "<br>" & "<br>" & "Voici le lien vers le contrat : " & "<a href=>" & LienContrat & "</a>" 
    On Error Resume Next

        With OutMail
            .Display
            .To = "xx@yahoo.fr"

            .Subject = xMailItem
            .HTMLBody = xMailBody & .HTMLBody

        End With

End Sub       

Qqn peux m'aider

Bonjour,

essaie

xMailBody = "Bonjour ," & _
        "<br><br>" & "Voici le lien vers le contrat : " & "<a href=""" & LienContrat & """>Nom du Contrat</a>"