Bonjour,

J'ai modifié la base de Jean ainsi que la macro associée.
Cette dernière s'appuie sur un autre composant API (service
SystemShellExecute) qui devrait assurer une meilleure portabilité.

La base Test_Lancer_Messagerie.odb est à charger ici :

http://www.cijoint.fr/cjlink.php?file=cj200912/cijplXOp4y.odb

La macro génère un message à partir du contenu des champs. Le message
est composé de :
- une adresse e-mail,
- un sujet
- un contenu (corps du message).

Testée sous XP et différentes distributions Linux elle fonctionne
correctement.

Je n'ai pas de poste sous Vista (heureusement) mais je pense que cela
devrait tourner.

Bons tests et bonnes fêtes à tou[te]s.

Francois Gatto

PS :
http://api.openoffice.org/docs/common/ref/com/sun/star/system/SystemShellExecute.html
http://api.openoffice.org/docs/common/ref/com/sun/star/system/XSystemShellExecute.html

Jean Sympa a écrit :
> Bonjour Jean Michel
> 
> 
> Sitôt dit, sitôt fait.
> 
> 
> Voici une maquette.
> 
> 
> Cordialement
> 
> Papy
> 
> 
> //****************************************************************************************************
> 
> Jean Michel PIERRE a écrit :
>> Jean,
>> Ce que tu pourrais faire, c'est joindre une courte base avec 2 ou 3
>> adresses e-mail, et la macro pour tester sur d'autres configurations,
>> comme cadeau de Noël.
>> J.M.
>>
>>>
>>>
>>> Merci à vous deux,
>>>
>>>
>>> - PC fixe
>>>
>>>
>>> Sous XP le problème est résolu grâce à "cmd /c start".
>>>
>>>
>>> - Portable
>>>
>>>
>>> Sous Ubuntu le problème est résolu grâce à "thunderbird".
>>>
>>>
>>> Je n'ai pas trouvé de solution, pour Vista, sur le portable. Cela ne
>>> me chagrine pas car je n'utilise pas ce logiciel.
>>>
>>>
>>> J'ai obtenu une réponse satisfaisante pour XP et Ubuntu; mon problème
>>> est donc résolu.
>>>
>>>
>>> Cordialement
>>>
>>> Papy
>>>
>>>
>>> //***********************************************************************************************
>>>
>>> yves dutrieux a écrit :
>>>> Bonsoir,
>>>>
>>>> Le 19 décembre 2009 16:50, Jean Sympa <[email protected]> a écrit :
>>>>
>>>>  
>>>>> Merci Yves
>>>>>
>>>>>
>>>>> J'ai un triple problème. J'ai XP sur un PC fixe et Vista et Ubuntu
>>>>> sur un
>>>>> portable.
>>>>>
>>>>>
>>>>> - PC fixe
>>>>>
>>>>>
>>>>> Sous XP le problème est résolu grâce à "cmd /c start"
>>>>>
>>>>>
>>>>> - Portable
>>>>>
>>>>>
>>>>> Sous Ubuntu "cmd /c start" n'est pas la solution.
>>>>>
>>>>>     
>>>> Normal.  cmd /c n'existe pas sous ubuntu et la bonne manière de
>>>> faire est
>>>> celle spécifiée par François, "thunderbird" (attention aux
>>>> majuscules/minuscules car on est en linux...)
>>>>
>>>>
>>>>  
>>>>> Sous Vista "cmd /c start" n'est pas la solution.
>>>>>
>>>>>     
>>>> Je connais pas trop vista (dieu merci ;-) )
>>>> mais ça a sûrement à voir avec les droits d'autorisation (UAC) car ça
>>>> devrait normalement fonctionner.
>>>> essaie avec "D:\Program Files\Mozilla Thunderbird\thunderbird.exe" en
>>>> partant du principe que Thunderbird est installé dans son dossier
>>>> par défaut
>>>> (et sur d:\ lui aussi). Mais avec cette commande on perd la portabilité
>>>> qu'on avait avec la commande start.
>>>>
>>>> Le mieux, comme l'application doit être multiplateforme, c'est de
>>>> trouver un
>>>> moyen de tester sur quelle plateforme on se trouve et en fonction de
>>>> celle-ci, lancer l'application/la commande adéquate.
>>>>
>>>> qqun a-t-il une autre idée ?
>>>> j'ai pensé aussi à un petit script qui lancerait la bonne commande.
>>>> Ce petit
>>>> script serait adapté en fonction de la plateforme... mais c'est du
>>>> bidouillage... :-/
>>>> d'autant + qu'en linux et en windows, les scripts n'ont pas la même
>>>> extension normalement (même si linux s'en accordera moyennant la bonne
>>>> première ligne :-) )
>>>>
>>>> Yves.
>>>>
>>>>  
>>>>> Remarque
>>>>>
>>>>>
>>>>> Sur le PC fixe, l'application est sur C:
>>>>>
>>>>> Sur le portable, dans la partition Vista, l'application est sur D:
>>>>>
>>>>> Sur le portable, dans la partition Ubuntu, je ne sais pas où elle est.
>>>>>
>>>>>
>>>>>
>>>>> Cordialement
>>>>>
>>>>> Papy
>>>>>
>>>>>
>>>>>
>>>>> //******************************************************************************************************
>>>>>
>>>>> yves dutrieux a écrit :
>>>>>
>>>>>  
>>>>>> Re,
>>>>>>
>>>>>> Le 19 décembre 2009 13:34, Jean Sympa <[email protected]> a écrit :
>>>>>>
>>>>>>
>>>>>>
>>>>>>    
>>>>>>> Merci Yves
>>>>>>>
>>>>>>>
>>>>>>> J'ai remplacé, sans succès, thunderbird par:
>>>>>>>
>>>>>>>
>>>>>>> - mozilla thunderbird
>>>>>>> - start
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>         
>>>>>> ok, j'ai compris en faisant le test avec un bouton chez moi :
>>>>>> utilise : "cmd /c start" au lieu de "start".
>>>>>> Car start est une commande "intrinsèque" à la commande DOS CMD.
>>>>>> sinon, tu peux surement aussi forcer via Thunderbird mais dans ce
>>>>>> cas, tu
>>>>>> dois indiquer le chemin complet du programme je suppose. mais ça
>>>>>> j'ai pas
>>>>>> testé ;-)
>>>>>>
>>>>>> Yves
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>    
>>>>>>> je n'ai toujours pas de solution.
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> Cordialement
>>>>>>>
>>>>>>> Papy
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> //********************************************************************************************
>>>>>>>
>>>>>>> yves dutrieux a écrit :
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>      
>>>>>>>> Bonjour,
>>>>>>>>
>>>>>>>> Le 19 décembre 2009 09:36, Jean Sympa <[email protected] <mailto:
>>>>>>>> [email protected]>> a écrit :
>>>>>>>>
>>>>>>>>
>>>>>>>>   Bonjour à vous deux,
>>>>>>>>
>>>>>>>>
>>>>>>>>   j'ai oublié de montrer le message obtenu avec la macro de
>>>>>>>> François
>>>>>>>>
>>>>>>>>
>>>>>>>>   apparemment Base ne trouve pas sAddressEmail.
>>>>>>>>
>>>>>>>> Je pense plutot qu'il ne trouve pas thunderbird...
>>>>>>>> Si tu es sous Windows, as-tu essayé "start"  à la place de
>>>>>>>> "thunderbird"
>>>>>>>> ?
>>>>>>>>
>>>>>>>> Yves
>>>>>>>>
>>>>>>>>   Que faire?
>>>>>>>>
>>>>>>>>
>>>>>>>>   Cordialement
>>>>>>>>
>>>>>>>>   Papy
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>  
>>>>>>>> //-------------------------------------------------------------------------------------------------------------------------------
>>>>>>>>
>>>>>>>>   Jean Sympa a écrit :
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>        
>>>>>>>>>   Merci à vous deux,
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>   J'ai oublié de préciser que j'utilise XP et que mon épouse
>>>>>>>>>   utilise Ubuntu.
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>   La saisie des adresses a lieu sous Ubuntu. Les adresses sont
>>>>>>>>>   exploitées sous XP et Ubuntu.
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>   Je modifie l'application sous XP et j'enregistre les
>>>>>>>>>   modifications sur Ubuntu.
>>>>>>>>>
>>>>>>>>>   Actuellement, j'essaie la macro sous XP.
>>>>>>>>>
>>>>>>>>>   Cordialement
>>>>>>>>>
>>>>>>>>>   Papy
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>  
>>>>>>>>> //***********************************************************************************************
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>   yves dutrieux a écrit :
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>          
>>>>>>>>>>   bonjour,
>>>>>>>>>>
>>>>>>>>>>   Le 17 décembre 2009 22:33, Francois Gatto <[email protected]>
>>>>>>>>>>   <mailto:[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]
>>>>>>>>>>>   <mailto:[email protected]>
>>>>>>>>>>>
>>>>>>>>>>>   For additional commands, e-mail: [email protected]
>>>>>>>>>>>   <mailto:[email protected]>
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>>
>>>>>>>>>>>                 
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>               
>>>>>>>>>  
>>>>>>>>> ---------------------------------------------------------------------
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>   To unsubscribe, e-mail: [email protected]
>>>>>>>>>   <mailto:[email protected]>
>>>>>>>>>
>>>>>>>>>   For additional commands, e-mail: [email protected]
>>>>>>>>>   <mailto:[email protected]>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>             
>>>>>>>> -- 
>>>>>>>> web site : http://www.molenbaix.com
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>           
>>>>>>> ---------------------------------------------------------------------
>>>>>>>
>>>>>>>
>>>>>>> To unsubscribe, e-mail: [email protected]
>>>>>>> For additional commands, e-mail: [email protected]
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>         
>>>>>>
>>>>>>
>>>>>>       
>>>>> ---------------------------------------------------------------------
>>>>> To unsubscribe, e-mail: [email protected]
>>>>> For additional commands, e-mail: [email protected]
>>>>>
>>>>>
>>>>>     
>>>>
>>>>
>>>>   
>>>
>>>
>>> ---------------------------------------------------------------------
>>> To unsubscribe, e-mail: [email protected]
>>> For additional commands, e-mail: [email protected]
>>>
>>>
>>>
>>
>>
>>
>>
>> ---------------------------------------------------------------------
>> To unsubscribe, e-mail: [email protected]
>> For additional commands, e-mail: [email protected]
>>
>>
>>
> 
> 
> ------------------------------------------------------------------------
> 
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]



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

Répondre à