bonjour, Le 17 décembre 2009 22:33, Francois Gatto <[email protected]> a écrit :
> Bonsoir, > > Jean Sympa a écrit : > > Bonjour à toutes et à tous, > > Base Adresses mèl > > 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. > > Est-ce possible? > > Comment? > > Avec mes remerciements > > Cordialement > > Papy > > > 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. > > NB : > - je travail sous Linux et n'ai pas testé sous Ms-Windows > - il faudra éventuellement modifier le nom du client ici "thunderbird" > A mon avis, sous windows le mieux est de placer "start" au lieu du client email, ainsi, il prendra le client mail par défaut de windows ;-) Yves > > > Bonne chance > > Francois Gatto > > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [email protected] > For additional commands, e-mail: [email protected] > > -- web site : http://www.molenbaix.com
