"^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"
according to Craig Boyd's blog http://www.sweetpotatosoftware.com/spsblog/2006/01/04/ARegularExpressionsLibraryForVisualFoxPro.aspx>FUNCTION ValidEmail >LPARAMETERS lcMail >LOCAL ox, llReturn >IF PCOUNT()>0 AND VARTYPE(lcMail)='C' > ox=CREATEOBJECT('VBScript.RegExp') > *ox.PATTERN = '(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,9})' > 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 > > >I re-tried a few times - it does not work. I am getting invalid e-mail using this pattern.