validar emails

alguien sabe como hacer un validador de emails sin usar
webservices??

¿Validar en que sentido? ¿Si esta correctamente escrito o si existe en el
dominio?

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Hay dos cosas infinitas: el universo y la estupidez humana.
Albert Einstein

Validar sintaxis y si existe en el dominio, vi que hay
algunos componentes hechos en .net como los de component
space pero son costosos y mi intencion es saber al menos
si hay algun tutorial al respecto esplicando la tecnica o
codigo fuente del cual aprender.

Saludos,

Walter

alguien sabe como hacer un validador de emails sin usar
webservices??

¿Validar en que sentido? ¿Si esta correctamente escrito

o si existe en el

dominio?

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Hay dos cosas infinitas: el universo y la estupidez

humana.

Albert Einstein


.

si el caso es que deseas validar la sintaxis te paso un codigo que encontre
por alli y me ayuda mucho

Private Function funValidaEmail(ByVal strEmail As String) As Boolean

Dim strArray
Dim strItem
Dim i
Dim c
Dim blnIsItValid

' asumimos que el correo es correcto por omision
blnIsItValid = True

' separamos el dominio en dos partes
strArray = Split(strEmail, "@")

' si existen mas o menos que dos partes entonces ejecutamos
If UBound(strArray) <> 1 Then
blnIsItValid = False
funValidaEmail = blnIsItValid
Exit Function
End If

' revisamos cada parte
For Each strItem In strArray

If Len(strItem) <= 0 Then
blnIsItValid = False
funValidaEmail = blnIsItValid
Exit Function
End If

' revisamos cada caracter de cada parte
' solamente los siguientes "abcdefghijklmnopqrstuvwxyz_-."
' o los diez digitos permitidos
For i = 1 To Len(strItem)
c = LCase(Mid(strItem, i, 1))
' if there is an illegal character in the part
If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not
IsNumeric(c) Then
blnIsItValid = False
funValidaEmail = blnIsItValid
Exit Function
End If
Next

' el primer y ultimo caracter de cada parte no puede ser .
(punto)
If VisualBasic.Left(strItem, 1) = "." Or
VisualBasic.Right(strItem, 1) = "." Then
blnIsItValid = False
funValidaEmail = blnIsItValid
Exit Function
End If
Next

' la segunda parte (dominio.ext) debe contener . (punto)
If InStr(strArray(1), ".") <= 0 Then
blnIsItValid = False
funValidaEmail = blnIsItValid
Exit Function
End If

'revisamos la longitud o largo de la extension
i = Len(strArray(1)) - InStrRev(strArray(1), ".")
'la longitud de la extension puede ser solamente 2, 3, or 4
'cubrimos la nueva extension "info"
If i <> 2 And i <> 3 And i <> 4 Then
blnIsItValid = False
funValidaEmail = blnIsItValid
Exit Function
End If

'despues de .(punto) no puede seguir otro punto
If InStr(strEmail, "..") > 0 Then
blnIsItValid = False
funValidaEmail = blnIsItValid
Exit Function
End If

' finalizamos
funValidaEmail = blnIsItValid

End Function




"walter" escribió en el mensaje
news:29e201c51365$55690de0$

alguien sabe como hacer un validador de emails sin usar
webservices??

Hola Walter,

puedes utilizar expresiones regulares para validar si una dirección de
correo electrónico es válida o no.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"walter" wrote:

alguien sabe como hacer un validador de emails sin usar
webservices??

Gracias, jorge, sabes donde pueda encontrar info para
validar contra el dominio una determinada cuenta, como
para aprender la tecnica

saludos,

Walter

Hola Walter,

puedes utilizar expresiones regulares para validar si

una dirección de

correo electrónico es và¡lida o no.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"walter" wrote:

alguien sabe como hacer un validador de emails sin

usar

webservices??

.