Validar direccion correo electronico

[QuiqueVi]

Hola al foro.

En el evento "al salir", de un cuadro de texto, tengo el siguiente control
de formato de dirección de correo, pero necesito alguno más pulido.
¿Alguuien lo tiene?

Gracias anticipadas


Function EsMail(strCadena As String) As Boolean
'Comprueba si es un e-mail
If strCadena = "" Or Len(strCadena) <= 5 Then
EsMail = False
Else
If InStr(1, strCadena, "@", vbTextCompare) And InStr(1, strCadena, ".",
vbTextCompare) Then
EsMail = True
End If
End If
End Function

 

[John Nurick]

Try

http://www.google.com/search?&q="visual+basic"+function+"email+address"+validation

and you'll find several functions. Probably none of them is 100%
correct.