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