Sub Email()
Dim ol, Mail As Object
Dim Tabelle As Object
Set Tabelle = Application.ActiveSheet
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now
Mail.To = Tabelle.Cells(1, 4).Value
Mail.cc = ""
Mail.bcc = ""
Mail.body = vbCrLf & _
"Hallo " & Tabelle.Cells(1, 1).Value & "," & vbCrLf & _
vbCrLf & _
"ich möchte Sie informieren über....." & vbCrLf & _
vbCrLf & _
vbCrLf & _
"Mit freundlichen Grüßen" & _
vbCrLf & Tabelle.Cells(1, 1).Value & " " & Tabelle.Cells(1, 2).Value & vbCrLf & _
vbCrLf & _
"Dieses Mail wurde automatisch versandt."
Mail.Display
End Sub