Histoire de Box et mail

Salut!

Voici ma macro.
Comment faire pour que le texte dans la combobox qui est en italique, conserve sa mise en forme lors de l'envoi pas mail.

Dans ce cas la , une fois le mail reçu, je lis le mail mais la police n'est plus en italique.

Private Sub ComboBox1_Change()
TextBox1.Text = ""
TextBox1.Font.Italic = False
If (ComboBox1.Value = "Janvier") Then
TextBox1.Text = "choix 1"
TextBox1.Font.Italic = True
TextBox1.Text = "test italic"

End If

If (ComboBox1.Value = "Février") Then
TextBox1.Text = "choix 2"
End If

End Sub

Private Sub ComboBox1_DropButtonClick()
ListeMois = Array("Janvier", "Février", "Mars")
ComboBox1.List = ListeMois

End Sub


Private Sub CommandButton1_Click()
envoiUnMail
End Sub



Private Sub envoiUnMail()

Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
Dim email As String
Set appOutlook = CreateObject("outlook.application")
Set message = appOutlook.CreateItem(olMailItem)

With message
.Subject = "Sujet du message"
.Body = "Bonjour," & vbCr & vbCr & TextBox1.Value
.Recipients.Add Feuil1.Range("A2").Value
.Send
End With
End Sub