>>>Function ValidEmail >>> Lparameters lcMail >>> Local ox, llReturn <<<<<<---------------------------------------------- >>> If Pcount() > 0 And Vartype(lcMail) = [C] >>> ox = Createobject([VBScript.RegExp]) >>> ox.Pattern = "^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$" >>> ox.IgnoreCase = .T. >>> ox.Global = .F. >>> llReturn = ox.Test(lcMail) >>> Release ox >>> ox = .Null. >>> Endif >>>Return llReturn >>>>>>