Foros del Web » Programando para Internet » ASP Clásico »

Formulario con AspMail

Estas en el tema de Formulario con AspMail en el foro de ASP Clásico en Foros del Web. Hola, estoy intentando hacer un formulario para enviarlo con aspmail, pero no me funciona y no se que hago mal... este es el formulario... <Form ...
  #1 (permalink)  
Antiguo 05/05/2005, 02:29
 
Fecha de Ingreso: enero-2002
Mensajes: 91
Antigüedad: 22 años, 5 meses
Puntos: 1
Formulario con AspMail

Hola, estoy intentando hacer un formulario para enviarlo con aspmail, pero no me funciona y no se que hago mal...

este es el formulario...

<Form method="POST" action="aspmail.asp">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="39%" valign="top" bgcolor="#CF025F" class="txtBlanco"><div align="center">Observaciones</div></td>
<td width="61%" bgcolor="#FECBE2"><textarea name="mensaje" cols="40" rows="3" class="txtMenu" id="mensaje"></textarea></td>
</tr>
<tr>
<td valign="top" class="txtBlanco style2">a</td>
<td><input name="Submit" type="submit" class="txtMenu" value="enviar">
<input name="Submit2" type="reset" class="txtMenu" value="borrar"></td>
</tr>
</table>
</form>

y esta es la pagina asp


<html>
<%

'Recogemos los datos del formulario
mensaje = Request.Form("mensaje")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost" ' servidor SMTP de tu dominio, segun el proveedor
Mail.Port = 25
Mail.From = "info@casadefederico" ' Direccion del que envia
Mail.FromName = "Solicitud de Reserva" ' nombre del que envia
Mail.AddAddress [email protected] 'direccion del destinatario, tambien puede ser una variable
Mail.Subject = mensaje
Mail.Body = mensaje
Mail.Send
If Err <> 0 Then
response.write "Error encontrado: " & Err.Description
end if
%>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body>
<p>Gracias por su inter&eacute;s</p>
<p><a href="index.htm">Volver</a></p>
</body>
</html>



graciassssss
__________________
saludos
  #2 (permalink)  
Antiguo 23/05/2005, 10:17
Avatar de ludovico2000  
Fecha de Ingreso: noviembre-2003
Ubicación: Bizkaia
Mensajes: 1.315
Antigüedad: 20 años, 7 meses
Puntos: 2
Habla con tu proveedor de hosting, yo me estuve volviendo loco y era cosa de las definiciones de SU servicio: me mandaron un mail indicando cómo tenía que poner el código y listos.

En mi caso (arsys) es:
Código:
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.mipagina.com" ' el servidor SMTP que envía
Mail.From = "[email protected]" ' remitente del mensaje
Mail.FromName = Mail.EncodeHeader ("Envío Automático") ' Nombre del remitente
Mail.AddAddress "[email protected]"
' necesario para el envio = remitente
'asunto:
Mail.Subject = "correo de: " & campodelform
'cuerpo:
Mail.Body = "<HTML><HEAD><title>Correo de: " & campodelform & "</title><resto del mail en formato html para que se vea como quiera>...</HTML>"

Mail.IsHTML = True     

On Error Resume Next
'Enviamos el mail controlando errores
Mail.Sendtoqueue
If Err <> 0 Then
   Response.Write "Error encountered: " & Err.Description
End If

Última edición por ludovico2000; 23/05/2005 a las 10:23
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 10:51.