Sending Email with CDO Object

I am trying to send mail using CDO.
The line below ("objMessage.Send") blows with this error:
-21472200960 "Send Using" configuration is invalid"

Here is the link where I got this code:
http://www.paulsadowski.com/WSH/cdo.htm#LoadFromFile
At this link the Dim for objMessage was not listed, so, not knowing how
to declare it, I declared it as a straight object.

Here's the code:
<begin code>
    Dim objMessage As Object
    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = "Example CDO Message"
    objMessage.From = "MiscAddress@[EMAIL PROTECTED]
"
    objMessage.To = "FromTheDept@[EMAIL PROTECTED]
"
    objMessage.TextBody = "Test message sent at " & Format(Date,
"MMDDYYYY") & "-" & Format(Time, "HHMMSS")
    objMessage.Send
<end code>

Under Tools/References" I have "Microsoft CDO for Windows 2000" checked,
as it references C:\Windows\System32\CDOSys.DLL

What am I doing wrong here?







*** Sent via Developersdex http://www.developersdex.com
***