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