Buscar en Google

Busca en Todo Vb-Net

Búsqueda personalizada

lunes, 15 de octubre de 2012

Validar correo electrónico

Validar correo electrónico


Normalmente se nos presenta el inconveniente de saber si la dirección de correo electrónico que están escribiendo nuestros usuarios esta en un formato valido o no, para este fin el proceso a realizar es, la validacion de las partes básicas de  un correo electrónico, tal como una @ un . (Punto) y un dominio consecuente
Para poder lograr esta validacion usaremos una expresión regular, en vb.net


Espacio de nombres:

Imports System.Text.RegularExpressions


Función


  Public Function validar_Mail(ByVal sMail As String) As Boolean
        ' retorna true o false   
     Return Regex.IsMatch(sMail, _
               "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-  
               9-]+)*(\.[a-z]{2,4})$")
  End Function



Llamado a la funcion la cual puede ser desde el evente leave de el textbox deseado

 If validar_Mail(LCase(TxtMail.Text)) = False Then
     MessageBox.Show("Dirección de correo electronico no valida,   
     el correo debe tener el formato: nombre@dominio.com, " & _
     " por favor seleccione un correo valido", "Validación de   
     correo electronico", MessageBoxButtons.OK, 
     MessageBoxIcon.Exclamation)
     TxtMail.Focus()
     TxtMail.SelectAll()
End If



Saludos!
Y como siempre dudas o comentarios son bien recibidos