outlook-mail

Versuche nachricht an outlook zu übergeben,
aber fehlermeldung. kann objekt nicht erstellen, s.u.
Sub SendMessage()
Dim oOutlook As Object
Dim oNachricht As Object
Dim oEmpfänger As Object
Dim oAnhang As Object
Hier kommt Ojekterstellung duch activex-komponente nicht möglich:
Set oOutlook = CreateObject("Outlook.Application")
Set oNachricht = oOutlook.createitem(0)
With oNachricht
Set oEmpfänger = .Recipients.Add("Test@test.de")
.Subject = "TestBetreff"
.body = "TestBody"
.send
End With
Set oEmpfänger = Nothing
Set oNachricht = Nothing
Set oOutlook = Nothing
End Sub