Email avec éléments du message écrit en gras.

Bonjour,

Dans un classeur utilisé par différentes personnes, il y a une macro pour
envoyer en automatique des emails dont le corps du message se compose
d'éléments variables et invariables.
Cela fonctionne très bien avec le code ci-après.

Mais je voudrais que les éléments variables soient en caractères gras.

Est-ce possible, si oui comment ?

Merci par avance pour vos réponse.

Voici une partie de mon code

'DETERMINATION DES VARIABLES

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

'SELECTION DE L'APPLICATION EXTERIEURE UTILISEE POUR L'ENVOI DU MESSAGE

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

'CREATION DU CORPS DU MESSAGE AVEC RECUPERATION DES DIFFERENTES VALEURS

strbody = " A Tous," & _
vbNewLine & vbNewLine & _
" Bonjour, " & vbNewLine & vbNewLine & _
" Suite à la création et/ou l'évolution de : " &
Workbooks("Gestion des plans.xls").Sheets("Message").Range("B3").Text & _
vbNewLine & vbNewLine & _
" Je vous invite à consulter, sur le serveur informatique,
les documents suivants au format PDF :" & _
vbNewLine & vbNewLine & _
" L'avis de diffusion " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B7").Text & _
vbNewLine & _
" Sous J:\Documents Techniques\Avis de diffusion\" & _
vbNewLine & vbNewLine & _
" Le(s) document(s) suivant(s) : " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B10").Text & _
vbNewLine & _
" Sous J:\Documents Techniques\Plans\" & _
vbNewLine & vbNewLine & _
" et / ou" & _
vbNewLine & vbNewLine & _
" La (les) notice(s) suivantes : " & Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B13").Text & _
vbNewLine & _
" Sous J:\Documents Techniques\Notices NPAF\" & _
vbNewLine & vbNewLine & _
" Cordialement" & _
vbNewLine & vbNewLine & _
" " & Workbooks("Gestion des
plans.xls").Sheets("RECAP.").Range("L1").Text

On Error Resume Next

'CREATION DE L'ENTETE DU MESSAGE

With OutMail
.To = Workbooks("Gestion des
plans.xls").Sheets("Message").Range("B32").Text
.Cc = Workbooks("Gestion des
plans.xls").Sheets("Message").Range("Q1").Text
.Bcc = ""
.Subject = "Avis de diffusion " & Workbooks("Gestion des
plans.xls").Sheets("RECAP.").Range("A1").Value
.Body = strbody


--
Projeteur08