sharepoint Pfad in Mail erstellen

Sub Test()
Dim Z As Integer, Pfad As String, Dateiname As String
Dim emailTo As String, emailCc As String
emailTo = "Test@gmx.net" 'Range("email_to")
emailCc = ""             'Range("email_cc")
Pfad = ThisWorkbook.Path & "\Tagesdaten " & Format(Date, "YYYY_MM_DD")
'pdfs erzeugen
Call send_Email(Pfad, emailTo, emailCc)
End Sub
Private Sub send_Email(Pfad As String, strTo As String, strCc As String)
Dim olApp As Object
Dim mbody As String
mbody = "Hallo &LTp>&LTp> PDFs wurden gerade neu erzeugt und liegen hier:&LTp>&LTp>"
mbody = mbody & "&LTa href=""" & Pfad & """>" & Pfad & "&LT/a>"
mbody = mbody & "&LTp>&LTp>Gruß"
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Subject = "Listen vom: " & Date
.To = strTo
.Cc = strCc
.htmlbody = mbody
.Display
End With
Set olApp = Nothing
End Sub

mbody = mbody & "&LTa href=""" & Pfad & """>" & Pfad & "&LT/a>"