Lien hypertexte de dossier dans mail généré par vba

Sub envoimail()

Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim lien As String
Dim vPJ As String
vPJ = Sheets("A remplir").Range("U6")
lien = "T:\DECS_new\00_CDG\Fichier_Support\Bon_d'engagement_des_dépenses"

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

         With oBjMail
           .To = Sheets("A remplir").Range("U10").Value  ' le destinataire
           .Subject = "Bon engagement des dépenses à valider"          ' l'objet du mail
           .Body = "Bonjour, " & vbCr & "Veuillez trouver en pj le bon d'engement des dépenses à valider içi :" & vbCr & lien & vbCr & "Merci" 'le corps du mail ..son contenu
           .Attachments.Add vPJ
           .Send
        End With
End Sub

Sub testmail()
Dim myApp
  Dim myItem
  Dim olMailItem
  
  On Error Resume Next
  Set myApp = GetObject(, "Outlook.Application")
  If Err.Number <> 0 Then
     Set myApp = CreateObject("Outlook.Application")
     Err.Clear
  End If
  
  Set myItem = myApp.CreateItem(olMailItem)
  myItem.Subject = "VALIDATION DE LA "
  myItem.Body = " Bonjour " & "Après vérification, veuillez vous rendre sur le fichier DA_index, " & _
  "et inscrire votre trigramme dans la colonne 'VALIDATION', sur la ligne appropriée." & vbCrLf & _
 "file:///\\chsrvexp01\export\DECS_new\pakistan.pdf"
  myItem.To = adrb
  myItem.Display
  'myItem.Send
End Sub

Sub CreationMailEtLienHypertexte()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
    
    
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
    
    With OlItem
        .To = "monti.julien@gmail.com"
        .Subject = "Le titre du message"
        .Body = "Découvrez Microsoft Office sur le site Developpez" & _
            vbLf & "file:///\\chsrvexp01\export\DECS new\00 CDG\Fichier Support\Bon d'engagement des dépenses" & vbLf & vbLf & _
            "Cordialement" & vbLf & "mailto:emetteur@mail.fr"
        .Display
        .Save
        .Send
    End With
    
    Set OlItem = Nothing
    Set OlApp = Nothing
End Sub