>>>>>>

"^([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
>>>>>
>>>>>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.
>>>>
>>>>According to what Craig said, the pattern I presented is the "official" version.
>>>
>>>This pattern does not work with the valid e-mails I have.
>>>
>>>FLastName@CompanyName-mtn.com (the company name includes -mtn)
>>
>>Pattern works fine for me with FLastName@CompanyName-mtn.com
>>
>>

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

Must be a typo in your code. I get valid email address.