ich habe eine Frage. Ich würde gerne den Inhalt eines eingebetteten Word Objects in Excel in den Email Body bei Outlook kopieren. Dabei soll die Formatierung mit übernommen werden und evtl. auch Bilder, die in dem Word Objekt vorhanden sind beibehalten werden.
Habt ihr dazu eine Idee?
Mit dem folgenden Code kopiert er zwar den Text, jedoch ohne jegliche Formatierungen und ohne dasBild.
Set ClpObj = New DataObject
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Empfänger = Sheets("Sheet1").Cells(Anfang + 3, 5).Value
Betreff = Sheets("Sheet1").Cells(4, 13).Value
'Word Objekt öffnen
Worksheets("Sheet1").OLEObjects("Emailvorlage").Verb Verb:=xlOpen
Set OLEDok= Worksheets("Sheet1").OLEObjects("Emailvorlage").Object.Application.ActiveDocument
'Text kopieren
OLEDok.Content.Copy
'Email Einstellungen
With Mail
.Subject = Betreff
.To = Empfänger
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
.Display
End With
Set Mail = Nothing
Set outObj = Nothing
Schoneinmal Danke für eure Hilfe
Gruß
Tobias