Validar correos electronicos

Jose Luis Proaño Acosta

unread,

Nov 5, 2014, 3:59:33 PM11/5/14

to publice...@googlegroups.com

Hola a todos y que Dios los bendiga, mi consulta es la siguiente:

Necesito poder validar que los correos electrónicos o email que ingresen los usuario sean válidos, no necesariamente que existan, pero que tengan un formato válido, quizás exista alguna función o procedimiento para hacer aquello.

Recalco que recién empiezo con la programación en Fox Pro

José Enrique Llopis

unread,

Nov 5, 2014, 4:07:55 PM11/5/14

to publice...@googlegroups.com

Prueba esto a ver si te vale

*********************************************************

*** Valida el formato de una dirección de email

*********************************************************

FUNCTIONValidarEmail

LPARAMETERS lcEmail

LOCAL llResult, oRE

lcEmail = ALLTRIM(lcEmail)

Local oRE

oRE = CreateObject("VBScript.RegExp")

oRE.Pattern = "^([0-9a-zA-Z]+([-.=_+&])*[0-9a-zA-Z]+)*@([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"

llResult = oRE.test(lcEmail)

RETURN llResult

ENDFUNC

Un abrazo

Pepe Llopis

Luis Maria Guayan

unread,

Nov 5, 2014, 4:15:06 PM11/5/14

to publice...@googlegroups.com

-- Validar cuenta de correo electrónico --
http://comunidadvfp.blogspot.com/2007/06/validar-cuenta-de-correo-electronico.html

Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com

Message has been deleted

Jose Luis Proaño Acosta

unread,

Nov 5, 2014, 4:55:49 PM11/5/14

to publice...@googlegroups.com

Muchas gracias Literal, funciona gracias x tu inmediata respuesta

El miércoles, 5 de noviembre de 2014 16:47:55 UTC-5, integral escribió:

Amigo JOSE LUIS

Adjunto te estoy enviando el código de validación que estas requiriendo.

Ahí te explico como ponerlo en ejecución.

Queda como tarea lo pongas en practica y nos comentes tu punto de vista sobre la validacion...

Saludos,

INTEGRAL

Jose Luis Proaño Acosta

unread,

Nov 5, 2014, 4:57:02 PM11/5/14

to publice...@googlegroups.com

Muchisima gracias Don Luis Maria, fue un placer, agradecido y bendiciones

Jose Luis Proaño Acosta

unread,

Nov 5, 2014, 4:58:18 PM11/5/14

to publice...@googlegroups.com

Muchas gracias a todos, ya resolvi el problemita, gracias a todos, bendiciones

Jose Luis Proaño Acosta

unread,

Nov 5, 2014, 5:00:40 PM11/5/14

to publice...@googlegroups.com

Muchas gracias don Jose, bendiciones me sirvio

Reply all

Reply to author

Forward