Zwischenablage in Email einfügen

Sub Excel_PDF_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
'Dataobject wird gebraucht wegen der Zwischenablage
Dim ClpObj As DataObject
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.Subject = "Betreffzeile Header"
'Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
;Hier soll PDF-Datei welche sich in der Zwischenablage befindet
;eingefügt werden'
.body = ClpObj
.To = "test@test.de"
'Hier wird die Mail angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'        .Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub