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
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
Enviado por: Luis Ramirez