Pour qu'access reconnaisse le champ comme adresse e-mail utilisable

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 046 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...

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

Ajouter un commentaire

Commentaires

shokadelika
Messages postés
26
Date d'inscription
mardi 26 octobre 2004
Statut
Membre
Dernière intervention
8 juin 2007
-
Merci pour ce code. Je débute et j'avais ce problème de lien mail. Encore merci.
musicmandj5
Messages postés
42
Date d'inscription
vendredi 9 avril 2004
Statut
Membre
Dernière intervention
17 février 2005
-
j'ai enfin trouvé je vais poster pr ceux que ça pourrait intéresser

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
cs_mariochk
Messages postés
11
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
7 octobre 2004
-
je n'ai pas besoin des données d'une part, mais des tables quand même bien sûr et tu peux le zipper
musicmandj5
Messages postés
42
Date d'inscription
vendredi 9 avril 2004
Statut
Membre
Dernière intervention
17 février 2005
-
g peur que la base prenne trop de place pr envoyer par mail.....Comment pourrions nous faire?
cs_mariochk
Messages postés
11
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
7 octobre 2004
-
c'est mario@dogacademy.ch. je pense que tu as raison concernant le recordset. A+

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.