Couriel - syntaxe et domaine ok

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 799 fois - Téléchargée 45 fois

Contenu du snippet

Vérifie la validité de la syntaxe et du domaine d'un couriel.
Ne vérifie pas la validité du lien du couriel.

Source / Exemple :


Private Function CourielOK(ByVal Couriel As String) As Boolean
    Dim j As Long, C As String, D As String
'Voir à la forme
    If Couriel = "" Or Couriel Like "*@*" And _
     (Couriel Like "*.??" Or Couriel Like "*.???" _
      Or Couriel Like "*.info" Or Couriel Like "*.name") Then
          CourielOK = True
    Else
          Exit Function
    End If
'Voir au contenu
    If Couriel Like "*.???" Then
            C = Right$(Email, 4)
            D = Right$(Email, 3)
            If C = ".com" Or C = ".net" Or C = ".edu" Or _
             C = ".mil" Or C = ".gov" Or C = ".org" Then
            ElseIf D = ".bz" Or D = ".cc" Or D = ".nu" Then
            Else
                    CourielOK = False
                    Exit Function
            End If
    End If
'Voir aux éléments
    For j = 1 To Len(Couriel)
            C = Mid$(Couriel, j, 1)
            If C = "@" Or C = "." Or C = "-" Or C = "_" Or _
             C >= Chr(48) And C <= Chr(57) _
             Or LCase(C) >= Chr(97) And LCase(C) <= Chr(122) Then
            Else
                    CourielOK = False
                    Exit Function
            End If
    Next j
End Function

A voir également

Ajouter un commentaire

Commentaire

Messages postés
31
Date d'inscription
samedi 2 mars 2002
Statut
Membre
Dernière intervention
21 décembre 2003

Il y a de nouveaux types de domaines, notement .biz, et le .eu sera bientôt d'application.

tu pourrais optimiser en mettant un exit for dès que ton courielok passe à false, pour ne pas vérifier plusieures fois des éléments alors que l'adresse est déjà détectée comme fause.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.