Macro VBA - Insertion image, texte enrichi & signature par défaut dans un mail
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:
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 |
[XL-2016] Macro VBA - Insertion image, texte enrichi & signature par défaut dans un mail
J'ai mis la balise
Merci
-----
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:
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 |
