Discussion :

[Korkal]

Bonjour.

J'ai un code qui recherche dans tous les mails d'une boîte ceux qui correspondent à un critère de recherche (par exemple, si le mail contient un mot clef) et marque chaque mail trouvé avec une Catégorie.
Aujourd'hui j'utilise simplement un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With oMail
 .Categories = .Categories & "Red Category"
.Save
End With

Mais cela entraîne qu'à chaque exécution du code, ces mails sont de nouveau "marqué" par la catégorie... Je me retrouve donc potentiellement avec des mails portant la Mème catégorie plusieursfois...

Pourriez-vous m'indiquer un bout de code pour tester l'existence d'une catégorie déterminée sur un mail?

Merci par avance de votre aide!

[Korkal]

Je me permets de relancer...
Même des pistes de recherche seraient les bienvenus!
Merci par avance pour votre aide.

[Oliv-]

bjr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If InStr(1, .Categories, "Red Category", vbTextCompare) = 0 Then
 .Categories = .Categories & "Red Category"
.Save
End If
End With