Discussion :

[hadiney]

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

[halaster08]

Bonjour,

Peux tu mettre la balise code (symbole #) sinon c'est illisible.

Pour la mise en forme du texte,j'avais posé une question similaire ici: http://www.developpez.net/forums/d15...ur-gras-corps/

[hadiney]

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 :

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

[titgugu]

Bonjour

J'ai exactement le même problème.
Aurais-tu trouvé une solution ?
Dans mon code actuel j'arrive à insérer :

Le texte formaté ET la signature Outlook par défaut (pas d'image)

OU

Le texte formaté ET la plage collée au format image (pas de signature)

Je pense que ta solution pourrait m'aider

Merci