1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Pour qu'access reconnaisse le champ comme adresse e-mail utilisable

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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 760 fois - Téléchargée 39 fois

Commenter

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
27 févr. 2006 à 23:17
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
14 janv. 2005 à 10:48
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
14 janv. 2005 à 09:00
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
14 janv. 2005 à 08:41
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
14 janv. 2005 à 00:20
c'est mario@dogacademy.ch. je pense que tu as raison concernant le recordset. A+
Afficher les 9 commentaires
S'inscrire maintenant

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.

Du même auteur (cs_mariochk)