Poser une question

Re: Faire parvenir la solution

function is_email(emaddr)
is_email = true
if instr(emaddr, "@") < 2 then is_email = 0
email_host = mid(emaddr, instr(emaddr, "@")+1)
if len(email_host) < 4 then is_email = 0
if instr(email_host, ".") < 2 then is_email = 0
if right(email_host, 1) = "." then is_email = 0
if instr(emaddr, "'") then is_email = 0
if instr(emaddr, chr(34)) then is_email = 0
if instr(emaddr, " ") then is_email = 0
if instr(emaddr, "/") then is_email = 0
if instr(emaddr, "\") then is_email = 0
end function

Si ca peut interesser... y a juste a passer l'adresse email en parametre de l'appel de la fonction, et elle retournera VRAI ou FAUX.

Réponses

Re: Vérification d'une adresse mail avec regex  Oznog 9/6/2004