begin process at 2012 02 17 01:45:08
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > VÉRIFIER LA VALIDITÉ D'UNE ADRESSE E-MAIL. (TRÈS SIMPLE)

VÉRIFIER LA VALIDITÉ D'UNE ADRESSE E-MAIL. (TRÈS SIMPLE)


 Information sur la source

Note :
4 / 10 - par 5 personnes
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Niveau :Débutant Date de création :07/03/2004 Vu :14 976

Auteur : z980x

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

C'est un code qui est présent sur www.freevbcode.com mais pour le VBSCRIPT.
Je l'ai passé en Visual Basic...

Je ne crois pas que cette méthode soit fiable à 100%; loin de la... Mais bon, elle a le mérite d'etre très simple...

Source

  • 'Avec un bouton appelé Command1
  • 'Avec une textbox appelé Text1
  • Private Sub Command1_Click()
  • If InStr(Text1, "@") = 0 Or _ 'Est ce que dans le texte on a @
  • InStr(Text1, ".") = 0 Or _ 'Est ce que dans le texte on a un point
  • Len(Text1) < 7 Then ' Est ce que le texte fait plue de 7 caractères
  • MsgBox "L'adresse spécifiée n'est pas valide !"
  • Else
  • MsgBox "Votre adresse est apparement valide..."
  • End If
  • End Sub
'Avec un bouton appelé Command1
'Avec une textbox appelé Text1

Private Sub Command1_Click()
   If InStr(Text1, "@") = 0 Or _ 'Est ce que dans le texte on a @
    InStr(Text1, ".") = 0 Or _ 'Est ce que dans le texte on a un point
    Len(Text1) < 7 Then ' Est ce que le texte fait plue de 7 caractères
    MsgBox "L'adresse spécifiée n'est pas valide !"
   Else
   MsgBox "Votre adresse est apparement valide..."
   End If
End Sub

 Conclusion

Voili Voilo...

C'est simple, pas fiable à 100%, je sais, pas la peine de le répéter...

Merci !


 Sources du même auteur

Source avec Zip Source avec une capture ITUNES *.XML VERS *.M3U
Source avec une capture LISTEZ LES DOSSIERS, LES SOUS DOSSIERS ET LES FICHIERS TRES ...
Source avec Zip Source avec une capture ORGANISEZ VOS SCREENSHOTS DE CALL OF DUTY !
Source avec Zip Source avec une capture PATCH CALL OF DUTY (AJOUT DE .PK3)
Source avec Zip MP3 ORGANISER

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout

Commentaires et avis

Commentaire de BruNews le 07/03/2004 15:59:53 administrateur CS

"...@aaa" serait donc possible ?

Si tu es en manque d'inspiration, attends de la retrouver plutot que de poser des trucs aussi inutiles.

BruNews, Admin CS, MVP Visual C++

Commentaire de cmoapierre le 07/03/2004 16:13:17

Oué c klr que ca pouré etre plus pousé genre :
instr(text1,"@.")=0 ca seré deja mieux ca
voila bon prog
cmoapierre

Commentaire de Renfield le 07/03/2004 16:27:33 administrateur CS

tu peux utiliser LIKE :

If "thomas_reynald@msn.com" like "?*@?*.??*" Then
   MsgBox "eMail Valide"
Else
   MsgBox "eMail Invalide"
End if

Commentaire de BruNews le 07/03/2004 17:31:14 administrateur CS

Merci a Renfield pour cette solution beaucoup plus fiable.

BruNews, Admin CS, MVP Visual C++

Commentaire de EBArtSoft le 07/03/2004 22:50:02 administrateur CS

Et les amis vous oublier que la chaine de caractere apres le @ est un nom de domain, de surcrois il peut prendre nimporte quel nom de domaine valide comme aaa, abc.com, 1.0.0.127.IN-ADDR.ARPA etc...

donc le test logique derivé de l'idée de renfield ne peut etre bon car il integre des caractere nom valide dans un nom de domaine tel que les espaces. Tester la validité d'une adresse s'avere donc legerement plus complexe.

@+

Commentaire de cosmic le 09/03/2004 00:28:03

le top serais de vérifier le nom de domaine après le @
ou de vérifier directement sur le serveur concerné si l'adresse email existe!!!

Commentaire de Renfield le 09/03/2004 05:57:30 administrateur CS

Oui.... ce genre de choses avait déjà été évoqué sur une source similaire....

outre l'aspect purement formel de l'adresse, on a toujours la possibilité d'envoyer un mail, avec un code de validation, comme on le voit souvent....

Commentaire de Dalida le 11/05/2004 15:51:55

salut,

que pensez vous de la fonction de validation proposee (parmis d autre) par jesusonline ?
http://www.aspfr.com/code.aspx?ID=21651

Public Function isEmail(ByVal _Value As String) As Boolean
  
  Dim objIntPattern As New _
       System.Text.RegularExpressions.Regex("^[A-Za-z0-9](([_\.\-]?[a-zA-Z0-9]+)*)@([A-Za-z0-9]+)(([\.\-]?[a-zA-Z0-9]+)*)\.([A-Za-z]{2,})$")

  Return objIntPattern.IsMatch(_Value)

End Function

Commentaire de Renfield le 11/05/2004 19:10:12 administrateur CS

j'en pense qu'il complique sérieusement son expression régulière...

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,608 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales