begin process at 2012 02 13 00:20:26
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBA

 > POUR QU'ACCESS RECONNAISSE LE CHAMP COMME ADRESSE E-MAIL UTILISABLE

POUR QU'ACCESS RECONNAISSE LE CHAMP COMME ADRESSE E-MAIL UTILISABLE


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Niveau :Débutant Date de création :17/05/2003 Date de mise à jour :17/05/2003 19:24:02 Vu :7 507

Auteur : mariochk

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

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

  • 'code ...................................................................................
  • am = [Adressedemessagerie]
  • am = Left(am, InStr(am, "#") - 1)
  • Adressedemessagerie = am & "#" & "mailto:" & am & "#"
  • '..........................................................................................
'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:"


 Sources du même auteur

INITIALE EN MAJUSCULE POUR PLUSIEURS NOMS INSCRITS A LA SUIT...

 Sources de la même categorie

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive

Commentaires et avis

Commentaire de musicmandj5 le 12/01/2005 09:16:07

Hello, J'ai une petite question. Une fois que ce lien est inséré sous access dans une base, je voudrais le récupérer et le mettre dans une textbox. J'ai mis la textbox en lien hypertexte, mais impossible de la faire réagir comme un lien hypertexte......Est ce que tu as une solution?

Merci d'avance

Commentaire de mariochk le 12/01/2005 21:20:22

salut,
En fait, dès que le champ est formaté en lien hypertexte, il réagit sans problème dans la textbox. Il suffit de le glisser dans ton formulaire, je ne comprends pas pourquoi ça ne fonctionne pas. Dans l'absolu, envoie-moi ta base et je regarde ...

Commentaire de musicmandj5 le 13/01/2005 08:30:25

Oui c'est ce quil me semblait, quel est ton mail?

Commentaire de musicmandj5 le 13/01/2005 08:52:03

mais je pense que le pb vient du fait que je passe par un recordset qui me récupère les valeurs d'un contact bien précis. Je n'ai pas créé la textbox avec le wizard d'access

Commentaire de mariochk le 14/01/2005 00:20:56

c'est mario@dogacademy.ch. je pense que tu as raison concernant le recordset. A+

Commentaire de musicmandj5 le 14/01/2005 08:41:49

g peur que la base prenne trop de place pr envoyer par mail.....Comment pourrions nous faire?

Commentaire de mariochk le 14/01/2005 09:00:08

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

Commentaire de musicmandj5 le 14/01/2005 10:48: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

Commentaire de shokadelika le 27/02/2006 23:17:23

Merci pour ce code. Je débute et j'avais ce problème de lien mail. Encore merci.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,796 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales