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

Outlook 2010 : afficher le nombre de mails non lus des sous dossiers ? - Logiciels - Windows & Software

Marsh Posté le 18-08-2014 à 15:18:44    

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)
Reply

Marsh Posté le 18-08-2014 à 15:18:44   

Reply

Marsh Posté le 19-08-2014 à 03:41:44    

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.

Reply

Marsh Posté le 16-08-2017 à 15:47:41    

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 :
  1. Private Sub Application_NewMail()
  2.     Dim App As New Outlook.Application
  3.     Dim Store As Outlook.Store
  4.     Dim nbTotalNonLu As Long
  5.    
  6.     On Error Resume Next
  7.     'boucle sur chaque pst de la session Outlook
  8.     For Each Store In App.Session.Stores
  9.         nbTotalNonLu = nbNonLu(Store.GetRootFolder)
  10.     Next
  11. End Sub
  12. Private Function nbNonLu(ByVal Root As Outlook.Folder) As Long
  13.     Dim Folder As Outlook.Folder
  14.    
  15.     'Initialisation du nombre d'email non lu dans son propre dossier
  16.     nbNonLu = Root.UnReadItemCount
  17.     ' Ajouter les non lus de chaque sous dossier
  18.     If (Root.Folders.Count > 0) Then
  19.         For Each Folder In Root.Folders
  20.             ' Changer le paramètrage par défaut pour visibilité olNoItemCount/olShowTotalItemCount/lShowUnreadItemCount
  21.              If (Folder = "Brouillons" Or Folder = "Boîte d'envoi" Or Folder = "Courrier indésirable" ) Then
  22.                 'Pour ces dossiers, j'affiche le nombre d'éléments totals
  23.                 Folder.ShowItemCount = olShowTotalItemCount
  24.              Else
  25.                 Folder.ShowItemCount = olNoItemCount
  26.                
  27.                 nbNonLu = nbNonLu + nbNonLu(Folder)
  28.             End If
  29.         Next
  30.     End If
  31.    
  32.     On Error Resume Next
  33.    
  34.     'Modification du libellé du dossier (Sil y a des non lu, qu'il a au moins un sous dossier)
  35.     If (Root.Folders.Count > 0) Then
  36.         If (nbNonLu > 0) Then
  37.             If (InStr(1, Root.Name, " (", vbTextCompare)) > 0 Then
  38.                 Root.Name = VBA.Trim(VBA.Left(Root.Name, InStr(1, Root.Name, " (", vbTextCompare))) & " (" & nbNonLu & " ) "
  39.             Else
  40.                 Root.Name = Root.Name & " (" & nbNonLu & " ) "
  41.             End If
  42.         Else
  43.             If (InStr(1, Root.Name, " (", vbTextCompare)) > 0 Then
  44.                 Root.Name = VBA.Trim(VBA.Left(Root.Name, InStr(1, Root.Name, " (", vbTextCompare)))
  45.             End If
  46.         End If
  47.     End If
  48.        
  49. End Function


 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed