Hallo, 

 Set olNewMailItem = Application.CreateItem(olMailItem)
    Select Case myItem.BodyFormat
        Case olFormatHTML
            olNewMailItem.HTMLBody = "Hallo," & "<br>" & "<br>" & "ist erledigt." & "<br>" & "<br>" & "Viele Grüße" & "<br>" & "NAME" & "<br>" & "<br>" & "____________" & "<br>" & "<br>" & myItem.HTMLBody
        Case olFormatRichText
            olNewMailItem.RTFBody = "Hallo," & vbCrLf & vbCrLf & "ist erledigt." & vbCrLf & vbCrLf & "Viele Grüße" & vbCrLf & "NAME" & vbCrLf & vbCrLf & "____________" & vbCrLf & vbCrLf & myItem.RTFBody
        Case Else
            olNewMailItem.Body = "Hallo," & vbCrLf & vbCrLf & "ist erledigt." & vbCrLf & vbCrLf & "Viele Grüße" & vbCrLf & "NAME" & vbCrLf & vbCrLf & "____________" & vbCrLf & vbCrLf & myItem.Body
    End Select
    olNewMailItem.Subject = "Erledigt: " & myItem.Subject

Den Code verwende ich, um einen Button zu haben, wo ich einfach den Betreff um Erledigt ergänze und vor die eigentliche Mail einen kurzen Satz schreibe ala: Hallo, ist umgesetzt, VG XSUS

Bei RTF knallt es - wie müsste ich da vorgehen? 

Ferner wird mein eingefügter Text mit Calibri 10 geschrieben -> kleiner als meine Standardeinstellung für neue Mails --> 11. 

Wie könnte ich das wohl bei den drei Arten beinflussen? Es soll möglichst simple bleiben und funktionieren, nicht der perfekte Code werden :-)

Danke!