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
Partager