formulario que envia a correo pero no me llega
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
<%
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