Ver Mensaje Individual
  #2 (permalink)  
Antiguo 22/07/2002, 10:11
dagui
 
Fecha de Ingreso: julio-2002
Mensajes: 219
Antigüedad: 22 años, 10 meses
Puntos: 0
Re: no envia mi formulario por email:¡¡ayuda!!!

Hola.

Mi consejo es que tengas una página ASP de transición, es decir, a esa página le pasas los datos del formulario y desde allí puedes utilizar la siguiente función para enviar un correo:

function enviarCorreo(dirDe, dirPara, titulo, cuerpo)
'Declaración de variables a usar
Dim OBJ_EMAIL

'Creación del objeto para enviar el correo
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")

OBJ_EMAIL.From = dirOrigen 'No hace falta especificar un email valido
OBJ_EMAIL.To = dirDestino
OBJ_EMAIL.Subject = titulo
OBJ_EMAIL.Body =cuerpo ' Cuerpo del mensaje
OBJ_EMAIL.Send 'Envia el mail

'Cierra el Objeto
Set OBJ_EMAIL = Nothing
end function

Cuando recibas los datos del formulario en la página Transicion.asp, debes captar estos datos y enviarlos a la función, de la siguiente manera:

<%
Dim nombre, apellidos, str

nombre = Request.Form("nombre")
apellido = Request.Form("apellidos")

Call enviarCorreo("[email protected]&quot ;, "[email protected]"
, "Prueba", "NOMBRE COMPLETO: " & nombre & " " & apellidos)

%>

Espero te sirva. Suerte.