Mailto automatique
Dans un formulaire, j’ai une zone de texte liée à une adresse e-mail, de type Lien hypertexte. Si je tape une adresse directement, Access la transforme en adresse web, démarrant par
http://
.Pour la transformer en adresse e-mail, il faut la débuter par mailto:, comme dans l’exemple suivant :
mailto:webmaster@self-access.com
Comment faire en sorte que le
mailto:
se place automatiquement ?
Il n’existe pas de propriété permettant de régler le problème. Access 2007, par contre, reconnaît le @ dans les adresses e-mail, et évite la frappe du mailto:
. Pour les autres versions, voici une bidouille :o) permettant de régler le problème :
- Ouvrez votre formulaire en mode Création.
- Faites apparaître les propriétés de votre champ d’adresse. Nous supposerons que celui-ci s’appelle
Adresse Internet
. - Tapez le code suivant dans l’événement
Après Màj
du champ :
1 2 3 4 5 6 7 8 |
Private Sub Adresse_Internet_AfterUpdate() Dim hlk As Hyperlink Set hlk = Me![Adresse Internet].Hyperlink If Left(hlk.Address, 7) = "http://" Then Me![Adresse Internet] = "#mailto:" & Mid(hlk.Address, 8) & "#" End If End Sub |
Si vous ne souhaitez pas utiliser un champ de type Lien hypertexte, vous pouvez aussi envisager une seconde approche : voir ici.