Schrift fett

ich versende eine Email direkt aus Excel
heraus. Dabei soll mir der Inhalt von Zelle
B2 fett angezeigt werden. Ich bekomme leider
mit untenstehenden Code ein Fehlermeldung.
Hat jemand eine Idee ?

Sub Mailversenden()

Dim outobj As Object
Dim mail As Object

Set outobj = CreateObject("outlook.application")
Set mail = outobj.createItem(0)
mail.Subject = "Bericht"
mail.body = "Bitte um Ausführung" & Chr(13) & _
range("b2").font.bold = true

mail.to = Range("b7")
mail.display

Set mail = Nothing
Set outobj = Nothing

End Sub