Hola Demente...
Aqui tienes un ejemplo....
Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
With objCDO
.To = strto
.From = strfrom
.Subject = strsubject
.HtmlBody = strbody
.Send
End With
Set objCDO = Nothing
Se entiende que lo que tiene cada parametro (.To, .From, etc) son referencias a variables.....
Cualquier duda solo avisa...
Saludos..