[Issue] [Calc] Envoi mail direct, sans validation sous Thunderbird (sous Linux)

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Avatar de l’utilisateur
Carol
Membre OOrganisé
Membre OOrganisé
Messages : 96
Inscription : 10 sept. 2007 07:16

[Issue] [Calc] Envoi mail direct, sans validation sous Thunderbird (sous Linux)

Message par Carol »

Bonjour.

Code : Tout sélectionner

Sub EnvoiMail()
	dim os_system, eMailAddress, eSubject as string
	dim classeur, controleur, fenetre, feuilles, feuille, eMailClient, eMailer, eMessage as object
	
	classeur = ThisComponent
	controleur = classeur.CurrentController
	fenetre = classeur.CurrentController.Frame.ContainerWindow
	feuilles = classeur.Sheets
	feuille = feuilles.getByName("Feuille1")
	
	os_system = LitTexte(feuille.getCellByPosition(1, 0))
	eMailAddress = LitTexte(feuille.getCellByPosition(1, 1))
	eSubject = LitTexte(feuille.getCellByPosition(1, 2))
	if os_system = "LINUX" then
		eMailer = createUnoService("com.sun.star.system.SimpleCommandMail")
	else
		eMailer = createUnoService("com.sun.star.system.SimpleSystemMail")
	endif
	eMailClient = eMailer.querySimpleMailClient()
	eMessage = eMailClient.createSimpleMailMessage()
	eMessage.Recipient = eMailAddress
	eMessage.Subject = eSubject
	eMessage.Body = LitTexte(feuille.getCellByPosition(1, 3))
	
	eMailClient.sendSimpleMailMessage (eMessage, com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE)
End Sub
J'utilise cette macro pour envoyer des mails depuis Calc, par l'intermédiaire de Thunderbird.
Ce que je veux ici, c'est :
- que l'envoi soit direct (= sans cliquer sur Envoyer dans TB)
- passe par TB (pour garder trace des envois effectués)

Cela fonctionne parfaitement sous Windows.
Sous Linux, le message s'ouvre bien dans TB, mais la seconde validation est nécessaire.

J'ai cherché et ne trouve pas.
Sur ce fil https://ask.libreoffice.org/t/how-to-send-email-in-evolution-mail-using-calc-macro/27307, le code fait appel à des processus externes si je comprends bien, mais contourne le passage par TB. Or, je dois y garder les traces des envois.

Merci
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Dernière modification par Oukcha le 03 déc. 2025 13:12, modifié 2 fois.
Raison : Ajout icône 'Issue'
LibreOffice Version 25.8.1.1 - Linux Mint 22.2 - Win 10 Pro
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 26200
Inscription : 03 mars 2006 07:45
Localisation : 127.0.0.1

Re: [Calc] Envoi mail direct, sans validation sous Thunderbird (sous Linux)

Message par Dude »

Salut,

L'interface XSimpleMailClient ne semble pas bien fonctionner sous Linux depuis très longtemps.
On a le vieux rapport de bogue 111298 (aucune voix à ce jour) qui en parle.
Comme cela fait appel à du MAPI sous Windows, l'équivalence (MAPI4Linux) n'a pas dû être testée.

Un contournement serait d'utiliser du Python pour faire l'envoi vers le SMTP. Mais ça n'en gardera pas trace dans le dossier "Envoyés" du courrielleur ensuite.

Il te reste à voter et baliser [Issue] pour le signaler.
Avatar de l’utilisateur
Carol
Membre OOrganisé
Membre OOrganisé
Messages : 96
Inscription : 10 sept. 2007 07:16

Re: [Calc] Envoi mail direct, sans validation sous Thunderbird (sous Linux)

Message par Carol »

Merci à toi.
LibreOffice Version 25.8.1.1 - Linux Mint 22.2 - Win 10 Pro
Avatar de l’utilisateur
Carol
Membre OOrganisé
Membre OOrganisé
Messages : 96
Inscription : 10 sept. 2007 07:16

Re: [Calc] Envoi mail direct, sans validation sous Thunderbird (sous Linux)

Message par Carol »

Dude a écrit : 03 déc. 2025 13:01 On a le vieux rapport de bogue 111298 (aucune voix à ce jour) qui en parle.
Il te reste à voter pour le signaler.
Fait.
LibreOffice Version 25.8.1.1 - Linux Mint 22.2 - Win 10 Pro