Compter le nombre de mail par catégorie uniquement
Bonjour,
Je souhaiterais obtenir de l'aide concernant le VBA Outlook, je vous explique :
Je souhaite mettre en place un macro me permettant d'obtenir le nombre de mails pour chaque nom de catégorie d'un dossier (qui est sélectionné à l'écran).
Dans mes sous-dossiers, je dispose de catégories différentes selon le dossier père où je me trouve.
Par exemple :
Dans le dossier 1, j'ai le sous-dossier Sub1, où la catégorie rouge correspond à nom de catégorie nameCategory1
Dans le dossier 2, j'ai le sous-dossier Sub2, où la catégorie rouge correspond à nom de catégorie nameCategory2
Et ceci avec plusieurs catégories.
Je parviens à obtenir les noms des catégories mais de la boite de réception et non ceux du dossier à l'écran.
Je ne parviens pas non plus à compter le nombre de mails par catégorie.
Voici mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Sub ListCategory()
Dim objNameSpace As NameSpace
Dim objFolder As MAPIFolder
Dim objCategory As Category
Dim strOutput As String
Dim positionRep, nbMail
Set objFolder = ActiveExplorer.CurrentFolder ' Positionnement sur le dossier active
Set objNameSpace = Application.GetNamespace("MAPI")
If objNameSpace.Categories.Count > 0 Then 'Compteur de catégories > 0 categorie
For Each objCategory In objNameSpace.Categories
Set positionRep = objFolder 'Valeur correspondant au positionnement actuel"
strOutput = strOutput & objCategory.Name & _
" : " & nbMail & vbCrLf
Next
End If
MsgBox "Réptertoire actuel : " & positionRep & "" _
& vbCrLf & vbCrLf & strOutput 'Affichage des messages
Set objCategory = Nothing
Set objNameSpace = Nothing
End Sub |
Pouvez-vous me venir en aide ?
PS : Je n'ai jamais toucher à du VBA (même si j'ai des notions sur d'autres langages)