Stp format de email vb6 [Résolu]

Signaler
Messages postés
25
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
16 juin 2013
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
je veux une methode  pour la sasie de la formt de l'email
je deja fait cette methode mais ca marche pas
autre methode svp
If Txt6.Text = "" Then
        Txt6.Text = "Rien"
        Else
        m = Trim(Txt6.Text)
        l = Len(m)
                o = 0
                h = 0
                For i = 1 To l
                f = Mid(m, i, 1)
                T(i) = f
                Next i
                For i = 1 To l
                If T(i) = "@" Then
                 o = i
                 Exit For
                End If
                Next i
                For i = o To l
                If T(i) = "." Then
                    h = i
                Exit For
                End If
                Next        If o 0 Or h 0 Then
        MsgBox "L'adresse e-mail saisie est non valide", vbCritical
        Txt6.SetFocus

6 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut Kamal
Ta réponse est ici : http://www.codyx.org/snippet_verifier-validite-adresse-mail_40.aspx
Quand tu poses une question, fait bien attention à la catégorie et au langage : sinon, tu risques de ne pas avoir de réponse !

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
PS : Comme expliqué dans le lien, il faudra ajouter la référence (menu Projet, Références) vers la librairie "Microsoft VBScript Regular Expressions 5.x" ou autre version qui est le fichier   vbscript.dll
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Bonsoir,

Ca m'a tout l'air dêtre pour du VB6 et pas du VB.Net
J'attendrai donc, en ce qui me concerne, que la présente discussion soit déplacée là où elle aurait dû être ouverte.
Ainsi : ce sera une perte de temps pour TOUS (pour toi également, donc...).
Messages postés
25
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
16 juin 2013

comment je utiliser cette code svp mr jack
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
oui...
Tu cesses de te "casser la tête" et fais ainsi :

Private Sub Command3_Click()
  Dim toto As String
  toto = "[mailto:t2oto@fai.fr t2oto@fai.fr]"
  MsgBox toto & " est une bonne adresse ? ===>> " & verifions(toto)
  toto = "t2otofai.fr"
  MsgBox toto & " est une bonne adresse ? ===>> " & verifions(toto)
End Sub


Private Function verifions(adresse As String) As Boolean
   verifions = IIf(adresse Like "*@*.*", True, False)
End Function

voilà (et c'est d'un niveau élémentaire...)
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Re
Je n'avais rien à faire ce samedi pluvieux, alors je t'ai créé une petite fonction pour répondre à ta question :
http://www.vbfrance.com/code.aspx?ID=43534
Ce code n'utilise pas de composant externe (difficile à trimballer avec les sources)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés