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