Bienvenue! Identification Créer un nouveau profil

Recherche avancée

[AC16] Re: [AC16] tester validiter d'une adresse mail

04/06/20 13:25
Salut,
Pour ma part j'utilise une Expression Régulière (RegExp), utilisée dans le monde du web essentiellement, ca passe tout seul:

Tout d'abord, active la référence suivante dans "Outils -> Références..." de l'éditeur de code VBA :
Microsoft VBScript Regular Expressions 5.5

Puis tu crées une fonction qui prend pour argument une chaîne de caractère, à savoir ton email, puis la fonction te retourne vrai ou faux si l'email est correct :
Public Function valide_email(strEmail As String) As Boolean
On Error Resume Next
Dim Reg As VBScript_RegExp_55.RegExp
Set Reg = New VBScript_RegExp_55.RegExp
Reg.Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
valide_email = Reg.Test(strEmail)
Set Reg = Nothing
End Function



Modifié 1 fois. Dernière modification le 04/06/20 13:26 par francois0690.
SujetAuteurEnvoyé le

[AC16] [AC16] tester validiter d'une adresse mail

TahitiIsland17/04/20 02:31

[AC16] Re: [AC16] tester validiter d'une adresse mail

francois069004/06/20 13:25

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter