>You've to specify at least that you're using SMTP and SMTP server address. There're some other configuration items you can specify.

oConf = createobject("cdo.configuration")
<pre>
oFlds = oConf.Fields
With oFlds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  && cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ;
    			"smtp.for.terra.com.br"
    .Update()
EndWith
*...
With loMsg
   .Configuration = oConf
*...

message: OLE IDispatch exception code 0 from ?: The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available

or

message 2 if I use "" instead: OLE IDispatch exception code 0 from CDO.Message.1: The transport failed to connect to the server.
..

Both on .send()

"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20