Zwischenablage in Email einfügen
08.12.2008 16:20:50
Franz
mit dem nachfolgenden Code möchte von meinem Excelsheet eine Email mit Outlook senden
und über die Zwischenablage das erzeugte PDF-Dokument einfügen. Mein Problem ist das ich
das PDF im Outlook nicht einfügen kann. Hat jemand eine Idee, wie ich das Problem lösen
kann? Danke.
Gruß Franz
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