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 :
Pouvez-vous me venir en aide ?
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
PS : Je n'ai jamais toucher à du VBA (même si j'ai des notions sur d'autres langages)
Partager