CONTRÔLER LA SAISIE D'UN E-MAIL

Commentaire de Bidou le 23/01/2007 18:25:43 administrateur CS

Moui, de toutes façons ces fonctions ont très peu d'utilités...
Si j'entre x@x.x , ça va matcher donc voilà, ...

Commentaire de Malkuth le 24/01/2007 17:42:43

Pour allonger la liste des test :

pas de point a la fin
pas de @ a la fin
au moins 6 caractères(mail mini -> a@a.aa
au moins un point aprés le @
pas de PointPoint dans la partie dériére le @
La derniére partie de l'email (aprés le derniér points) doit contenir 2 à 4 carateres.

consernat la partir Utilisateur de l'email(avant le @) il y'a des régles a suivre mais dans la pratique il arrive que certaine implémentation déroge à la régle donc méfiance(certain serveur accepte les noms commencant par point...).

Commentaire de andalo le 13/05/2008 10:18:34

desolé, j'essayais de voir si le html pouvais me coloriser le code pour poster ici.
Donc voila, j'ai essayé cette fonction qui me renvoi systematiquement ques mes emails sont invalides, alors je m'en suis inspiré, pour ecrire le code qui suit, à mon sens c'est plus rapide et du coup plus complet vu que j'ai rajouté des choses en rapport aux commentaires de Malkhut. J'espère ne pas avoir trop dérogé aux regles pour poster ici et coder du vb!


Function mailvalide(email) As Boolean
Const CarAutorise = "abcdefghijklmnopqrstuvwxyz0123456789.@"
Dim pos_point, pos_point2, pos_arobase, pos_arobase2 As Integer
    mailvalide = False
    
    If Len(email) < 6 Or IsNull(email) Then Exit Function 'si longueur de chaine invalide, on sort de la fonction
    If InStr(1, email, ".@") Or InStr(1, email, "@.") Then Exit Function 'si .@ ou @. est présent, on sort de la fonction
    pos_arobase = InStr(1, email, "@")
    
    If pos_arobase < 2 Then
        Exit Function 'si arobase inexistant ou en premier caractère, on sort de la fonction
    Else
        pos_arobase2 = InStr(pos_arobase + 1, email, "@")
        If pos_arobase2 > 0 Then Exit Function 'si un deuxieme arobase est trouvé on sort de la fonction
    End If
    
    pos_point = InStr(pos_arobase + 1, email, ".")
    If pos_point < pos_arobase Then Exit Function 'si il n'y a pas de point apres l'arobase, on sort de la fonction
    If Mid(email, Len(email), 1) = "." Or Mid(email, Len(email), 1) = "@" Then Exit Function
    If InStr(pos_arobase, email, "..") > 0 Then Exit Function 'si .. present apres @ on sort de la fonction
    For i = 1 To Len(email)
        If InStr(1, CarAutorise, LCase(Mid(email, i, 1))) < 0 Then
            Exit Function 'si on trouve autre chose qu'un caractère autorisé, on sort de la fonction
        End If
    Next
mailvalide = True 'si on est pas sortie avant, c'est que l'adresse mail est valide
End Function

Commentaire de andalo le 13/05/2008 12:17:28

ok, j'ai pris en compte tout ca. une question tout de même, false est la valeur par defaut d'une fonction, même si je me suis au prealable servi de la fonction et qu'elle a retourné true?, si je m'en ressert ensuite, j'imagine donc qu'elle est reinitialisé a false automatiquement?
sinon j'ai aussi corrigé une petite erreur dans la dernière condition.

Function mailvalide(email) As Boolean
Const CarAutorise = "abcdefghijklmnopqrstuvwxyz0123456789.@"
Dim i As Integer, pos_point As Integer, pos_point2 As Integer, pos_arobase As Integer, pos_arobase2 As Integer
    If Len(email) < 6 Or IsNull(email) Then Exit Function 'si longueur de chaine invalide, on sort de la fonction
    If InStr(1, email, ".@") Or InStr(1, email, "@.") Then Exit Function 'si .@ ou @. est présent, on sort de la fonction
    pos_arobase = InStr(1, email, "@")
    
    If pos_arobase < 2 Then
        Exit Function 'si arobase inexistant ou en premier caractère, on sort de la fonction
    Else
        pos_arobase2 = InStr(pos_arobase + 1, email, "@")
        If pos_arobase2 > 0 Then Exit Function 'si un deuxieme arobase est trouvé on sort de la fonction
    End If
    
    pos_point = InStr(pos_arobase + 1, email, ".")
    If pos_point < pos_arobase Then Exit Function 'si il n'y a pas de point apres l'arobase, on sort de la fonction
    If Right(email, 1) = "." Or Right(email, 1) = "@" Then Exit Function ' si @ ou . en derniere position, on sort
    If InStr(pos_arobase, email, "..") > 0 Then Exit Function 'si .. present apres @ on sort de la fonction
    i = 0
    For i = 1 To Len(email)
        If InStr(1, CarAutorise, Mid(email, i, 1), vbTextCompare) < 1 Then
            Exit Function 'si on trouve autre chose qu'un caractère autorisé, on sort de la fonction
        End If
    Next
mailvalide = True 'si on est pas sortie avant, c'est que l'adresse mail est valide
End Function

Commentaire de andalo le 13/05/2008 14:33:48

en effet, on doit aimer se compliquer la vie, merci pour l'aide.