Outlook Catégoriser un mail reçu lorsqu'on y répond

Public WithEvents myomail As Outlook.MailItem

Private Sub Application_ItemLoad(ByVal olMailItem As Object)

'se déclenche à la selection du mail
   If olMailItem.Class <> olMail Then Exit Sub
   'Vérifier que le formulaire est bien celui d'un MAIL
 
   Set myomail = olMailItem
 
 
End Sub



Private Sub myomail_Open(Cancel As Boolean)


' se déclenche à l'ouverture du Mail

 
   'vérifier l'utilisateur et ajouter une catégorie à celles déjà existantes en fonction de l'utilisateur
    If InStr(myomail.Categories, Environ("UserName") & " a lu") = 0 Then
       myomail.Categories = (Environ("UserName") & " a lu")

    ElseIf InStr(myomail.Categories, Environ("UserName") & " a lu") = 1 Then
        myomail.Categories = (myomail.Categories)
 
    End If
 
    myomail.Save
End Sub


Private Sub myomail_Reply(ByVal response As Object, Cancel As Boolean)
    If InStr(response.Categories, Environ("UserName") & " a répondu") = 0 Then
       myomail.Categories = (Environ("UserName") & " a répondu")

    ElseIf InStr(response.Categories, Environ("UserName") & " a répondu") = 1 Then
        myomail.Categories = (myomail.Categories)
 
    End If
    
 
    myomail.Save
End Sub