Error when trying to send an email from Word using VBA

W

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 "[email protected]"
.AddRecipient "[email protected]"
.Delivery = wdAllAtOnce
End With

ActiveDocument.Route

End Sub

At the line " .AddRecipient "[email protected]"" 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
 
Top