13 de junio de 2007

Validar cuenta de correo electrónico

Función enviada al Grupo de Noticias por Anders Altberg que valida una cuenta de e-mail.
FUNCTION 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
ENDFUNC

1 comentario :

  1. Saludos Luis Maria Guayan

    Corregir : Funcion ValidarCuentaEmail
    Por : Function ValidarCuentaEmail

    ResponderEliminar