Bonjour Jean, Jean Sympa a écrit : > Merci François, > <http://api.openoffice.org/docs/common/ref/com/sun/star/system/XSystemShellExecute.html> > > Ta dernière proposition me donne une idée. Je souhaiterais une modification > de ta première macro. > <http://api.openoffice.org/docs/common/ref/com/sun/star/system/XSystemShellExecute.html> > > Sub sendEmailClient( oEvent as object ) > > dim sAddressEmail as string > > sAddressEmail = oEvent.Source.Text > > shell( "thunderbird", 2 , "mailto:"; + sAddressEmail ) > > End Sub > <http://api.openoffice.org/docs/common/ref/com/sun/star/system/XSystemShellExecute.html> > > Elle me donne satisfaction mais, elle se déclanche trop facilement. Tu > as proposé d'adjoindre au contrçole une petite case, qui peut bien être > un bouton > <http://api.openoffice.org/docs/common/ref/com/sun/star/system/XSystemShellExecute.html> > > > > La macro lance Thunderbird quand on clique dans la fenêtre du contrôle. > Je voudrais que cette action soit déclenchée à partir de la petite case > située, à droite du contrôle, sur la figure. > Cette modification est probablement simple, je ne sais pas la faire. > > Cordialement > Papy >
Il te suffit de supprimer l'évènement concernant la zone de texte relative au champ adresse, et de paramétrer le lancement de la macro à partir du contrôle désiré (ie : bouton picto ou contrôle picto). Dans ta copie d'écran et ton message je ne sais ce que signifie "la petite case". Francois Gatto --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
