Discussion: Création de balises

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    décembre 2009
    Messages
    193
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : décembre 2009
    Messages : 193
    Points : 53
    Points
    53

    Par défaut Création de balises

    Bonjour,

    Je souhaite créer des balises spécifiques aux adresses mails (ou du moins un format email). Je souhaite savoir si il existe au préalable un format sous Access.

    Merci d'avance
      0  0

  2. #2
    Responsable
    Libres & Open source


    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    janvier 2005
    Messages
    8 953
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2005
    Messages : 8 953
    Points : 56 946
    Points
    56 946
    Billets dans le blog
    11

    Par défaut

    Salut,

    A ma connaissance, il n'existe pas de format, mais du moment que tu saisis un texte de la forme aaa@aaa.fr, il le considère comme un email... à toi de vérifier par la suite que le format et bon.

    @+.
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Avant de poster n'oubliez pas de regarder :

    Vous souhaitez participer aux rubriques Logiciels Libres & Open source et/ou OpenOffice & LibreOffice ? Contactez-moi.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique
      0  0

  3. #3
    Expert éminent
    Avatar de jimbolion
    Homme Profil pro
    Moulticien
    Inscrit en
    janvier 2013
    Messages
    3 083
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Moulticien
    Secteur : Santé

    Informations forums :
    Inscription : janvier 2013
    Messages : 3 083
    Points : 6 809
    Points
    6 809
    Billets dans le blog
    2

    Par défaut Validite adresse mail

    Bonjour,

    J'avais à l'époque récupéré cette fonction ! Tu passes en argument ton adresse et en retour tu récupères une valeur true ou False !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
     
     
    Public Function ValideAdresseEmail(ByVal AdresseMail As String) As Boolean
     
        ' Renvoie True si l'adresse fournie répond aux règles de validitié des emails
     
        ' Chaque caractère de la partie à gauche du @ peut-être composée comme ceci :
        '   Caractères autorisés : de 'a' à 'z', de '0' à '9', le souligné, le point et le tiret
        ' Deux parties pour la zone droite :
        ' - Celle à gauche du dernier point :
        '   Caractères autorisés : de 'a' à 'z', de '0' à '9', le point et le tiret
        '   Au moins 2 caractères
        ' - Celle après le dernier point :
        '   Caractères autorisés : de 'a' à 'z'
        '   2 ou 3 caractères
     
        Dim aComposant() As String
        Dim sPattern     As String
        Dim r            As Long
        Dim t            As Long
        Dim bAnnule      As Boolean
     
        ' Convertit en minuscules et supprime les espaces devant et derrière
        AdresseMail = Trim(LCase(AdresseMail))
        ' Il faut que @ existe dans la chaine
        r = InStr(1, AdresseMail, "@")
        If r > 0 Then
            ' Mais il ne doit y en avoir qu'un seul
            r = InStr(r + 1, AdresseMail, "@") ' Recherche s'il y en a un après
            If r = 0 Then
                ' Ensuite, on va comparer la partie gauche du @
                aComposant = Split(AdresseMail, "@")
                ' Il faut bien sûr qu'il y ait au moins un caractère devant le @
                If Len(aComposant(0)) > 0 Then
                    ' On recrée une chaine de comparaison avec autant de comparaison que de caractères
                    sPattern = ""
                    For r = 1 To Len(aComposant(0))
                        sPattern = sPattern & "[a-z0-9_.-]"
                    Next r
                    If aComposant(0) Like sPattern Then
                        ' Partie gauche Ok, on va traitrer la partie à droite du @
                        ' Récupère un tableau de chaine située à droite du @ dont le séparateur est le point
                        aComposant = Split(aComposant(1), ".")
                        ' Il faut qu'on ait au moins deux zones (0 et 1 au minimum)
                        If UBound(aComposant) >= 1 Then
                            ' Traite la partie droite du dernier point
                            If aComposant(UBound(aComposant)) Like "[a-z][a-z]" Or _
                               aComposant(UBound(aComposant)) Like "[a-z][a-z][a-z]" Then
                                ' Ok, 2 ou 3 caractères alphabétiques
                                ' Traite les autres zones devant le dernier point
                                bAnnule = False
                                For t = 0 To (UBound(aComposant) - 1)
                                    If Len(aComposant(t)) < 2 Then
                                        ' Problème : longueur incorrecte
                                        bAnnule = True
                                    Else
                                        sPattern = ""
                                        For r = 1 To Len(aComposant(t))
                                            sPattern = sPattern & "[a-z0-9-]"
                                        Next r
                                        If Not aComposant(t) Like sPattern Then
                                            ' Problème : caractères non autorisés
                                            bAnnule = True
                                            Exit For
                                        End If
                                    End If
                                    If bAnnule Then Exit For
                                Next t
                                If Not bAnnule Then
                                    ' Voilà, c'est tout bon
                                    ValideAdresseEmail = True
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
     
    End Function
    Si cela peut t'aider !

    Personnellement je ne l'ai jamais validé mais les tests que j'ai pu faire me semblaient cohérents !

    JimboLion
    N'oubliez pas le Tag si la réponse donnée vous a été utile et pour une réponse pertinente.
    Retrouvez-moi sur le chat en salon base de données
      0  0

Discussions similaires

  1. Création de balise avec "createElement"
    Par Yoshio dans le forum JavaScript
    Réponses: 4
    Dernier message: 26/04/2007, 11h10
  2. [DOM] Création de lien dans des balise en place
    Par Super_baloo8 dans le forum JavaScript
    Réponses: 9
    Dernier message: 20/04/2007, 10h54
  3. Réponses: 7
    Dernier message: 17/01/2007, 18h57
  4. [JDOM] création de balise commentaire avec JDOM
    Par chgabelle dans le forum XML
    Réponses: 2
    Dernier message: 30/06/2006, 19h23
  5. [DOM] Création de balise XML
    Par Shandler dans le forum DOM
    Réponses: 6
    Dernier message: 01/06/2006, 22h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo