Personalizar error de ASPemail ?

[President]

Utilizo el componente de Persists Sofware para enviar emails, o sea el ASPemail:
El código que tengo es:

Código:

Correu = Server.CreateObject("Persits.MailSender")
...
Correu.From="direccion_de_email"
...

El componente funciona perfectamente y cuándo le pones en la propiedad .from una dirección no válida él lo detecta y te sale el siguiente error en la web:

Código:

Persits.MailSender.4 error '800a0006' 
550 5.1.8 <[email protected]> Invalid address

Mi pregunta es:
Se puede saber antes de enviar el email si la dirección es correcta y así personalizar el error y sacar un mensaje tipo "la dirección introducida no existe !" ???

Así podriamos poner un if para no enviar el mensaje en caso de una dirección no correcta y la pàg. no petaria, sino que sólo sacaríamos el mensaje de error !

Espero haberme explicado bien !

Muchas gracias!

[AlZuwaga]

Sería algo así

<%
' codigo
'... mas codigo
on error resume next
'esta es la línea que da error
if error.number > 0 then
response.write "El email no es válido"
err.clear
end if
'... mas codigo
%>

[Ruchu]

bueno, lo que ha escrito dazuaga seria para ver si el email es correcto o no despues de intentar enviar el email.

esta funcion es para verlo antes:


'Funcion que comprueba si un e-mail es valido. Devuelve:
' 0 -> si es nulo o esta vacio
' 1 -> Si el e-mail es incorrecto
' 2 -> Si el e-mail es valido

Function Validar_EMail(EMail)

Dim Con

If EMail = "" Then
Validar_EMail = 0
Exit Function
End If

EMail = LCase(EMail)

If (Left(EMail, 1) = "." Or Left(EMail, 1) = "@") Then
Validar_EMail = 1
Exit Function
End If

If (Right(EMail, 1) = "." Or Right(EMail, 1) = "_" Or _
Right(EMail, 1) = "@") Then
Validar_EMail = 1
Exit Function
End If

Con = 0

For i = 1 To Len(EMail)
If (Mid(EMail, i, 1)) = "@" Then
Con = Con + 1
End If
Next

If Con > 1 Or Con = 0 Then
Validar_EMail = 1
Exit Function
End If

Con = 0

For i = 1 To Len(EMail)
If (Mid(EMail, i, 1)) = "@" Then
For j = i To Len(EMail)
If (Mid(EMail, j, 1)) = "." Then
Con = Con + 1
End If
Next
End If
Next

If Con < 1 Then
Validar_EMail = 1
Exit Function
End If

Con = 0

For i = 1 To Len(EMail)
If (Mid(EMail, i, 1) = ".") Or (Mid(EMail, i, 1) = "@") Then
If (Mid(EMail, i + 1, 1) = ".") Or (Mid(EMail, i + 1, 1) = "@") Then
Validar_EMail = 1
Exit Function
End If
End If
Next

For i = 1 To Len(EMail)
If (Mid(EMail, i, 1) < "a" Or Mid(EMail, i, 1) > "z") And _
(Mid(EMail, i, 1) < "0" Or Mid(EMail, i, 1) > "9") And _
Mid(EMail, i, 1) <> "." And Mid(EMail, i, 1) <> "_" And _
Mid(EMail, i, 1) <> "@" Then
Validar_EMail = 1
Exit Function
End If
Next

Validar_EMail = 2

End Function

[Ruchu]

y que por cierto, en la validacion de esta funcion no se escapa practicamente nada.

[President]

Antes de nada, gracias a los 2 por contestar mi mensaje !

Ruchu:
Yo también utilizo una función parecida para validar las direcciones de email, pero una cosa es saber si la dirección tiene el formato correcto y otra (que es lo que hace el persists ASPemail) es saber si el dominio del email existe de verdad.
Por ejemplo:
Si yo pongo [email protected]
tanto mi función cómo la tuya diran que es correcta pero al ejecutarse el send del componente ASPemail petara, pq sólo miran el formato y el dominio jajajaja no existe. Lo que yo buscaba es saber mediante ASP o mediante una propiedad del mismo ASPemial si el dominio "jajajaja.com" existe.

Dazuaga:
Cómo no me acordé del "on error resume next" !!!!!!
Voy a probarlo, espero funcione bien !

Lo que yo estaba intentando hacer es personalizar el error des de el IIS pero no lo supe hacer .
Voy a Errores personalizados cambio el nombre del fichero html (página de error personalizada) pero no me va !!
Me sale la pág. de microsoft de siempre :-p
Alguien puede decirme que hago mal ?
Además en la lista de errores no sale el error que da el Persists ASPemail cuándo peta !!
Sera que no se puede hacer de esta manera !

Lo dicho, a los dos...
Muchas Gracias !! ;)

[Lenam]

El persis ASPEmail, cuando envia un correo a una direccion de email que es correcta pero no existe en ralidad no te da error!!
o almenos a mi.

Lo que si que te devolvera un correo a la direccion que le estes poniendo como direccion del remitente (From).

No te contestado la respuesta pero alomejor te sirve de algo lo que te digo.

adios!!

[President]

Hola Lenam !
Tienes la última versión instalada?
Puedes ver tu mismo cómo peta al ponerle una dirección con un dominio que no existe en:

<a href='ir.asp?http://www.eurosigmaconsultors.com/main.asp?opc=7' target='_blank'>http://www.eurosigmaconsultors.com/main....</a>

Prueba y verás !
;)

[President]

Alguien tiene alguna idea ?

[Ruchu]

vamos a ver:

una dir email que puede ser esta:

[email protected]

si este email pasa por una funcion de validacion, pasara como correcta, y si pasa directamente por aspemail tambien pasara como correcta, lo que ocurre que despues de enviar el email llegara devuelto porque logicamente esa direccion no existe.

creo que lo que tu buscas es algun componente o algun codigo que verifique realmente si un email existe poniendose en contacto con el server de correo, y si este existe, entonces enviarlo.

bueno, no conozco ningun componente ni ningun codigo que haga esa funcion, la unica cosa que conozco que haga eso es el propio servidor de correo saliente, que como dije antes es el que te envia de vuelta el email inexistente.

P.D. el que yo no conozca ningun codigo ni componente que verifique la existencia de un email, porsupuesto que no quiere decir que no exista, es mas, no te extrañe que si que exista. si alguien sabe de alguno¿?¿? que lo diga <img src='images/tongue.gif' width=15 height=15 align=middle>:P

[luisvasquez]

Amigos,

Aunque este post es algo viejo, seguramente hay gente muy interesada en la más apropiada validación de correos usando ASP.

En esta dirección http://coveryourasp.com/ValidateEmail.asp pueden ver la descripción de un componente HexValidEmail que permite 3 cosas:
1. Validar la correcta estructura del correo, o sea la sintaxis.
2.- Validar que el dominio exista.
3.- Lo mejor de todo...validar que el buzón REALMENTE exista en el dominio,

El problema es que tienes que instalar el componente en el server y en mi caso, no puedo ya que uso hosting compartido.

En la siguiente dirección http://www.planet-source-code.com/vb...txtCodeId=6980
hay una función que valida hasta el paso 2, o sea, la sintaxis y el dominio, lo que en muchos casos es suficiente.

He tratado de hecerlo funcionar, pero cuando intenta validar el dominio se queda la página en un loop eterno (cuando lo hago en local) y si lo monto al server, me dice que cualquier dirección es invalida aunque tenga el formato correcto y el dominio exista realmente.

Si alguno de ustedes implementa esto exitosamente, les ruego lo comenten.

Estoy haciendo una forma de "dile a un amigo", y quiero evitar que la gente la llene de basura como [email protected].

saludos y gracias,

[luisvasquez]

Gente...aca va otra url interesante para validar emails http://www.aspnetmx.com/faq.aspx