Sub MailSenden()
Dim objNachricht As Object
Dim objMail As Object
Dim rngBereich As Range
Set rngBereich = Worksheets("Overview").Range("A1:J37")
Set objMail = CreateObject("Outlook.Application")
Set objNachricht = objMail.CreateItem(0)
With objNachricht
.To = "Deine@Mailadresse"
.Subject = "Berechnung"
.HtmlBody = "Sehr geehrte Damen und Herren," & vbLf & RangetoHTML(rngBereich)
.ReadReceiptRequested = False
.display
End With
Set objNachricht = Nothing
Set objMail = Nothing
Set rngBereich = Nothing
End Sub