Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 08:53:05

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : [DéPLACé VB.NET -> VBA] APPEL DE FONCTION DANS UNE MACRO par louvierseb

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

+ de logiciels à télécharger

1 465 026 membres
76 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 056 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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

Information sur la source

Catégorie :Réseau & Internet Niveau : Débutant Date de création : 07/03/2004 Vu : 12 933

Auteur : z980x

Site perso

Ecrire un message privé

Note :

4,00 / 10

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

ITUNES *.XML VERS *.M3U

LISTEZ LES DOSSIERS, LES SOUS DOSSIERS ET LES FICHIERS TRES ...

ORGANISEZ VOS SCREENSHOTS DE CALL OF DUTY !

PATCH CALL OF DUTY (AJOUT DE .PK3)

MP3 ORGANISER

Toutes les sources de z980x

Sources de la même categorie

LIGHT CODES-SOURCES par thebigboss3

STORMDATACENTER - DÉMO DE WEBBROWSER MULTIFONCTION VB9 par LightningStrike

TRADUCTEUR GOOGLE : INTERFACE WINFORM POUR LE SERVICE DE TRA... par Patrice99

COMMENT CONTRÔLER TOTALEMENT LES PROCESSUS D'UN PC DISTANT (... par violent_ken

MINI CACHE DNS par XelectroX

Toutes les sources de la catégorie Réseau & Internet

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