Insérer un lien dans un mail en VBA

Bonjour,

J'ai besoin d'aide pour finaliser une macro.
C'est une simple macro pour envoyer mon fichier excel en pièce jointe, seulement j'aimerais ajouter dans le corps du texte de mon mail, un lien vers l'endroit où est enregistré ce fichier !
Actuellement, le lien s'établi mais il a besoin d'être validé par un clic à droite de celui-ci + Enter.

Ci-joint ma macro :

Sub Button36_Click()

 If MsgBox("Le formulaire est-il prêt à l'envoi ?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then

Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Dim ObjOutlook
Dim oBjMail
Dim pj As String
Dim Corps As String
Dim adresse As String

pj = "P:\RDP\Nouveaux RDP\" & "RDP " & [C18].Value & " du " & [C12].Value & ".xlsm"

ActiveWorkbook.SaveAs Filename:=pj, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Set ObjOutlook = CreateObject("outlook.application")
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

If pj = "Faux" Then Exit Sub
If VarType(pj) = vbBoolean Then Exit Sub

Corps = "Bonjour," & vbCrLf & "<br>" _
    & vbCrLf & "<br>" _
    & "En pièce jointe le RDP du " & [C12].Value & vbCrLf & "<br>" _
    & vbCrLf & "<br>" _
    & "Vous le trouverez également enregistré à l'adresse ci-dessous" & vbCrLf & "<br>" _
    & "file://" & Replace(pj, "\", "/") & "<br>" _
    & vbCrLf & "<br>" _
    & "Bien à vous,"

With oBjMail
.To = "...@..."
.Subject = "New RDP"
.Attachments.Add pj
.HTMLBody = ""
.BodyFormat = 2
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
.HTMLBody = Corps & oBjMail.HTMLBody
.Display
'.Send
End With

'MsgBox "Le mail a bien été envoyé !"

 Else: MsgBox "Envoi annulé !"
 
End If
End Sub