Macro : Problème macro corps de mail

Version imprimable

Bonjour,

Voilà j'ai une macro qui fonctionne pour l'envoi d'un pdf en pièce jointe dans un mail seulement j'aimerais introduire automatiquement un message dans le corps du mail ainsi que mettre une adresse en copie mais voilà cela ne fonctionne pas. 8O
je mets mon code si une âme charitable pouvait me dépanner ça.
Pour info la boîte mail utilisée est Outlook 2016
Merci d'avance :P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 Dim oShell As Object
     dim strMail as string
     Dim monDocument as Object, MesFeuilles as Object, MaFeuille as Object
     Dim litCellule as String, litobjet as String, litBody as String
     Dim litCelluleCC as string, litemetteur as string
     Dim Reponse as string
     dim pieces(0) as string
     MonDocument = ThisComponent
     MesFeuilles = MonDocument.sheets
     MaFeuille = MesFeuilles.GetByName("Bilan individuel trimestriel")
     litCellule= MaFeuille.getCellRangeByName("A2").String
     litCelluleCc = MaFeuille.getCellRangeByName("D12").String
     litemetteur = MaFeuille.getCellRangeByName("D13").String
     litobjet = MaFeuille.getCellRangeByName("D20").String
     litBody = MaFeuille.getCellRangeByName("A1").String
 
Rem *** Initialisation du mail ***
 
     Reponse = MsgBox ("Souhaitez-vous envoyer ce bilan individuel par Email ?",132,"Envoi par Email") 
 
     	If Reponse = 6 then goto Suite
     	Stop
 
 
	Suite:
 
	on error resume next
	ochaos=createUnoService("com.sun.star.system.SimpleSystemMail")
	mail=ochaos.querySimpleMailClient()	
	lemessage=mail.createsimplemailmessage()
	lemessage.setrecipient(litCellule)
	lemessage.setCcrecipient(litCelluleCC)
	lemessage.setOriginator(litemetteur)
	lemessage.setsubject(litobjet)
	lemessage.setbody(litBody)
 	pieces(0)=Fichier
	lemessage.setAttachement(pieces())	
	mail.sendSimpleMailMessage(lemessage,0)	
 
 
	End Sub

06/02/2020, 08h48
Mobydick_62

Problème macro corps de mail

Bonjour,

Tu ne dis pas si tu utilises Libre Office ou Open Office. Les deux API sont différentes, sous Libre Office le service com.sun.star.system.SimpleSystemMail ne permet le corps du texte.

Voir ce fil ci-dessous pour avoir toutes les explications :

https://forum.openoffice.org/fr/foru...p?f=15&t=39844

Cordialement
06/02/2020, 08h52
kikssos

Désolé pour l’oubli, pour répondre à ta question c’est libre office.
06/02/2020, 12h11
Mobydick_62

Problème macro corps de mail

Donc à ma connaissance, avec le service le service com.sun.star.system.SimpleSystemMail de libre office actuel, il n'est pas possible d'avoir les trois en même temps (sujet, destinataires et pièce(s) jointes(s).

Cordialement
08/02/2020, 00h16
jurassic pork

hello,
si c'est possible ! voir ici ou avec l'extension LibreOffice EasyDev ici.

ami calmant, J.P
10/02/2020, 11h38
kikssos

si je comprends bien la seule solution à mon problème est le téléchargement de Easy dev ??
10/02/2020, 13h57
Mobydick_62

Bonjour,

La réponse est oui.
Sous Open Office c'est possible, mais pas encore sous Libre Office.

Cordialement

Bonjour
Avec le code ci-dessous tu peux peut-être paramétrer beaucoup de choses
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub EnvoieMail(FicAdresse as string,Destinataire as String , DateFacture As String ) Dim Sujet, Corps, Exp, Dest, Pj as String Pj = FicAdresse ' une seule pièce jointe 'Pj = "'" & Fichier & ",file:///C:/Users/moi/Desktop/macro libreoffice/fich2.csv'" ' si plusieurs pièces jointes Sujet = "Votre facture de loyer pour " + Format(DateFacture,"MM-YYYY") Corps = "Bonne réception"+Chr(10)+"Cordialement"+Chr(10)+"Signé Moi" Dest =Destinataire 'Des = "'toto.machin@truc.fr, titi.bidule@truc.fr'" Exp = "compte.expediteur@numericable.fr" 'Lance le client de messagerie shell("file:///home/moi/thunderbird/thunderbird",3, _ "-compose body=" & Corps & _ ",subject=" & Sujet & _ ",from=" & Exp & _ ",to=" & Dest & _ ",cc=" & CC & _ ",bcc="& cci & _ ",attachment=" & Pj) End Sub
Il suffit pour le "corps" que tu le constitues avant puis de le passer en paramètre (comme DateFacture pa exemple) dans la sub
Voici pour thunderbird les parametres http://kb.mozillazine.org/Command_li...Thunderbird%29
Pour outlook le shell=("file:///C:/Programmes/Outlook. exe/c ipm. note/m user@contoso. com ? subject = test&Body = Hello .......)
ou voir par ici https://www.extendoffice.com/documen...mand-line.html
Pour le shell il faut mettre exactement l'adresse de l'executable outlook, le même que celui que tu as mis dans Outils/Options/Internet/Courrier
J'espère t'avoir donné quelques pistes.