Fonction pour verifier la validite d'une adresse email
ricc
-
2 avril 2001 à 00:49
SamDotNet Messages postés 11 Date d'inscription lundi 24 février 2003 Statut Membre Dernière intervention 15 avril 2006 - 4 avril 2003 à 11:53
SamDotNet Messages postés 11 Date d'inscription lundi 24 février 2003 Statut Membre Dernière intervention 15 avril 2006 - 4 avril 2003 à 11:53
A voir également:
- Fonction pour verifier la validite d'une adresse email
- Verifier nom de domaine - Forum PHP
- Verifier un nom de domaine - Forum PHP
- Comment savoir si une adresse ip est valide - Forum C / C++ / C++.NET
- Sub ou fonction non définie - Forum VB.NET
- Remise en fonction - Forum C / C++ / C++.NET
3 réponses
Ce n'est peut-être pas la meilleur facon de faire mais ca fonctionne(c'est au moin ca ;) )
Public Function ValideEmail(ByVal StrEmail As String) As Boolean
If Trim$(StrEmail) = "" Then Exit Function
If Len(Trim$(StrEmail)) <= 7 Then Exit Function
Dim PointStart As Long
Dim AStart As Long
On Error Resume Next
AStart = InStr(1, StrEmail, "@")
If AStart > 0 Then
PointStart = InStr(AStart ++ 1, StrEmail, ".")
If (PointStart <= 0 Or PointStart < AStart) Then Exit Function
Else
Exit Function
End If
If (AStart > 2 And PointStart > (AStart ++ 2)) Then
ValideEmail = True
End If
End Function
Private Sub Command1_Click()
Me.Caption = ValideEmail("NitRic28@Hotmail.com")
End Sub
NitRic28@Hotmail.com
VB_MAN
Public Function ValideEmail(ByVal StrEmail As String) As Boolean
If Trim$(StrEmail) = "" Then Exit Function
If Len(Trim$(StrEmail)) <= 7 Then Exit Function
Dim PointStart As Long
Dim AStart As Long
On Error Resume Next
AStart = InStr(1, StrEmail, "@")
If AStart > 0 Then
PointStart = InStr(AStart ++ 1, StrEmail, ".")
If (PointStart <= 0 Or PointStart < AStart) Then Exit Function
Else
Exit Function
End If
If (AStart > 2 And PointStart > (AStart ++ 2)) Then
ValideEmail = True
End If
End Function
Private Sub Command1_Click()
Me.Caption = ValideEmail("NitRic28@Hotmail.com")
End Sub
NitRic28@Hotmail.com
VB_MAN
Désoler pour les 2 " ++ " dans l'appercu y'en n'avait pas et j'ai essayer avec 2 pis j'ai oblier de les enlever ce qui veut dire qu'il n'en faut que 1 seul " + ".
SamDotNet
Messages postés
11
Date d'inscription
lundi 24 février 2003
Statut
Membre
Dernière intervention
15 avril 2006
4 avril 2003 à 11:53
4 avril 2003 à 11:53
Je persiste à croire qu'il n'y a rien dans la technologie....
--------------------------------------------------------------------
Au fait, est-ce que l'adresse "X@X.ch" (qui compte six caractères) est non valide?
Si oui, CA NE L'EST PAS POUR LA FONCTION !
Faudra peut etre diminuer la barre à 6
--------------------------------------------------------------------
Au fait, est-ce que l'adresse "X@X.ch" (qui compte six caractères) est non valide?
Si oui, CA NE L'EST PAS POUR LA FONCTION !
Faudra peut etre diminuer la barre à 6
