Email clickable link from Excel VBA to Outlook

[brundag5]

Hello,

Thanks for reading this.

I'm trying to email a clickable link with VBA to outlook. I have the below code which does everything I need but the link that is emailed is not clickable. I is emailed as a hyperlink and the path is correct (if I past the path into the address bar the file opens). I end up with a hyperlink that does nothing. Perhaps it is an Outlook problem, but I email other links all of the time. Is there a better way to create the link?

Thanks for your time.

Sub SendEmail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim FName As String
    Dim FPath As String
     
    Recip = [W2].Value & "; " & [W3].Value & "; " & [W4].Value
    FPath = "C:\10 Work Orders\"
    FName = Range("A3")

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = "[URL="https://www.mrexcel.com/forum/&"]" & FPath & FName & ".xlsm" & "[/URL]"

    On Error Resume Next
    With OutMail
        .To = Recip
        .CC = ""
        .BCC = ""
        .Subject = "new MTC work order submitted"
        .HTMLBody = strbody
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub