Je saisis des adresses mèl dans Base.

Que faut-il faire pour qu'en cliquant sur une de ces adresses,

on ouvre Thunderbird, prêt à saisir et à envoyer un message.

1) créer une macro de lancement du client de messagerie

Sub sendEmailClient( oEvent as object )

  dim sAddressEmail as string

  sAddressEmail = oEvent.Source.Text

  shell( "thunderbird", 2 , "mailto:" + sAddressEmail )

End Sub

2) modifier les propriétés du champ "email" dans le formulaire

- clic-droit sur le champ et "contrôles"

- onglet "évènements"

- en regard de l'évènement "bouton de souris enfoncé" cliquer sur le

bouton [...] (petits points)

- assigner une macro

- rechercher la macro "sendEmailClient" et valider le tout.

Sauvegarder le formulaire et la base.

Lors de l'emploi du formulaire un simple clic sur le champ "email"

ouvrira le client de messagerie avec comme destinataire l'adresse issue

de la base.