Discussion :

[al1_24]

Bonjour,

J'ai un grand nombre de règles pour le classement automatique de mes mails par Outlook et je m'aperçois que certaines règles sont en double donc multiplient les messages stockés.
L'interface de gestion des règles proposée par Outlook est assez limitée et ne permet pas de trier les règles, par exemple, ou de faire des recherches (ou alors je n'ai pas trouvé).
Existe-t-il un autre outil pour gérer ces règles, au besoin en les exportant pour les réimporter ensuite ?

Merci

[carden752]

Bonjour,

L'export de règles se fait au format RWZ qui est un fichier binaire. Je ne vois pas trop comment il est possible de l'exploiter par la suite.
Je pencherais plus sur une solution VBA avec la comparaison des action, conditions et exceptions des règles entre elles.

Il reste à définir la méthode de comparaison et à activer ou désactiver en fonction les actions ou la règle au complet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Session.DefaultStore.GetRules

permet d'accéder aux règles

[Olivier MONTULET]

Bonjour,

Merci pour le code d'accès aux règles d'Outlook.

Je ne suis pas informaticien.
Dès lors, je vous saurais gré de bien vouloir m'écrire le code permettant de trier par ordre alphabétique pour Outlook 365 en entier en m'indiquant où je dois l'insérer.

Je vous remercie
Bien à tous

[Oliv-]

Bonjour,
Essaye ce code il n'est pas de moi

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub SortRulesbyAlpha()
'TREFLIP from https://forums.slipstick.com/threads/93135-vba-to-sort-rules-a-z-code-provided/#post-340596
' Sort order ! " # $ % & ' ( ) * + , -
'  . / 1 2 3 4 : ; < = > ? @
'  A B C D ^ _ a b c d |
'
  Dim Session As Outlook.NameSpace
  Dim oRules As Outlook.rules
  Dim oRule As Outlook.Rule
 
  Dim varRule() As Variant
  Dim srtTmp As Variant
 
  Dim i As Long
  Dim j As Variant
 
  Set Session = Application.Session
  Set oRules = Session.DefaultStore.GetRules()
 
  On Error Resume Next
 
  ' Allocate space for array
  ReDim varRule(oRules.Count - 1)
 
  ' Save rules to array: Sort by Name
  i = 0
  For Each oRule In oRules
  Debug.Print oRule.Name & " : " & oRule.ExecutionOrder
  varRule(i) = oRule.Name
  i = i + 1
  Next oRule
 
  ' Sort Rule Names A-Z
  i = 0
  For i = LBound(varRule) To UBound(varRule)
  For j = i + 1 To UBound(varRule)
  If varRule(i) > varRule(j) Then
  srtTmp = varRule(j)
  varRule(j) = varRule(i)
  varRule(i) = srtTmp
  End If
  Next j
  Next i
 
  ' Change Execution Order to Reflect Sort Order
  i = 1
  Debug.Print vbCrLf & vbCrLf & "After Sort"
  For Each j In varRule
  Debug.Print oRules.Item(j).Name & " : " & oRules.Item(j).ExecutionOrder
  oRules.Item(j).ExecutionOrder = i
  i = i + 1
  Next j
 
  'Save changes
  oRules.Save
 
End Sub

[Olivier MONTULET]

Grand merci