This solution works for me (It little VBish)

LOCAL loRegExp
loRegExp = CreateObject("VBScript.RegExp")
loRegExp.IgnoreCase = .T.
loRegExp.Pattern = '^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)*)\.([A-Za-z]{2,})$'
m.valid = loRegExp.Test(m.email)
RELEASE loRegExp
IF m.valid = .T.
   ....
ENDIF

>I believe that I have read a post like this before, but I can't remember. Is there a way to check if a string is a valid email address? I believe I remember somebody talking about a third party product. TIA!
>
>
>MAC