Hallo liebe Experten,
ich versuche seit geraumer Zeit einen kopierten Bereich aus Excel in den Body meiner E-Mail zu kopieren. Dabei soll die Formartierung der Tabelle erhalten bleiben.
Kann mir diesbzgl. jemand weiterhelfen? Meine Recherche hat mir leider keinen Erfolg gebracht.
Mein bisheriger Code sieht wie folgt aus und funktioniert bis auf das Einfügen der Zwischenablage.
Sub xxx()
Windows("xxx").Activate
Sheets("xxx").Select
ActiveSheet.Range("$A$1:$i$1").AutoFilter Field:=1, Criteria1:="<>xxx", _
Operator:=xlAnd
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlToTop
Sheets("xxx").ShowAllData
Range("B1:I1").Select
Range(Selection, Selection.End(xlDown).Offset(1, 0)).Select
Selection.Copy
Dim strHTML As String
Dim OutApp As Object
Dim OutMail As Object
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.getInspector
.To = "xxx"
.Subject = ("xxx")
.HTMLBody = "
" & "Hallo," & "
" & "anbei sende ich eine Tabelle." & "
" & strHTML & .HTMLBody
.display '.send 'or use .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Besteht die Möglichkeit diesn Code irgendwie anzpassen)
Vielen Dank im Voraus!
Gruss
Thomas
|