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ón
ValidarCorreoElectronico = re.Test(email)
End Function