VBA将ThisWorkbook.Path转换为超链接

Question

我尝试通过VBA发送电子邮件。此电子邮件包含文件的路径。但该路径未显示为存储文件的文件夹的链接。说实话，我不知道如何解决这个问题，到目前为止我找不到任何解决方案。

我的代码如下：

Private Sub CommandButton1_Click()
    Dim outlookOBJ As Object
    Dim mItem As Object
    Set outlookOBJ = CreateObject("Outlook.Application")
    Set mItem = outlookOBJ.CreateItem(olMailItem)
    With mItem
        .To = "Mail.Adress@test.com"
        .Subject = "Test"
        .Body = "Text Text Text" & ThisWorkbook.Path
        ThisWorkbook.Save
        .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
        .Send

    End With
End Sub

我希望有人可以帮助我，我的电子邮件中的路径将是可点击的链接。

非常感谢