Histoire de Box et mail

[rjcb]

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