ActiveX component can't create object: 'CDO.message'

[hoho^_^]

hello when I run a script on my server I get a error
messeage..

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDO.message

I don't know how to solve it,Thank you for your reply^_^

 

[hoho]

OS:Windows 2000 (Exchange 2000 installed). I'm trying to create a workflow Application using exchange server

Sub SendMessage (strTo, strSubject, strBody

Set oMsg = CreateObject("CDO.Message"

oMsg.To = strT
oMsg.From = WorkflowSession.Sende
oMsg.Subject = strSubjec
oMsg.TextBody = strBod
oMsg.Sen

Set oMsg = Nothin

End Su