>>>>>

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