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
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