sendmail mit Link zu Datei klappt nicht

Sub SendMail(Adr, AdrK, Betrifft, Text, Pfad)
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = Betrifft
'Mail.Body = Text
Mail.HTMLBody = Text
Mail.To = Adr
Mail.FlagStatus = olFlagMarked                      'Mail zur Nachverfolgung kennzeichnen
Mail.FlagDueBy = Now + 10                           'Datum festlegen wann Nachverfolgung (  _
Heute + 10 Tage)
Mail.Send
End Sub

Sub start()
empf = "Empfängername"
betreff = "Telegramm abgeschlossen"
Dateiname = "Dateiname = Testdateiname"
mail_body = "  Telegramm  _
abgeschlossen   
  
     " & Dateiname & "
   
     \\server\Halle\Testhallet\Team\test\W00\Bearbeitung\Einzelfehler\test löschen 02.09.2009 um 08_12_15 Telegramm von mir - Bearbeitungsfehler Nr 291.xls"
SendMail empf, "", betreff, mail_body, Pfad
End Sub