>>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 >>>>