FoxPro/Visual FoxPro - PARA EL CORREO

holas tengo una pregunta como haces para validar si se puede decir asi una caja de texto para que sea un correo osea que lleve el @ y el . si pueden responderme se los agradecere

revisa esto

Funcion ValidarCuentaEmail
LPARAMETERS email && la cuenta
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
RETURN M.valid

Puedes usar AT() o ATC() para buscar la @ o el .