question vb pour outlook

[Vincent_C]

Bnjour à tous,

 

Utilisant environ 900 règles dans outlook 2010, j'utilise cette macro , qui est très longue a exécuter toutes les règles : connaissez vous une macro qui permettrait une exécution plus rapide    ? Merci d'avance et bonne semaine !

 

Sub AppliRègles()
Dim objOutlook As Outlook.Application
Dim Banque As Store
Dim LesBanques As Stores
Dim Règle As Rule
Dim LesRègles As Rules
Dim NbRègles As Integer
Dim NbRèglesEx As Integer

Set objOutlook = Outlook.Application
NbRèglesEx = 0
Set LesBanques = objOutlook.Session.Stores
For Each Banque In LesBanques
On Error GoTo Suite
  NbRègles = Banque.GetRules.Count
  On Error GoTo 0
  Set LesRègles = Banque.GetRules
  For Each Règle In LesRègles
    If Règle.Enabled Then
      Règle.Execute
      NbRèglesEx = NbRèglesEx + 1
    End If
  Next Règle
GoTo Boucle
Suite:
  Debug.Print "La banque " & Banque.DisplayName & " ne supporte pas les règles """
  Resume Boucle
Boucle:
Next Banque
MsgBox NbRèglesEx & " appliqué(e)s "
End Sub

 

Bien cordialement,

 

Vincent_C

[Mikael]

Ca risque de pas être simple de trouver quelqu'un pour ça ici :-/

Sur un forum spécialisé Office ou encore script VB, tu auras certainement plus de chance.

[Vincent_C]

OK, merci !

 

bonne journée.

bien cordialement,

Vincent_C

[patricia]

J'ai demandé à une amie qui n'est pas sur le forum de jeter un coup d'oeil pou voir si la macro pouvait être améliorée.
En fait elle est écrite à l'ancienne mode avec plein de "goto".
Par contre la réécrire ne lui donnera pas beaucoup plus de rapidité car Microsoft sur son site avoue lui même que les règles de messages sont lentes.
Par contre on s'est posé toutes les deux la même question : pourquoi une macro pour 900 règles alors que chaque règle peut être réalisée à chaque arrivée ou sortie de mail un à la fois en fait ce qui serait plus rapide ?
Si c'est une question de taille va voir un lien  qui t'aidera :

http://support2.microsoft.com/kb/2622933/fr
Sinon  ici j'ai trouvé une macro qui si tu as toutes les règles mais non cochées déclenchera le processus de classement s'ils sont dans la boite de réception mais je n'ai pas approfondi à toi de voir si cela t'intéresse.

http://www.outlookcode.com/codedetail.aspx?id=1266

Si tu as eu comme te la proposé Mikael des infos sur genre développez.com dis le cela serait sympa si d'autres ont ce même problème.

Bon courage