Vérifier la validité d'une adresse mail
Contenu du snippet
Utilisation:
If ValidMail("toto@fai.fr") Then
MsgBox "Adresse valide"
Else
MsgBox "Adresse non correcte"
End if
Public Function ValidMail(ByVal mail_address As String) As Boolean
Dim rexp As RegExp
'Nouvelle instance RegExp
Set rexp = New RegExp
'Ne fait pas la différence entre les majuscules/minuscules
rexp.IgnoreCase = True
'Donne seulement la première occurrence
regEx.Global = False
'Expression
rexp.Pattern = "^[a-z0-9_.-]+@[a-z0-9.-]{2,}\.[a-z]{2,3}$"
'Retourne le test
ValidMail = rexp.Test(mail_address)
End Function
Compatibilité : VB6
Disponible dans d'autres langages :
A voir également
- Vérifier la validité d'une adresse mail
- Validité adresse mail ✓ - Forum PHP
- Vérifier la validité d un numéro de téléphone - Forum PHP
- Gandi mail - Forum PHP
- Violation d'accès à l'adresse - Forum Delphi / Pascal
- Violation d’accès à l’adress - Forum Delphi / Pascal
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.