Contrôle un mail avec Access

Question

Bonjour,
Je désirerais contrôler la validité d'un mail entré dans un de mes formulaires. On m'a dit de m'orienter vers les expressions régulières. Étant complètement néophyte en la matière, un petite aide sur le sujet me serais d'une grande utilité.
Merci.

Configuration: Windows XP / Firefox 3.0.19

YOUHA · Answer

[RESOLU]
Lien microsoft sur les expressions régulières : https://support.microsoft.com/fr-fr/help/818802
Voila un exemple de code trouvé :


Public Function EmailValide(ByVal email As String) As Boolean

    Dim regEx As RegExp, occurrences As MatchCollection
   
    Set regEx = New RegExp
    regEx.Pattern = "^[a-z0-9_.-]+@[a-z0-9.-]{2,}\.[a-z]{2,3}$"
    regEx.IgnoreCase = True 'Ne pas distinguer les minuscules des majuscules
    regEx.Global = False 'Renvoyer seulement la première occurrence
    Set occurrences = regEx.Execute(email)
    EmailValide = (occurrences.Count = 1)
   
End Function

Contrôle un mail avec Access

1 réponse

Discussions similaires

Newsletters