sendusing -Konfigurationswert ist ungültig, finde das Problem nicht

Hallo,

möchte gern mit eine vbs Skript E-mails versenden.

Dim objEMail, body

Const sender = "lisa@server.de"
Const receiver = "empfaenger@server.de"
Const subject = "E-Mail-Versand ohne Client"
Const server = "smtp_mail.server.de"
Const user = "lisa@server.de"
Const password = "12345lisa"
Const schema = "http://schemas.microsoft.com/cdo/configuration/"

body = "Das ist der Text der E-Mail."

On Error Resume Next

Set objEMail = CreateObject("CDO.Message")
With objEMail
.From = sender
.To = receiver
.subject = subject
.Textbody = body
.AddAttachment "d:\test\blabla.doc"
With .Configuration.Fields
.Item(schema & "sendusing") = 2
.Item(schema & "smtpserver") = server
.Item(schema & "smtpserverport") = 25
.Item(schema & "smtpauthenticate") = 1
.Item(schema & "sendusername") = user
.Item(schema & "sendpassword") = password
End With
.Configuration.Fields.Update
.Send
End With

Set objEMail = Nothing
If Err.Number <> 0 Then
MsgBox Err.Number & vbCrLf & Err.Description
Else
MsgBox "Mail wurde erfolgreich versendet."
End If

On Error GoTo 0


Werte habe ich natürlich passend eingetragen, smtp Server kann ich mit einem normal E-mail Client auch normal benutzen.
Wenn ich diese Skript laufen lassen kommt leider immer immer der Fehler -21477220960 Der "sendunsing" -Konfigurationswert ist ungültig
Wie gesagt der SMTP Server ist erreichbar und kann auch mit einem E-mail Client normal genutzt. Bin ein bischen ratlos.

Danke für jeden HInweis.

Gruß Claus