automatischer Mailversand über Outlook

Sub Senden(AWS As String, Anred As String, MailAdr As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = MailAdr
.Subject = "Aktuelle Abrechnung"
.attachments.Add AWS
.Body = "Hallo " & Anred & "," _
& vbCrLf & vbCrLf & "anbei die aktuellste Abrechnung." _
& vbCrLf & vbCrLf & "mfg"
.Display
.Send
End With
End Sub

Jetzt gibt es eine Fehlermeldung:
LAUFZEITFEHLER 430
KLASSE UNTERSTÜTZT KEINE AUTOMATIESIERUNG ODER UNTERSTÜTZT ERWARTETE SCHNITTSTELLE NICHT
der Code wird dort gelb markiert:
Set OutApp = CreateObject("Outlook.Application")
im Einsatz ist Outlook 2003
An was kann dies liegen?
Besten Dank für eine Hilfe!
mfg
Erich