Non j'ai pas de MsgBox, j'ai mis ce code là :
Public R as String
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Not Item.Class = olMail Then Exit Sub
If InStr(1, Item.Subject, "[") = 0 Then
UserForm1.Show
Item.Subject = R & "-" & Item.Subject
End If
End Sub
et dans le UserForm j'ai mis sa :
Private Sub UserForm_Initialize()
ComboBox1.AddItem "[INFO]"
ComboBox1.AddItem "[URGENT]"
End Sub
Private Sub Recuperation
R = ComboBox1.Text
End Sub
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub