Couriel - syntaxe et domaine ok

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_Louis)