Link aus VBA raus per E- Mail versenden

Sub Link_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim sBody As String  'Link wird als Mail gesendet
sBody = "\\Smuc2108\Motor\TA-2\TA-25\TA-254\Fehlerbeseitigung\00_Feldbeobachtung\ _
10_Status_aktuell\Auf_Absteiger_Schleicher"
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "ich@ich.de"
.Subject = "Testmeldung von Link " & Date & Time
.sBody = "\\Smuc2108\Motor\TA-2\TA-25\TA-254\Fehlerbeseitigung\00_Feldbeobachtung\ _
10_Status_aktuell\Auf_Absteiger_Schleicher"
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.attachments.Add sBody
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
Mail.Send
End With
'Outlook schliessen
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub