Discussion :

[kikssos]

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.
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mobydick_62]

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

[kikssos]

Désolé pour l’oubli, pour répondre à ta question c’est libre office.

[Mobydick_62]

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

[jurassic pork]

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

​ami calmant, J.P

[kikssos]

si je comprends bien la seule solution à mon problème est le téléchargement de Easy dev ??

[Mobydick_62]

Bonjour,

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

Cordialement

[ptissendier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.