[Résolu][Calc] Utiliser CurrentContext sans "listener"

[steph A]

Bonjour à tous.

Tout d'abord, merci lucky-luke pour cet excellent sujet sur l'envoi de mail et ces codes qui fonctionnent parfaitement.
Surtout celui de MailServiceProvider_EnvoiAuto dont j'aime le fonctionnement "autonome" et dont je joins à ce message la version corrigée.
Je cherche à adapter ce code dans un contexte plus simple (adresse mail du destinataire connu, sujet connu,...)
et donc à faire un code plus "light".

Aussi, j'ai une question finalement assez générale de "progra Basic" :

Peut-on se passer de la création de listener pour récupérer les propriétés du serveur??? ou les infos utilisateur???

par exemple, dans le bout de code suivant (que l'on trouve dans la function sendMessage) :

Code : Tout sélectionner

server = CreateUNOListener("smtp_", "com.sun.star.uno.XCurrentContext")
mailUser = CreateUNOListener("user_", "com.sun.star.mail.XAuthenticator")

J'ai essayé diverses solutions comme, par exemple, récupérer les valeurs de ServerName ou de Port dans un hypothétique dim server as new com.sun.star.uno.XCurrentContext
qui n'a évidement pas fonctionné et qui ne manquera pas de faire rire les plus calés

Je sais, tous les chemins mènent au FORUM, surtout la programmation au pifomètre

Je continu de fouiller. Si quelqu'un à une idée je suis preneur!

Merci à tous et à plus.

Stéphane.

[micmac]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : https://forum.openoffice.org/fr/forum/s ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doivent pas être employés car il sont implicites. Essayez de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous vous remercions de le faire avant votre prochain message sous peine de voir votre sujet verrouillé.
Merci de votre collaboration.

[steph A]

Bonjour micmac,

désolé de cet oubli.

C'est réparé !

Merci.

Cordialement,
Stéphane.

[luky-luke]

Bonjour steph A

Je vais faire un peu de "service après mise à dispo"

Peut-on se passer de la création de listener pour récupérer les propriétés du serveur??? ou les infos utilisateur???

Dans le contexte sauf erreur ou incompétence de ma part, je dirais non. Le programme se met à l’écoute d'un ensemble d'événements https://www.openoffice.org/api/docs/com ... ntext.html

Je cherche à adapter ce code dans un contexte plus simple (adresse mail du destinataire connu, sujet connu,...)

Comme expliquer dans la macro, je copie/colle

Code : Tout sélectionner

REM Les Arguments passés à la fonction sendMail, sont tous sous la forme d'une chaîne de caractère (String) séparé par une virgule
REM sauf les URL des pièces jointe qui se présentent sous la forme d'un tableau de string
REM l’absence d'argument provoque des erreurs

Donc tu peux appeler directement la macro SendMail en écrivant en dure les arguments Adresse, Sujet, Texte, PcsJt dans la macro

Code : Tout sélectionner

sendMail(Adresse, Sujet, Texte,PcsJt())

Les macros ComboAddress, Destinataire, Objet, FichierJoint peuvent être supprimées et adapter la boite de dialogue en conséquence.

J'espère avoir été claire, Je manque d’entraînement après 3 mois d'absence sur le forum

Cordialement
Luke