Error 800401f3

[McEld]

Estoy haciendo pruebas para enviar emails con ASP. El caso es que me da un error y no puedo corregirlo:
Objeto Server error 'ASP 0177 : 800401f3'

Código:

<%
Dim sDestinatario, sAsunto, sCuerpo
Dim oMail    'EL OBJETO CDO

sAsunto= "E-mail de prueba desde ASP"

'CREAMOS EL CUERPO DEL MENSAJE 
sCuerpo= "Este es mi primer mensaje enviado desde ASP"
sDestinatario="[email protected]"

'ENVIAMOS EL EMAIL --> Aqui es donde da el error
set oMail=Server.CreateObject("CDONTS.NewMail")

'ESTABLECEMOS LAS PROPIEDADES DEL OBJETO
oMAil.From= "Yo [email protected]"
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sCuerpo

'ENVIAMOS EL EMAIL
oMail.Send

set oMail = nothing
Response.Write ("Mensaje enviado.")

%>

Agradeceria que alguien me ayudara lo antes posible. Muchas gracias de antemano.