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