Sleeper: Create a hyperlink in email text body

[Kidiot]

Hello everybody.

I've got the following code, but i can't get my link to work.

ActiveWorkbook.SendMail _
    Recipients:=Range("B126"), _
    Subject:=Format(Date, "yyyy/mm/dd") & " Assortimentsaanvraag " & Range("I4")
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Goedendag," & vbNewLine & vbNewLine & _
          "Uw aanvraag is goedgekeurd door alle partijen en ingediend bij Artikelbeheer." & vbNewLine & _
          "" & vbNewLine & _
          "<A href="K:\Gedeelde Mappen\Assortimentsbeheer\Assortimentsaanvraag (Fmar100)\2018\" & Format(Date, "yyyy/mm/dd") & " Assortimentsaanvraag " & Range("I4") & ".xlsm" > Formulier </A>" & vbNewLine & ""
On Error Resume Next
With OutMail
    .To = Range("B126")
    .CC = ""
    .BCC = ""
    .Subject = Format(Date, "yyyy/mm/dd") & " Assortimentsaanvraag " & Range("I4")
    .Body = strbody
    .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing

Can anyone help me?