ich will ein tabellenblatt per outlook versenden (jedoch nicht als anhang, sondern als die eigentliche nachricht). jetzt habe ich jedoch das problem, das die gettext-anweisung alles in ein textformat umwandelt, obwohl ich das originaltabellenblatt erhalten will. kann mir jemand helfen, wie ich dies umgehen kann?
vielen dank im voraus
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
Dim ClpObj As DataObject
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
'Excelbereich der versendet werden soll.
Range("A1:F40").Select
Selection.Copy
With Nachricht
.Subject = "Vermittlung"
'Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
.Body = ClpObj.Gettext(1)
.To = "xxx@xxx.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
'Auf Outlook warten. Ist nicht schnell genug :-))
Application.Wait (Now + TimeValue("0:00:05"))