Discussion :

[valarno]

Bonjour,

J'ai créé quelques règles qui, à l'arrivée de nouveaux messages déplace automatiquement certains mails dans des dossiers ou sous-dossiers spécifiés.
La question est :
Comment faire pour qu'un dossier "racine" affiche le nombre de mails non lus contenus dans tous ses sous-dossiers ?
A part ouvrir tous les dossiers, à priori il n'est en effet pas possible de voir les nouveaux mails reçus et classés automatiquement....

D'avance merci pour votre aide !

Valarno

[Dolphy35]

Salut et bienvenue

Hélas il n'y a pas d'astuces pour ce problème. Petit manque chez Outlook.


Dolphy

[greg_le_moine]

Alors ayant fait comme les autres et ne trouvant pas de solutions, voila qui peut vous aider.

1°) Vous débloquer le module Développeur dans le Ribbon d'Outlook et vous lancer VisualBasic

2°) Vous créez une nouvelle Macro

3°) Ensuite vous mettez le code suivant (j'ai mis des commentaires, vous pourrez ainsi comprendre et modifier selon vos besoins)

Private Sub Application_NewMail()
Dim App As New Outlook.Application
Dim Store As Outlook.Store
Dim nbTotalNonLu As Long

On Error Resume Next

'boucle sur chaque pst de la session Outlook
For Each Store In App.Session.Stores
nbTotalNonLu = nbNonLu(Store.GetRootFolder)
Next
End Sub

Private Function nbNonLu(ByVal Root As Outlook.Folder) As Long
Dim Folder As Outlook.Folder

'Initialisation du nombre d'email non lu dans son propre dossier
nbNonLu = Root.UnReadItemCount

' Ajouter les non lus de chaque sous dossier
If (Root.Folders.Count > 0) Then
For Each Folder In Root.Folders
' Changer le paramètrage par défaut pour visibilité olNoItemCount/olShowTotalItemCount/lShowUnreadItemCount
If (Folder = "Brouillons" Or Folder = "Boîte d'envoi" Or Folder = "Courrier indésirable") Then
'Pour ces dossiers, j'affiche le nombre d'éléments totals
Folder.ShowItemCount = olShowTotalItemCount
Else
Folder.ShowItemCount = olNoItemCount

nbNonLu = nbNonLu + nbNonLu(Folder)
End If
Next
End If

On Error Resume Next

'Modification du libellé du dossier (Sil y a des non lu, qu'il a au moins un sous dossier)
If (nbNonLu > 0 And Root.Folders.Count > 0) Then
Root.Name = VBA.Trim(VBA.Left(Root.Name, InStr(1, Root.Name, " (", vbTextCompare))) & " (" & nbNonLu & ") "
End If

End Function

4°) On teste et chez moi ça fonctionne parfaitement avec l'appel automatique lors de l'arrivée d'un mail grâce à la surcharge de la fonction Application_NewMail
Pour celles et ceux qui veulent aller plus loin, attention, j'ai essayé de faire une vraie fonction genre Sub RafraichirNbNonLu(Mail As MailItem) (ne pas oublier le paramètre en entrée MailItem sous peine de ne pas l'avoir dans les scripts exécutables au niveau des règles Outlook)
ensuite direction Accueil>Règles>Créer une règle>Options avancées
Appliquer cette règle après l'arrivée du message
sur cet ordinateur uniquement
exécuter script BAL.RafraichirNbNonLu
on place bien toute à la fin ^^ histoire que nos règles qui rangent bien dans les bons dossiers s'exécute avant, et on modifie toutes les règles précédentes en supprimant "Arrêter de traiter plus de règles"
Ça devrait fonctionner mais malheureusement NON
Si quelqu'un a une idée à ce sujet, je suis preneur !!!
Idem si vous savez comment changer le style dans le nom ça m'intéresse ^^ je préférerai les avoir en gras bleu ^^