501 bogus mail from

adivenus21 · #1 (**permalink**) 09/09/2005, 06:29

Hice un formulario y lo probé con mi email y el MailHost de la compañía en que trabajo, y funciono perfecto. Pero cuando le cambie estos dos datos a los del lugar al que tiene que ir y lo pruebo, me sale este error:

501 bogus mail from

La dirección existe porque ya la habia hecho funcionar de otra manera. Pero necesito que me funcione así también.

Si no me he dado a entender me avisan. Lo que necesito saber es porque me sale este error. Si alguien me puede ayudar.

Mil gracias,

Datacenter1 · #2 (**permalink**) 09/09/2005, 06:47

501 es el código de error " Error en la sintaxis de los parámetros del comando"
Verifica que la dirección del remitente sea válida y tenga permiso para enviar en ese mail server

adivenus21 · #3 (**permalink**) 09/09/2005, 07:44

Pues lo raro es que tengo otro formulario que lo mando de otra forma, con los mismos datos de quien lo va a recibir y el mail host y me funciona bien, no me da error, pero de la segunda manera que lo hago (que es como lo quiero y necesito), con los mismos datos, me sale eso.

El email es correcto y el mail host tambien.

De esta forma me funciona:

Código:

<% 

If Request.Form.Count > 0 Then
	Body = vbCRLF & vbCRLF 
	Body = Body & "================================================" & vbCRLF
	Body = Body & "Formulario de Contacto" & vbCRLF 
	Body = Body & "Fecha : " & date & vbCRLF  
	Body = Body & "================================================" & vbCRLF & vbCRLF 	 
	
    For I = 1 to Request.Form.Count
		Select case I
			case 1
				Body = Body & "================================================" & vbCRLF
				Body = Body & "   DATOS GENERALES "& vbCRLF
				Body = Body & "================================================" & vbCRLF
			case 7
				Body = Body & vbCRLF & "================================================" & vbCRLF
				Body = Body & "   M  E  N  S  A  J  E " & vbCRLF
				Body = Body & "================================================" & vbCRLF
			case 8
				Body = Body & vbCRLF & "================================================" & vbCRLF
					
		End Select
		If I < 8 then
	    	Body = Body & Request.Form.Key(I) & ":  "  & Request.Form.Item(I) & vbCRLF
		end if
			   
    Next

    '*** send email notice
    Set Mail = Server.CreateObject("Persits.MailSender") 
			
			Mail.Host = "mail.blabla.com" ' Required
			Mail.Port = 25 ' Optional. Port is 25 by default 
			Mail.From = request.form("Email") ' Required
			Mail.FromName = "Blabla.com"  ' Optional 
			Mail.AddAddress "[email protected]", "Informacion - "
			Mail.Subject = "Formulario de Contacto de " & request.form("nombre") & " " & request.form("apellidos") 
			Mail.Body = Body
			On Error Resume Next
			Mail.Send
			If Err <> 0 Then
 				 Response.Write "ERROR FATAL - Mensaje NO enviado: " & Err.Description
				 REsponse.end
			else
				response.redirect "gracias.htm"
			End If 
    
End If

%>

Pero con esta me sale el error:

Código:

<% 

If Request.Form.Count > 0 Then
	dim vbCRLF
	vbCRLF = chr(13) & chr(10)
	Body = "Content-Type: text/html; Charset=us-ascii"
'Body = Body & "Content-Transfer-Encoding: 8bit"
Body = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"

'Body = Body & "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
Body = Body & "<html>"
Body = Body & "<head>"
Body = Body & "<title>Blabla.com</title>"
Body = Body & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
Body = Body & "<style type =""text/css"">" 
Body = Body & "TD {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; color: #124E86;}"
Body = Body & "</style>" 
Body = Body & "</head>"
Body = Body & "<body>"
Body = Body & "<table width=""450"" border=""1"" cellpadding=""5"" cellspacing=""0"" bordercolor=""124E86"">"
Body = Body & "<tr><td height=""25"" bgcolor=""#C9E5EE""> <div align=""center""><font color=""#124E86""><strong>SOLICITUD DE CITA</strong></font></div></td></tr>"
Body = Body & "<tr><td height=""25""> <div align=""center""><font color=""#124E86""><strong>" & date & "</strong></font></div></td></tr>"
	
    For I = 1 to Request.Form.Count
		Select case I
			case 1
				Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
				Body = Body & "<tr><td height=""25"" bgcolor=""#C9E5EE""><font color=""#124E86""><strong>" & "DATOS GENERALES" & "</strong></font></td></tr>"
				Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
			case 7
				Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
				Body = Body & "<tr><td height=""25"" bgcolor=""#C9E5EE""><font color=""#124E86""><strong>" & "DATOS PARA LA CITA" & "</strong></font></td></tr>"
				Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
			case 15
				Body = Body & "<tr><td height=""2"" bgcolor=""#C9E5EE"">" & hr & "</td></tr>"
					
		End Select
		If I < 15 then
			Body = Body & "<tr><td height=""25"" bgcolor=""#FFFFFF"">" & Request.Form.Key(I) & ":  "  & Request.Form.Item(I) & "</td></tr>"
		end if
			   
    Next
	Body = Body & "</table></body></html>"
	

    '*** send email notice
    Set Mail = Server.CreateObject("Persits.MailSender") 
			Mail.IsHTML = True
			Mail.Host = "mail.blabla.com" ' Required
			Mail.Port = 25 ' Optional. Port is 25 by default 
			Mail.From = request.form("Email") ' Required
			Mail.FromName = "Blabla.com "  ' Optional 
			Mail.AddAddress "[email protected]", "Hacer una Cita - "
			Mail.Subject = "Formulario para Hacer una Cita de " & request.form("nombre") & " " & request.form("apellidos") 
			Mail.Body = Body
			On Error Resume Next
			Mail.Send
			If Err <> 0 Then
 				 Response.Write "ERROR FATAL - Mensaje NO enviado: " & Err.Description
				 REsponse.end
			else
				response.redirect "gracias.htm"
			End If 
    
End If

%>

Y con esta segunda forma lo probe con otros datos y funciona perfecto.

Alguien que me diga por que en una me funciona y en la otra no.

PD: el email y el mail host son inventados para mostrar el ejemplo. :)

adivenus21 · #4 (**permalink**) 12/09/2005, 11:35

Alguien......................

Alguien sabe que podria estar pasando?????

alfeyo · #5 (**permalink**) 12/09/2005, 11:42

Código HTML:

Mail.AddAddress "[email protected]", "Hacer una Cita - "

creo que debe ser asi:
Mail.AddAddress "[email protected]"

lo de hacer una cita no se para que lo quieres

sjam7 · #6 (**permalink**) 12/09/2005, 11:51

usas el aspmail no? tienes instalado el componente en la maquina?

adivenus21 · #7 (**permalink**) 12/09/2005, 14:52

Cita:

Iniciado por alfeyo

creo que debe ser asi:
Mail.AddAddress "[email protected]"

lo de hacer una cita no se para que lo quieres

Gracias por la respuesta, pero eso no es....

Si el codigo funciona perfectamente cuando utilizo el mail host de donde trabajo y mi email (para las pruebas), pero cuando le cambio esos unicos dos datos por los que deben de ir, no me funciona, me sale ese error, y la dirección existe....

sjam7:
Que es eso que me dices? que diferencia haria?

sjam7 · #8 (**permalink**) 12/09/2005, 16:10

la diferencia seria que no puedes usar el aspemail si no lo tienes instalado

trasgukabi · #9 (**permalink**) 13/09/2005, 00:36

el componente está instalado(de una de las formas le funciona). La pregunta, creo, es: ¿le estás dando en los dos casos el mismo valor a mail.from? ese error salta porque no se tienen permisos suficientes para enviar mensajes a no ser que el .from pertenezca al dominio del servidor.

Si es así y el servidor es uno contratado, me temo que sólo te quedan dos opciones:
-Intentar que te abran el SMTP a otros dominios(que no creo que lo hagan por seguridad)
-Poner como .from fija a una cuenta del dominio y reseñar la dirección del cliente dentro de .body o como quieras....

Y si no es así...al menos lo hemos intentado....

adivenus21 · #10 (**permalink**) 13/09/2005, 10:07

Bueno, gracias a todos por las respuestas, ya vere que hago entonces...