>>>This is the function I use

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

>>>
>>I tried this and another pattern, and they both reject this e-mail
>>

>>FLastname@name-mtn.com

>>
>>But I know it's a valid e-mail. What pattern is correct for e-mail validations?
>
>

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

I tried the pattern suggested by Sergey in this thread and it works fine and much simpler. However, I haven't tested it too thorough yet - may be that pattern is too generous.