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

[skatiti]

Bonjour,

J'ai déjà effectué le gros des recherches cependant je n'arrive pas à catégoriser le bon mail.
Au lieu de catégoriser le mail reçu c'est ma réponse qui est catégorisée avec mon username...

à l'aide

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 Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If InStr(myomail.Categories, Environ("UserName")) = 0 Then
       myomail.Categories = (myomail.Categories & "," & Environ("UserName"))
    ElseIf InStr(myomail.Categories, Environ("UserName")) = 1 Then
        myomail.Categories = (myomail.Categories)
    End If
    myomail.Save

  End Sub

 

[skatiti]

j'ai modifié mon code mais il ne fonctionne toujours pas :-/

ou plutôt en partie,

Il affecte bien la catégorie "a lu" mais pas celle " a répondu"

autre soucis: il écrase la catégorie s'il en existait une au préalable ...

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