Hallo zusammen,

folgendes Problem:

Mit Clipboard.PutInClipboard bekomme ich z.B. den Inhalt einer Zelle (mehzeiliger Text der unterschiedlich formatiert ist) in die Zwischenablage.

Hier mal der Code:

Dim Sign As Object
Set Sign = Worksheets("Signatur").Range("A1")
Dim Zwischenablage As DataObject
Set Zwischenablage = New DataObject
Zwischenablage.SetText Sign
Zwischenablage.PutInClipboard

Die Zwischenablage soll als Body in einer Mail erschienen.
 

.body = Clipboard.GetText

Klappt auch, jedoch geht die Formatierung verloren. Also keine Fettschrift oder unterschiedliche Textgröße geht verloren.

Habt Ihr einen Tipp für mich?