>>>>

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