Problem mit Mail aus Excel

ich möchte aus Excel automatisch eine Email ohne Anhang senden.
Dies ist im Forum auch beschrieben. Bei mir wird aber beim Ausführen von send der Laufzeitfehler 287 Anwendungs- oder objektdefinierter Fehler ausgelöst. Code siehe unten. Bitte um Hilfe.

Vielen Dank.
Gruß
Christoph

Sub Mail_senden()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = "MeineEmailAdresse"
.Subject = "Test-Mail"
.Body = "Test"
.Send
End With
Set olApp = Nothing
End Sub