outlook, welches addin?

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