[Résolu][Calc] Envoyer un courriel en copie cachée

[Carol]

Un mail est une allée arborée en français. Veillez à titrer correctement sans l'usage abusif de majuscules.
Un titre explicite n'est pas pour vous mais pour ceux effectuant des recherches dans ce forum.

Bonjour.

Code : Tout sélectionner

rem envoi du message
eMailAddress = ""
entete = "Compte-rendu de " + nom
eSubject = entete
eMailer = createUnoService("com.sun.star.system.SimpleSystemMail")
eMailClient = eMailer.querySimpleMailClient()
eMessage = eMailClient.createSimpleMailMessage()
eMessage.Recipient = eMailAddress
***
eMessage.Subject = eSubject

J'utilise ce code pour envoyer des mails depuis mon appli et cela fonctionne parfaitement.

J'ai besoin de faire un envoi en copie cachée, et je n'y parviens pas.
Là où se trouve ***, j'ai essayé :
eMessage.BccRecipient = "tata@toto.fr" ---> Variable d'objet non définie
et
eMessage.BcRecipient = "tata@toto.fr" ---> Propriété ou méthode non trouvée

Je suis allé ici http://www.openoffice.org/api/docs/comm ... mMail.html pour chercher des références, mais je tombe sur une page d'erreur..

Donc, je sèche...

Merci pour votre aide

[micmac]

Bonjour,

ibreOffice Version 24.2.7.2

Cette version n'est plus maintenue.
Si c'est une obligation ou un choix mentionnez-le par Obligation de version dans votre signature afin de ne pas être relancé.

Afin de profiter des dernières améliorations, pensez à être à jour de la dernière version officielle

Accès direct à votre signature pour la corriger.

[Carol]

Fait

https://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1system_1_1XSimpleMailMessage.html
la fonction semble bien exister et se noter BccRecipient...

Je viens d'essayer :
eMessage.setBccRecipient("tata@toto.fr") qui ne fonctionne pas.

[Dolev]

Bonjour,

Le suprême de code fonctionne chez moi : viewtopic.php?t=39844
Vérifiez avec Xray les paramètres qui doivent être passés par array()


PS : la page de l'API est https://www.openoffice.org/api/docs/com ... vider.html

[Carol]

Code : Tout sélectionner

    Sub OldMethode
    Dim Messagerie As Object, Client As Object, Courrier As Object
    	If GetGUIType = 1 Then
    		Messagerie = CreateUnoService("com.sun.star.system.SimpleSystemMail")'version Windows Aoo3/Libo3 & LibO4
    	Else
    		Messagerie = CreateUnoService("com.sun.star.system.SimpleCommandMail")'Version Linux Aoo3/LibO3 & LibO4
    		Client = Messagerie.querySimpleMailClient()
     		Courrier = Client.createSimpleMailMessage()
    	
    		Courrier.Subject = "Test LibO4 et SystemMailProvider"'Sujet	
    		Courrier.Recipient = "Leochopoto@wanadoo.fr"'Adresse
    		Courrier.CcRecipient = Array("EtienneDuParc@LesAccacia.fr")'CopieA
    		Courrier.BccRecipient = Array("MaxLaMenace@Tapedur.fr")'CopieA
    		Courrier.Attachement = Array("")'PcsJt()
    		Client.sendSimpleMailMessage(Courrier,0)
    	End if
    End sub

Je continue à chercher, j'ai essayé d'intégrer le code du suprême, mais je ne le comprends pas.
Vue la boucle if then else, si on est sous Windows (GUIType 1), à quel moment se fait la définition des Courrier.Subject, Courrier.Recipient et autres ???
Pour ce que je comprends de ce que je lis, elle ne se fait ici que sur un autre système que Windows...

Vérifiez avec Xray les paramètres qui doivent être passés par array()

Je ne sais pas faire...

[Dolev]

à quel moment se fait la définition des Courrier.Subject, Courrier.Recipient et autres ???

Est-ce que vous utilisez Xray pour voir ce que renvoie l'objet ?
Et comme d'habitude, pourquoi ne pas fournir un document.

[Carol]

Je ne sais pas utiliser Xray.

Je ne peux pas envoyer un document, bcp trop long à anonymiser.

[Dolev]

Je ne sais pas utiliser Xray.

Le document contient des instructions d'installation.

Je ne peux pas envoyer un document, bcp trop long à anonymiser.

Je n'irai pas plus loin dans ce cas.

[luky-luke]

Bonjour,

Code : Tout sélectionner

    Sub OldMethode
    Dim Messagerie As Object, Client As Object, Courrier As Object
    	If GetGUIType = 1 Then
    		Messagerie = CreateUnoService("com.sun.star.system.SimpleSystemMail")'version Windows Aoo3/Libo3 & LibO4
    	Else
    		Messagerie = CreateUnoService("com.sun.star.system.SimpleCommandMail")'Version Linux Aoo3/LibO3 & LibO4
    	End if
    		Client = Messagerie.querySimpleMailClient()
     		Courrier = Client.createSimpleMailMessage()
    	
    		Courrier.Subject = "Test LibO4 et SystemMailProvider"'Sujet	
    		Courrier.Recipient = "Leochopoto@wanadoo.fr"'Adresse
    		Courrier.CcRecipient = Array("EtienneDuParc@LesAccacia.fr")'CopieA
    		Courrier.BccRecipient = Array("MaxLaMenace@Tapedur.fr")'CopieA
    		Courrier.Attachement = Array("")'PcsJt()
    		Client.sendSimpleMailMessage(Courrier,0)
 
    End sub

Cordialement

[Carol]

C'est bien dommage.
Le code de base fonctionne sans souci, j'ai vérifié avant de poser la question que les éléments étaient bien définis dans la macro et pas ailleurs, histoire de n'avoir pas oublié une quelconque option.
Je veux simplement lui ajouter une capacité supplémentaire : si je sais envoyer un mail, je me permets de supposer qu'il ne faut pas révolutionner le code en entier pour juste envoyer un mail en copie cachée.
L'outil sur lequel je travaille pour le boulot contient des tas et des tas d'informations. La dernière fois que je l'ai envoyé pour m'aider à résoudre un pb, j'ai passé un temps fou à le vider, et encore je me suis fait rentrer dedans parce qu'il y restait des adresses mails d'établissements publics.

Si je vous soumets mes interrogations, c'est parce que je n'ai pas les compétences que certains d'entre vous ont. Je cherche, je bidouille, j'adore ça, mais quand on ne sait pas, soit on fait un code peu économe voire pourri, soit on est planté.
Je pense que pas mal de gens du forum n'ont pas vos compétences, et je trouve les réponses parfois déconcertantes ou décourageantes, parce que les éléments de langage restent trop élevés. Par exemple, je suis allé sur la doc de l'API, j'ai installé Xray et j'ai lu sa notice...
Mais quand on ne sait pas ce qu'on y cherche, on reste collé au même endroit.

Bref, merci d'avoir pris le temps.
Je vais me débrouiller.

[Carol]

Bonjour,

Code : Tout sélectionner

    Sub OldMethode
    Dim Messagerie As Object, Client As Object, Courrier As Object
    	If GetGUIType = 1 Then
    		Messagerie = CreateUnoService("com.sun.star.system.SimpleSystemMail")'version Windows Aoo3/Libo3 & LibO4
    	Else
    		Messagerie = CreateUnoService("com.sun.star.system.SimpleCommandMail")'Version Linux Aoo3/LibO3 & LibO4
    	End if
    		Client = Messagerie.querySimpleMailClient()
     		Courrier = Client.createSimpleMailMessage()
    	
    		Courrier.Subject = "Test LibO4 et SystemMailProvider"'Sujet	
    		Courrier.Recipient = "Leochopoto@wanadoo.fr"'Adresse
    		Courrier.CcRecipient = Array("EtienneDuParc@LesAccacia.fr")'CopieA
    		Courrier.BccRecipient = Array("MaxLaMenace@Tapedur.fr")'CopieA
    		Courrier.Attachement = Array("")'PcsJt()
    		Client.sendSimpleMailMessage(Courrier,0)
 
    End sub

Cordialement

Ce code fonctionne parfaitement.
Merci beaucoup !