formulario que envia a correo pero no me llega

LIZ
14 de Mayo del 2006
hola,este es el codigo. me funciona ya que me sale la palabra "ENVIADO" despues de mandarlo,pero no me llega a mi correo. Por que?????????
<%
Dim MyCDO, nombre
nombre=request.Form("nombre")
Set MyCDO = Server.CreateObject("CDONTS.NewMail")
If IsObject (MyCDO) Then


MyCDO.From = "[email protected]"
MyCDO.To = "[email protected]"
MyCDO.Subject = "Consulta de tarot"


MyCDO.Body = nombre

MyCDO.Send
Set MyCDO = nothing
response.Write("enviado a correo")
end if
%>
gracias