Vincent_C
-
Compteur de contenus
4 -
Inscription
-
Dernière visite
Vincent_C's Achievements
Newbie (1/14)
0
Réputation sur la communauté
-
OK, merci ! bonne journée. bien cordialement, 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
-
[Tutoriel] LES REGLES DE MESSAGES OUTLOOK 2010
Vincent_C a répondu à un(e) sujet de patricia dans Messagerie
Entendu, merci bcp Patricia ! Bonne semaine. Bien cordialement, Vincent_C -
[Tutoriel] LES REGLES DE MESSAGES OUTLOOK 2010
Vincent_C a répondu à un(e) sujet de patricia dans Messagerie
bonjour Patricia merci bcp pour votre tuto ! utilisant environ 900 règles dans outlook 2010, j'utilise cette macro , qui est très longue a éxécuter toutes les regles : connaissez vous une macro qui permettrait une execution plus rapide ? Merci d'avance ! 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