aspemail, algo pasa xDD???

[jorcri]

Hola, mirar he montado el codigo, que se rellene el formulario y al enviar, carga de nuevo la misma pajina.

y no hay manera, si relleno el nombre y el email al formulario, no lo manda me da error de

"551 Sender address is not valid for your login. Check your email program settings."

en cambio si le meto solo el nombre o solo el email, SI me lo manda correctamente, es como si se le fuera la pelota al tener los dos, o que de error de que la dir no es valida, pero no tiene porque comprobarla, ya que es la que escribe el usuario, la dir de envio es la de (Mail.AddAddress "[email protected]")

a ver si le veis alguna solucion:
el host funciona de todas maneras, con "miweb.com" o "mail.miweb.com" o la ip

Código:

<%
strHost = "mail.miweb.com"
If Request("envia") <> "" Then
	Set Mail = Server.CreateObject("Persits.MailSender")
	Mail.Host = strHost

' requiere autentificación
	Mail.Username = "[email protected]"
	Mail.Password = "xxxxxxx"

	Mail.From = Request("email") 
	Mail.FromName = Request("nombre") 
	Mail.AddAddress "[email protected]"
	Mail.Subject = Request("asunto")
	Mail.Body = Request("consulta")

             Mail.ContentTransferEncoding = "Quoted-Printable"
	strErr = ""
	bSuccess = False
	On Error Resume Next
		Mail.Send
	If Err <> 0 Then 
		strErr = Err.Description
	else
		bSuccess = True
	End If
End If
%>

aqui el formulario:

Código:

<form method="post" action="contacto.asp">
email: <input name="email" type="text">
Nombre: <input name="nombre" type="text">
Asunto: <input name="asunto" type="text">
Consulta: <textarea name="consulta"> </textarea>



<input name="Submit" type="reset" class="botonzonas" value="Borrar">

<input name="envia" type="submit" class="botonzonas" value="Enviar">
</form>

y por si lo quieres testear, para ver el error, metiendo esto por el body, dira si esta bien enviado o el error que sale:

Código:

<% 
If strErr <> "" Then 
%>
        Ha ocurrido un error: 
   <%
	 = strErr 
   %>
<% 
End If
%>
   <%
              If bSuccess Then 
   %>
        Mensaje enviado con exito.
<%
End If
%>

ya no se que hacerle. la madre que trajo al los del server que no usan Cdonts, estaria mas facil, xDD

muchas gracias y un saludo!!!

[trasgukabi]

No se me ocurre más que una cosa( que, ciertamente, es bastante improbable): que si al servidor SMTP le llega una petición de envío desde su propio dominio, lo mande con una dirección estándar.

Lo que me ha llevado a pensar ésto son las restricciones de relay de los servidores SMTP (si las hubiera, no te dejaría enviar un mensaje con un sender que no existiera en ese dominio)

Como decía mi abuela: semilla plantada, discusión segura....

(a saber si será verdad todo lo que digo. Si es que soy un puto demonio)

[jorcri]

Gracias, pero no, lo que se le deve de ir la pelota con el aspemail, ya que si en el formulario, solo relleno el Nombre, Asunto y La consulta, funciona, o al reves, si meto email, Asunto y consulta, tambien funciona, es si mando los dos campos rellenados cuando se le va la pelota:

Mail.From = Request("email")
Mail.FromName = Request("nombre")

el caso es que si lo hago manualmente, osea usando tambien un campo para (Mail.AddAddress ), es decir, asi:

Código:

<%
strHost = "mail.miweb.com"
If Request("envia") <> "" Then
	Set Mail = Server.CreateObject("Persits.MailSender")
	Mail.Host = strHost

' requiere autentificación
	Mail.Username = "[email protected]"
	Mail.Password = "xxxxxxx"

	Mail.From = Request("email") 
	Mail.FromName = Request("nombre") 
	Mail.AddAddress Request("desde")   
	Mail.Subject = Request("asunto")
	Mail.Body = Request("consulta")

             Mail.ContentTransferEncoding = "Quoted-Printable"
	strErr = ""
	bSuccess = False
	On Error Resume Next
		Mail.Send
	If Err <> 0 Then 
		strErr = Err.Description
	else
		bSuccess = True
	End If
End If
%>

y el campo lo meto a mano, en el form asi (metiendo el mismo email que antes, osea que a mano xuta y aotumatico se lia:

Código:

<form method="post" action="contacto.asp">
email: <input name="email" type="text">
Nombre: <input name="nombre" type="text">
Asunto: <input name="asunto" type="text">
Desde: <input name="desde" type="text">
Consulta: <textarea name="consulta"> </textarea>



<input name="Submit" type="reset" class="botonzonas" value="Borrar">
<input name="envia" type="submit" class="botonzonas" value="Enviar">
</form>

y asi si funciona, pero claro, yo quiero que ese campo, este oculto, ya que es un formulario normal y corriente, con los datos tipicos y la gente no tiene porque rellenar mi direccion de email, y el server solo tiene instalado aspemail, uhmmm.

esto me tiene mosca!!!

[Elbrinner]

Puede ser que este enviando un campo en blanco y de ahi viene el fallo.

desde poner asi
Mail.From = Request("email")
Mail.FromName = Request("nombre")
Mail.AddAddress Request("desde")
Mail.Subject = Request("asunto")
Mail.Body = Request("consulta")

haga eso:
email=request.form("email")
asunto=request.form("asunto")
if email = "" then
response.write "fallo"
end if
if asunto = "" then
asunto = "sin asunto"
end if
Mail.From = email
Mail.Subject = asunto
...

[jorcri]

gracias pero da el mismo error.

mirara si meto el mismo valor para los dos si que funciona y es lo que me extraña:

Código:

Mail.From = Request("email") 

Mail.AddAddress "[email protected]"

y en el form le introduzco en el campo "email" el mismo email de [email protected], osea el que enviara el correo a mi email si funciona.

Código:

<input name="email" type="text" value="[email protected]">

el error me lo da solo si meto un email distinto al de la cuenta que se usara para el envio, si no meto el email, es decir solo relleno esto:

nombre = pepe
asunto = lo que sea
consulta = lo que sea

el email que recibo me da:

email = pepe
nombre = pepe
asunto = lo que sea
consulta = lo que sea

buff no se, probare en hacer una pajina que reciba los resultados del form y luego los envia, veremos a ver!!!!

bueno si veis algo me lo decis, muchas gracias.