Outlook 2010 : afficher le nombre de mails non lus des sous dossiers ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Outlook 2010 : afficher le nombre de mails non lus des sous dossiers ?

360no2

I am a free man!

Bonjour à tous les pros du 'cro$oft ! :hello:

Je viens vers vous car j'ai décidé de créer des dossiers dans ma messagerie outlook, avec des règles de transfert de message, pour éviter de passer ma vie à lire des mails non importants / chercher des mails sans les retrouver.
Et histoire d'être bien propre, j'ai créé des sous-dossiers dans mes dossiers, vers lesquels sont redirigés les mails.

Mon problème :
Lorsque le dossier est ouvert et les sous-dossiers affichés, le nombre d'éléments non lus dans chaque sous-dossier est affiché à côté de son nom.
Par contre : si je réduis le dossier pour cacher ses sous-dossiers, le nombre de mails non lus n'est pas affiché à côté du dossier de niveau supérieur.
(et du coup si je ne vois pas qu'un mail est arrivé dans un sous-dossier après avoir réduit le dossier, je risque de ne jamais aller voir s'il y a quelque chose dans les sous-dossiers)

Connaissez vous un moyen pour imposer à un dossier d'afficher le nombre d'éléments non lus, non seulement dans le dossier lui même, mais aussi la somme des éléments non lus dans ses sous-dossiers ?

En synthèse, aujourd'hui j'ai ça :

Citation :

DOSSIER A
sous dossier aa (20)
sous dossier ab (5)
sous dossier ac (15)

Si je réduis j'ai ça :

Citation :

DOSSIER A

Comment faire pour avoir ça :

Citation :

DOSSIER A (40)

Merci ! :jap:

---------------
"a fool and his money are soon parted" (Affolant Monet : art sans partage) | Ça nous coûte un pognon de dingue ! (circa 2018)

Publicité

solidxciter

Hello,

Alors je n'ai pas outlook sous la main et pas utilisé depuis quelques mois mais regarde du côté des dossiers de recherches http://office.microsoft.com/fr-fr/ [...] 38911.aspx

Ce sont des dossiers spéciaux qui se trouve dans ta liste des dossiers à droite de ton logiciel, tu trouveras un critère Courrier non lus et tu pourrais certainement préciser le dossier que tu souhaites.

Bonne soirée.

greglemoine

Alors déterrage de sujet oblige mais c'est pour la bonne cause (enfin il me semble). Moi aussi j'ai cherché un petit moment cette option dans Outlook... et je ne l'ai pas trouvé.
J'ai donc modifié ce que j'ai pu trouvé pour faire un script qui correspondait à mon besoin, donc je le donne tel quel
Sachez juste qu'il ne faut pas mettre de parenthèse dans le nom des dossiers ou sous dossier pour que celui ci fonctionne (vous pouvez éditer pour faire autrement)
Il s'exécute à la réception d'un nouveau mail
J'ai mis une boucle pour paramétrer de sorte qu'il affiche le nombre non lu sauf dans certains dossiers (donc cela pourrait etre supprimé après une première exécution => commenté les affectations de ShowItemCount )

Code :

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 (Root.Folders.Count > 0) Then
If (nbNonLu > 0) Then
If (InStr(1, Root.Name, " (", vbTextCompare)) > 0 Then
Root.Name = VBA.Trim(VBA.Left(Root.Name, InStr(1, Root.Name, " (", vbTextCompare))) & " (" & nbNonLu & " ) "
Else
Root.Name = Root.Name & " (" & nbNonLu & " ) "
End If
Else
If (InStr(1, Root.Name, " (", vbTextCompare)) > 0 Then
Root.Name = VBA.Trim(VBA.Left(Root.Name, InStr(1, Root.Name, " (", vbTextCompare)))
End If
End If
End If
End Function

FORUM HardWare.fr

Windows & Software

Logiciels

Outlook 2010 : afficher le nombre de mails non lus des sous dossiers ?

Sujets relatifs
ppour les spécialistes de Win Live mails	Outlook express 6, problème avec mails envoyés
afficher le débit internet	[Outlook] Dossier public invisible
Explorateur Windows: dossiers en surbrillance	probleme d'installation d'office pro 2010
Help please affichage dans outlook 2010
Plus de sujets relatifs à : Outlook 2010 : afficher le nombre de mails non lus des sous dossiers ?

Page générée en 0.049 secondes