/*
VALIDE_EMAIL.prg
 Maurice Abraham
 24 août 2009

Vérifie la syntaxe d'une adresse email, 
et non l'existence réelle de la boite email
Utilise les Expressions regulières

Usage : 
*/
cMonEmail = 'dbase@free.fr'
//cMonEmail = 'dbase@fr_ee.fr'
LOCAL oRegExp
oRegExp = new OleAutoClient("VBScript.RegExp")
oRegExp.IgnoreCase = .T.
oRegExp.Pattern = '^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)*)\.([A-Za-z]{2,})$'
iif( oRegExp.Test(cMonEmail), ;
     msgbox("Adresse valide", cMonEmail,0+64), ;
     msgbox("Adresse non valide", cMonEmail,0+48) )

RELEASE OBJECT oRegExp  // detruit l'objet
oRegExp = null          // efface la variable

return