Validar email en VB

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