Formulario con AspMail

chechu · #1 (**permalink**) 05/05/2005, 02:29

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és</p>
<p><a href="index.htm">Volver</a></p>
</body>
</html>

graciassssss

ludovico2000 · #2 (**permalink**) 23/05/2005, 10:17

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