"^([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.aspxFUNCTION 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