Pour qu'access reconnaisse le champ comme adresse e-mail utilisable
Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 058 fois - Téléchargée 37 fois
Contenu du snippet
ACCESS - FORMULAIRE. Le texte inséré dans un champ formaté en lien hypertexte, interprète automatiquement comme étant un lien HTTP et non MAILTO, ce qui rend l'adresse e-mail inutilisable lorsqu'on clique dessus...
Je pars du principe que le champ est déjà formaté en lien hypertexte et non pas seulement en texte. Ce petit code est donc à insérer dans la propriété du champ, onglet "évenement" et "sur perte focus" bouton droit, créer "générateur de code". Il est prévu que [Adressedemessagerie] est le nom du champ de votre adresse e-mail bien sûr.
Ah oui, si un champ est déjà rempli et interprêté comme lien http, en allant dessus avec <tab> et en quittant toujours avec <tab>, il le convertira automatiquement en "mailto:"
Source / Exemple :
'code ................................................................................... am = [Adressedemessagerie] am = Left(am, InStr(am, "#") - 1) Adressedemessagerie = am & "#" & "mailto:" & am & "#" '..........................................................................................
Conclusion :
Je pars du principe que le champ est déjà formaté en lien hypertexte et non pas seulement en texte. Ce petit code est donc à insérer dans la propriété du champ, onglet "évenement" et "sur perte focus" bouton droit, créer "générateur de code". Il est prévu que [Adressedemessagerie] est le nom du champ de votre adresse e-mail bien sûr.
Ah oui, si un champ est déjà rempli et interprêté comme lien http, en allant dessus avec <tab> et en quittant toujours avec <tab>, il le convertira automatiquement en "mailto:"
A voir également
- Pour qu'access reconnaisse le champ comme adresse e-mail utilisable
- Un ocx pour vérifier une adresse e mail - Codes sources - Visual Basic / VB.NET (Divers)
- Traitement adresses e-mail - Codes sources - Visual Basic / VB.NET (Texte)
- Obtenir les adresses e-mail d'un texte - Codes sources - PHP (Chaînes de caractères)
- Codifier une adresse e-mail - Codes sources - PHP (E-Mail / Messagerie)
- Valider une adresse e-mail - Codes sources - ColdFusion (Messagerie)
Commentaires
je fous un label et non une textbox
et je la remplisd e cette façon
'txthide8_lbl est un label
dim h as hyperlink
If rst("contact_mail") <> "" Then
txthide8_lbl.ForeColor = 16711680 'bleu
txthide8_lbl.FontUnderline = True
Set H = txthide8_lbl.Hyperlink
With H
.Address = "mailto:" & rst("contact_mail")
.ScreenTip = rst("contact_mail")
.TextToDisplay = rst("contact_mail")
End With
Else
txthide8_lbl.ForeColor = 0
txthide8_lbl.FontUnderline = False
Set H = txthide8_lbl.Hyperlink
With H
.Address = Null
.ScreenTip = rst("contact_mail")
.TextToDisplay = "No mail"
End With
End If
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.