Office: Excel-Zwischenablage in Outlook-Body einfügen

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

Vielen Dank im Voraus!

Gruss

Thomas

:)

 

Vielleicht hilft das oder das oder hier

Und das hilft vielleicht auch, besonders Step 1

 

Hi Storax,

vielen Dank für deinen schnellen Support.

Hatte diese Quellen auch schon gefunden. Aufgrund von mangelnden VBA-Kenntnissen, konnte ich dies jedoch nicht auf meine Erfordernisse übertragen.

Besteht nicht die Möglichkeit mein bisheriges Skript irgendwie zu ergänzen?

Gruss

Thomas

 

Dein bisheriges Skript kann man mit Hilfe der Links sicher ergänzen, aber versuch es doch mal selbst.
Oder suchst Du nur jemanden, der den Code (den Du wohl auch nur irgendwoher kopiert hast) anpasst, weil Du selber überhaupt keinen Plan von VBA hast (was zunächst nicht schlimm ist), dann bin ich nicht der richtige.
Vielleicht hat jmd anders Lust darauf ...

 

Hi Storax,

das ist genau der Fall. Viele Sachen versuche ich mit der Aufnahmefunktion zu lösen oder mit Hilfe von "Google-Recherche" einen Lösungsansatz zu finden. Da ich jedoch keine Ahnung von dieser Programmiersprache habe, fällt mir das anpassen sehr schwer. Deshalb ist meine letzte Hoffnung eben immer dieses Forum.

Vielleicht habe ich ja Glück und jemand hilft mir. :-(

 

Hallo!

Ich mag schon deshalb nicht weil hier der Beispielcode einfach nur so in den Text geklatscht wurde (da sind die HTML-Tags umgewandelt worden). *wink.gif*

Gruß, René

 

Hi René,

was wäre denn eine bessere Möglichkeit den Beispielcode zu posten?

Gruss

Thomas

 

Hola,

geht wohl jetzt hier weiter:

http://www.vba-forum.de/forum/View.a..._einf%C3%BCgen

Gruß,
steve1da

 

Hallo Thomas,

bitte unterlasse Crosspostings, siehe dazu auch die Forenregeln!

Ich habe mir aus Eigeninteresse jetzt mal die Mühe gemacht und das selbst zusammengestoppelt (Du musst die Auskommentierungen der ersten 8 Zeilen noch entfernen, die habe ich nicht getestet):

Code:

LG
Berni


PS: Du musst zusätzlich unbedingt folgendes machen:
http://microsoft.public.de.excel.nar...rary-einbinden

Sonst geht es nicht!

 

Hi Berni,

vielen lieben Dank.

Sorry, das war mir nicht bewusst, dass dies nicht erlaubt ist.
Werde ich künftig unterlassen.

Soweit passt es.

Es besteht nur noch ein Problem: Umlaute und das €-Zeichen werden in Hieroglyphen dargestellt.

Hast du hierfür vielleicht noch eine Idee?

Gruss

Thomas

 

Umlaute kannst Du vorher umwandeln.

 

Also bei mir werden alle Zeichen korrekt an Outlook übergeben.

Zum Tipp von Mumpel siehe auch diesen Link
Ansonsten wäre noch die Frage, welche Outlookversion du benutzt. Und hat die Nachricht selbst auch das Format HTML? Oder ist hier evtl. Text eingestellt?

 

Hallo Zusammen,

super. Vielen Dank für Eure Hilfe.

Gruss

Thomas