Validar direccion correo electronico

  • Thread starter Thread starter QuiqueVi
  • Start date Start date
Q

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
 
Back
Top