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;