>>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>>
>FLastname@name-mtn.com
>"^([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, it's