Error when trying to send an email from Word using VBA

[WonnySan]

I try to send an email from Word 2000 with:


Sub sendingemail()

ActiveDocument.HasRoutingSlip = True

subject = "Subject as textfield"

With ActiveDocument.RoutingSlip
.Subject = subject
.message = "Messagetext"
.AddRecipient "(e-mail address removed)"
.AddRecipient "(e-mail address removed)"
.Delivery = wdAllAtOnce
End With

ActiveDocument.Route

End Sub

At the line " .AddRecipient "(e-mail address removed)"" I get an Error 4198

Why doesn't this work. I took the code from
http://www.word.mvps.org/FAQs/InterDev/SendMail.htm

I can't use Outlook (company policy) so I think I need this kind of code to
work with in order to be able to send an email from Word 2000 with the
subject allready filled.

Wonny San