Comment savoir si une adresse e-mail est valide ?Résolu

Question

Je cherche un source qui permet de savoir si une adresse e-mail est valide ?
Ex : Y-a-t-il un @ et un . ?
       Pas de caract&#232;res accentu&#233;s...

Merci &#224; tous

crenaud76 · Accepted Answer

Const ValidChars = "abcdefghijklmnoprstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789._"
function checkEMail(ChaineAdresse as string) as boolean
Dim i as long,C as String,arobaceCount as long

arobacecount = 0
For i = 1 to len (ChaineAdresse)
   C= Mid(chaineAdresse,i,1) 
   if c = "@" then 
      if arobaceCount>0 then
        checkemail = false
        exit function
      else
       arobacecount = 1
   elseIf Instr(ValidChars,C)=0 Then 
        checkemail = false
        exit function
   Endif
Next
checkemail = True
end function

Reste &#224; v&#233;rifier les caract&#232;res valide pour une email et &#224; les ajouter &#224; la constante ValidChars
Christophe R

crenaud76 · Answer

Tu peux d&#233;j&#224; commencer par ca :
If Not ChaineAdresse Like "*@*" Then Msgbox "Adresse invalide"

Christophe R

Najdar · Answer

Merci, mais j'auris besoin de quelque chose de plus s&#251;r.
J'ai un utilisateur qui m'a mis deux @ et des accents dans l'adresse.
Je voudrais une solution s&#251;re &#224; 100%.

cs_trabice · Answer

d'apres moi,
la solution sure n'existe pas.
car certain nom de domaine sont en .fr d autre en .com.net
Je s&#233; pas ce que pourquoi tu ve faire cette v&#233;rification mais je pense que le meilleur moyen a l heure actuelle c juste v&#233;rifier les caract&#232;res interdit + @ et .fr ou .fr.com
et d'envoyer un mail de confirmation sur la boite avec un lien pour valider le compte.
En php on peut tester le nom de domaine m&#233; cette solution a aussi ces failles.(je s&#233; plu lekelles...)

Fabrice

Najdar · Answer

Quelqu'un connait-il les caract&#232;res autoris&#233;s dans une adresse e-mail ?

Comment savoir si une adresse e-mail est valide ?

5 réponses

Discussions similaires