Bonjour,

J'ai un petit souci dans une macro qui envoie des mails sur Outlook
Je dois envoyer un mail quotidiennement avec des datas calculées dans des cases Excel.

Je dois :
- Coller mon texte
- Coller en dessous une image du tableau
- Recoller du texte ("Si vous avez besoin d'autres infos,..... ")
- Avoir la signature par défaut qui est un mélange de texte enrichi et d'une image.

Je sens que suis pas loin de ce qu'il me faut.

A ce niveau, j'ai les textes et l'image mais :
1 - Les textes ont perdu leur format.
2 - L'image est collée aux textes du haut et du bas, je n'ai pas de saut à la ligne (pareil que 1, problème de format).
3 - La signature a disparu.

Merci beaucoup pour votre aide

Voici le code :

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
Public Sub Send_daily_Message()
 
Dim ol As Object, myItem As Object
Dim corps_1 As String
Dim corps_2 As String
 
Set rangebody = ActiveSheet.Range("B2:V38")
rangebody.Copy
Dim p As Picture
Set p = ActiveSheet.Pictures.Paste
p.Cut
 
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
 
myItem.Display
 
myItem.To = "badass@yyyy.com"
myItem.Subject = "Daily mail " & Format(Now, "DD/MM/YY")
 
 
corps_1 = "Dear All," & Chr(10) & Chr(10) & _
"Please see below the daily details:" & Chr(10) & Chr(10) _
'& "-   Results are € " & [Results].Value & " // Results last year were: € " & [Results_Last_Year].Value & _
" Results evolved by " & [Results_evolution].Value & " and market share evolved by " & [Market_share_evolution].Value 
corps_2 = "Please let me know if you have any question." & Chr(10) & Chr(10) _
& "Best regards,"
 
 
Dim wEditor As Word.Document
 
Set wEditor = ol.ActiveInspector.WordEditor
'Paste Picture
wEditor.Range.Paste
 
myItem.HTMLBody = corps_1 & myItem.HTMLBody & corps_2
 
 
myItem.Send
 
Set ol = Nothing
End Sub