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