Sección de códigos , trucos y ejemplos para visual basic

302 - Comprobar una dirección de Email con VbScript Regular Expressions

Ejemplo para verificar una dirección de correo electrónico por medio de expresiones regulares

Para el ejemplo incluir la librería Microsoft VbScript Regular Expressions desde el menú referencias de visual basic

La propiedad en donde se indica la expresión regular es la propiedad Pattern, y el método que comprueba ( devolviendo True o False ) es el método Test del objeto RegExp

Colocar un CommandButton para abrir un InputBox que pide una dirección para comprobar

Nota: la expresión regular de este ejemplo está sacada de la Msdn

Código en el form

'*************************************************************************** '* Referencias: Microsoft vb Script Regular Expressions '* Controles: Un Command1 '*************************************************************************** ' Recibe la dirección de mail como argumento Private Function Comprobar_Mail(Direccion As String) As Boolean On Error GoTo ErrFunction Dim oReg As RegExp ' Crea un Nuevo objeto RegExp Set oReg = New RegExp ' Expresión regular oReg.Pattern = "^[\w-\.]+@\w+\.\w+$" ' Comprueba y Retorna TRue o false Comprobar_Mail = oReg.Test(Direccion) Set oReg = Nothing Exit Function 'Error ErrFunction: MsgBox Err.Description, vbCritical If Not oReg Is Nothing Then Set oReg = Nothing End If End Function Private Sub Command1_Click() Dim ret As Boolean Dim Direccion As String ' Abre el inputBox para entrar la dirección Direccion = InputBox(" Ingresar la direccion de correo " & _ " para verificar si es válida ") If Direccion = vbNullString Then Exit Sub ' ejecuta la función ret = Comprobar_Mail(Direccion) ' Resultado If ret Then MsgBox " Dirección válida ", vbInformation ' Ok Else MsgBox " No es válida ", vbCritical ' El mail no es correcto End If End Sub Private Sub Form_Load() Command1.Caption = " Comprobar Dirección de Mail " End Sub

Enlaces relacionados

Ejemplos de expresiones regulares

Buscar en Recursos vb