Discussion :

[Heathcliff_1]

Bonjour,

J'essaie d'envoyer un mail Outlook via une macro dont le code est le suivant:

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
Sub SendMail()
Dim shp, shp1As Shape
 
Dim ol As Outlook.Application
Dim mi As Outlook.MailItem
Dim doc As Word.Document
 
 
Set shp = ActiveSheet.Shapes("ZT")
Set shp1 = ActiveSheet.Shapes("ZoneText1")
'Set shp2 = ActiveSheet.Shapes("ZoneText2")
 
Set ol = New Outlook.Application
Set mi = ol.CreateItem(olMailItem)
 
mi.Display
 
mi.To = shp.TextFrame.Characters.Text
mi.CC = shp1.TextFrame.Characters.Text
mi.Subject = "Suivi " & Range("J24") & "_" & Range("J1")
 
Set doc = mi.GetInspector.WordEditor
 
doc.Range(0, 0).InsertBefore "Bonjour," & vbNewLine & vbNewLine & "Veuillez trouver ci-après le suivi des traitements ..." & vbNewLine & vbNewLine & _"     I.  Focus sur les recettes reçues " & Range("J24") & ":" 
 
End Sub

Ma question est simple, comment mettre le texte: "I. Focus sur les recettes reçues" en Arial avec une taille 14 dans le corps du mail?

Bien cordialement;

[mfoxy]

Hello,

À ma connaissance, pour ce faire, tu vas être obliger de passer ton body en html.
Tu trouveras facilement des "convertisseurs" de texte enrichis vers html sur le net.
Pour la manière de procéder, bru trouveras un exemple ci-dessous :

https://www.developpez.net/forums/d1...-piece-jointe/

Bat,
MFoxy

[Heathcliff_1]

Je vais tester ça merci !

[Heathcliff_1]

Ça répond parfaitement à mon besoin merci bien !
C'est aussi l'occasion pour découvrir une peu le HTML

Cdt;