Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/03/2003, 17:15
isdito
 
Fecha de Ingreso: marzo-2003
Mensajes: 35
Antigüedad: 22 años, 2 meses
Puntos: 1
No Falla Pero No Manda

<%
sDestino="[email protected]"
sRemite=Trim(CStr(Request.Form("email")))
sBody=CStr(Request.Form("textarea"))
'Creamos el objeto
set oMail=CreateObject("CDONTS.NewMail")
'Establecemos sus propiedas
oMail.To = sDestino
oMail.From = sRemite
'Esto lo añado yo
sBody=sBody & VbCrLf & VbCrLf & "Email recivido de la pagina www.idlight3d.com "
sBody=sBody & "Para asistir a dudas...."

'Asignamos el cuerpo del mensaje
oMail.Body=sBody
'Y fuera!
oMail.Send

'Sacamos la basura
set oMail=nothing

Response.Write("El correo electrónico ha sido enviado correctamente a <i>"&sDestino&"</i>.")
%>




A que es debido por no tener el smtp activado, si no lo tengo activado y utilizo el MDAEMON no puedo


Gracias