codigo
Publicado por kero (18 intervenciones) el 03/09/2006 00:22:07
HOLA A TODOS ALGUIEN TIENE UN CODIGO EN VISUAL BASIC 6.0 QUE SIRVA PARA VALIDAR UN EMAIL Y ME LO PUEDA FACILITAR POR FA GRACIAS
Valora esta pregunta


0



Function ValidarCorreoElectronico(email As String) As Boolean
Dim re As Object
Set re = CreateObject("VBScript.RegExp")
' Patrón de expresión regular para validar el correo electrónico re.Pattern = "^[\w\.-]+@[\w\.-]+\.\w+$" ' Realizar la validaciónValidarCorreoElectronico = re.Test(email)
End Function

