|
| Sujet n°69 |
Email hypertexte
par JMR
le 18/02/2007 : 15:22 |
Bonjour J'ai adaptais ton code ci-dessous qui marche trés bien J'ai remplace l'etiquette par par un bouton por activer l'envoie et ca marche tés bien Le probleme est que quand je change l'adresse email dans mon champ txtaddress il me faut fermer puis reouvrir le formulaire pour que la nouvelle adresse email soit prisse en compte L'idée serait de reactualise le formulaire quand on apuis sur le bouton pour avoir la nouvelle adresse email sans devoir sortir puis re ouvrir le formulaire Mais voila je n'y arrive pas .........; Merci pour ton travail Méthode complète :
Code destiné à un formulaire (affichage en mode simple), contenant un contrôle Étiquette nommé "lblAddress" lié à un champ texte nommé "txtAddress".
Private Sub Form_Current() Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "")
Me!lblAddress.ForeColor = 1279872587
Me!lblAddress.FontUnderline = True If Not IsNull(Me!txtAddress.Value) Then
Me!lblAddress.HyperlinkAddress = "Mailto:" _
& Me!txtAddress.Value _
& "?CC=" & "" _
& "&Subject=" & "Le sujet du Message" _
& "&Body=" & "Corps du message au kilomètre"
Else
Me!lblAddress.HyperlinkAddress = ""
End If End Sub |
| Réponse n° 1 |
par 3stone le 18/02/2007 : 16:12 |
Bonjour,
En fait, il vaut mieux placer le code "sous" un bouton...
Ensuite, tu ajoute au début du code :
Private Sub cmdEnvoyer_Click() Me.Dirty = False
Me!lblAddress.Caption = Nz(Me!txtAddress.Value, "")
...
A+
Pierre
|
| Réponse n° 2 |
par jmr
le 19/02/2007 : 15:03 |
Re OK la modif marche bien Merci |
[ Retour à la liste des sujets ]
| Recherche
Préférences
 1 membre
Connectés :
( personne )
|
visiteurs
© 2004-2013 
