Re: [users-fr] Base Adresses mèl

Fri, 18 Dec 2009 01:58:49 -0800


Merci François,


Je rencontre une difficulté de dernière heure, la macro affiche une erreur la concernant.


L'application a pour nom : Adresses_MT_091203.

le champ a pour nom : A_EMAIL


J'ai modifié la macro


Sub sendEmailClient( oEvent as object )

dim sA_EMAIL as string

sA_EMAIL = oEvent.Source.Text

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

End Sub


A ma grande surprise, l'erreur ne porte plus sur ta macro mais, elle porte sur la macro qui ouvre le formulaire, qui contient le contrôle A_EMAIL. Or, l'ouverture de ce formulaire n'a jamais occasionné d'erreur.


Cordialement

Papy



//*********************************************************************************************
Francois Gatto 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"


Bonne chance

Francois Gatto



---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Répondre à