Office: (Office 2010) VBA Hyperklink senden

Hallo zusammen,

ich würde gerne ein Makro erstellen mit folgender Aufgabe:
Die Datei Speichern (Dateiname aus Zellinhalt, mit Leerzeichen)
Diese gespeicherte Datei soll dann in Outlook per Hyperlink verschickt werden.

Mein Problem ist jetzt noch das Leerzeichen im Dateiname
Sub Senden()
'
' Senden Makro
'

'
ActiveWorkbook.SaveAs Filename:="C:\Users\petra\Documents\" & Range("C7").Value
Dim MyOutApp As Object
Dim MyMessage As Object
Set MyOutApp = CreateObject("Outlook.application")
Set MyMessage = MyOutApp.createitem(0)
With MyMessage
.To = "****@me.com"
.Subject = "Prototyp"
.Body = "Nachricht" & Chr(13) & "file:" & ThisWorkbook.FullName
.Display
'.Send
End With
Set MyMessage = Nothing
Set MyOutApp = Nothing
End Sub