I am trying to use CDO to send e-mail.

I am using the following code:

Set email = CreateObject("cdo.message")
With email
.To = "someone@domain.com"
.Subject = "something"
.From = "someone@domain.com"
.Send
End With

I get the following error message when I run the code:

The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available.

I am running Outlook 2000 on Windows XP.

I tried an alernative way of sending e-mail, but I can't seem to find a way to have the "From" field option with the follwing code that does work:

Set olOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
' Outlook not running - start it
Set olOutlookApp = CreateObject("Outlook.Application")
blnNewOutlookApp = True
End If
' Create E-mail
Set olEMail = olOutlookApp.CreateItem(olMailItem)
With olEMail
.To = "someone@domain.com"
.Subject = "Test Message"
.Body = "Test
.Send
End With

Any suggestions on why the CDO code gives the above error message, and if there is a way to have the "From" field option using the CreateObject("Outlook.Application")? The main thing is that I need to have the ability to change the "From" field.

Thank you.