Juan
12 de Junio del 2003

Tengo una funcion que valida un email

Private Sub Validar_Email(email As String)
Dim myReg As RegExp
Dim email As String
Set myReg = New RegExp
myReg.IgnoreCase = True
myReg.Pattern = "^[w-.]+@w+.w+$"
'sustituye "[email protected]" por el correo que quieras comprobar
email = "[email protected]"
MsgBox "El resultado del checkeo es: " & myReg.Test(email)
End Sub

Pero de da un error en la declaracion de
Dim myReg As RegExp

Alguien sabe que libreria tengo que incluir?

Mario Cardona
12 de Junio del 2003

Debe incluir :
C:WINDOWSSYSTEMVBSCRIPT.DLL
que figura como :

Microsoft VBScript Regular Expressions 5.5