Discussion :

[ludovicparis]

Bonjour à tous,

Je gère un service technique et nous utilisons une boite mail Outlook classique qui est commune pour tout le service. Chacun a une couleur de drapeau, pour spécifier que c'est lui qui traite tel ou tel mail.
J'ai regardé sur Outlook et sur ce forum mais je n'ai pas obtenu de résultat, voici ce que je veux faire : dès qu'un mail arrive dans la boite, je souhaite qu'il soit agrémenté de la couleur verte, que le suivant soit agrémenté de la couleur orange, l'autre ensuite de la couleur violet, que le 4ème soit à nouveau en vert etc etc.
Le but est d'attribuer automatiquement un mail à une personne du service dès qu’il arrive dans la boîte commune, il y a trois personnes donc tous les 3 mails un mail lui est attribué.

Je ne sais absolument pas comment faire et aucun règle automatique ne semble possible sur Outlook, dois-je passer par du VBA?

Merci par avance pour votre aide.

Ludovic

[ludovicparis]

Bonjour,

Aucune idée pour m'aider à trouver une solution?

Ludovic

[Dolphy35]

Salut,

Outlook n'est pas prévue pour cette utilisation. Tu peux toujours créer un code en VBA qui permet à l'arrivé d'un mail d'attribuer un indicateur.

Dolphy

[ludovicparis]

Merci pour ta réponse Dolphy

Effectivement c’est bien ce que je pensais : il faut passer par VBA….mon problème est que mes connaissances en VBA sont limitées et je suis incapable de faire le code. J’ai regardé sur le FAQ Outlook et j’ai essayé de commencer quelque chose mais je suis bloqué sur le fait qu’une fois sur deux un indicateur doit être attribué, je ne sais pas quelle fonction utiliser.

Je pensais prendre la fonction « for each » mais je ne sais pas si cela va fonctionner.

Voici ce que j’ai commencé à faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Application_NewMail()
 
    Dim myOlApp As New Outlook.Application
    Dim myInbox As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As Object
 
    Set myItems = myInbox.Items
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Dim strName As String
 
 
For Each myItem In myInbox.Items
 
???
 
    Next myItem

Est-ce que je suis sur la bonne voie ou complètement à côté de la plaque ?

Merci pour ton aide

Ludo