Discussion :

[paksaafout]

Bonjour
Je suis passé en Outlook 2007, où la gestion du champ catégorie a subi une franche régression: la saisie n'est plus libre, et il faut au moins 3 clics (moi qui ne suis pas un adepte de la souris...) pour affecter à un mail une catégorie qui n'était pas dans les 15 dernières utilisées.

Pour garder un moyen de classer mes mails le plus rapidement possible j'aurais besoin d'affecter via une macro la même catégorie à tous les éléments d'un dossier.
En naviguant sur ce site j'ai pu faire ce petit bout de 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
28
29
30
31
32
33
Sub essai()
 
'Déclaration des Objets et variables
Dim MonApply As Outlook.Application
Dim Expl As Explorer
Dim myNameSpace As NameSpace
Dim myFolder As MAPIFolder
Dim myItems As Items
Dim xi As Integer
 
'Instance des Objets
        Set MonApply = Outlook.Application 'Application Outlook
 
        'Expl nous donne le dossier courant
        Set Expl = ActiveExplorer
        'Permet d'accéder à toutes les données Outlook qui y sont stockées
        Set myNameSpace = MonApply.GetNamespace("MAPI")
 
        'On recupère l'ID du dossier courant puis on se positionne dans ce dossier
        'pour recupérer tous les messages
        Set myFolder = myNameSpace.GetFolderFromID(Expl.CurrentFolder.EntryID)
 
        'La variable myItems prendra comme valeur
        'tous les messages du dossier courant
 
        Set myItems = myFolder.Items
 
       For xi = 1 To myItems.Count
            myItems.Item(xi).Categories = myFolder.Name
 
        Next xi
 
End Sub

En le testant dans un dossier, j'observe les choses suivantes:
- la mise à jour n'est pas fait pour tous les messages
- elle n'est faite que pour le message qui est sélectionné dans le dossier courant, et encore seulement s'il n'y avait pas de catégorie renseignée
- et pour s'apercevoir que ça a été fait sur ce mail, il faut sélectionner un autre mail, comme si la modif ne devenait effective dans l'affichage que quand le message perd le focus.

Est-ce que quelqu'un pourrait m'aider?
Merci d'avance.

[celegorm]

bonjour,
je n'ai pas trouvé ce qui clochait dans votre code.
effectivement seul le message sélectionné se voit attribué une catégorie....
avez vous trouvé une solution ?
d'avance merci !

[celegorm]

bonjour,
je ressors ce vieux thread car j'ai trouvé la solution

dans le for xi... il suffit de rajouter la ligne
myItems.Item(xi).save après avoir attribué la catégorie.
et hop ça marche.
merci quand même pour le code original, ça m'a bien aidé

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
28
29
30
31
32
33
Sub essai()
 
'Déclaration des Objets et variables
Dim MonApply As Outlook.Application
Dim Expl As Explorer
Dim myNameSpace As NameSpace
Dim myFolder As MAPIFolder
Dim myItems As Items
Dim xi As Integer
 
'Instance des Objets
        Set MonApply = Outlook.Application 'Application Outlook
 
        'Expl nous donne le dossier courant
        Set Expl = ActiveExplorer
        'Permet d'accéder à toutes les données Outlook qui y sont stockées
        Set myNameSpace = MonApply.GetNamespace("MAPI")
 
        'On recupère l'ID du dossier courant puis on se positionne dans ce dossier
        'pour recupérer tous les messages
        Set myFolder = myNameSpace.GetFolderFromID(Expl.CurrentFolder.EntryID)
 
        'La variable myItems prendra comme valeur
        'tous les messages du dossier courant
 
        Set myItems = myFolder.Items
 
       For xi = 1 To myItems.Count
            myItems.Item(xi).Categories = myFolder.Name
            myItems.Item(xi).save
        Next xi
 
End Sub