>Function ValidEmail >Lparameters lcMail >Local ox, llReturn >If Pcount()>0 and Vartype(lcMail)='C' > ox=CreateObject('VBScript.RegExp') > ox.Pattern= '^[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]' + ; > '@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]' + ; > '\.[a-zA-Z]{2,4}$' > ox.IgnoreCase= .T. > ox.Global=.F. > llReturn=ox.Test(lcMail) > Release ox > ox=.NULL. >EndIf >Return llReturn