Aller au contenu

Vincent_C

IT Guy
 Afficher le profil  Afficher son activité

  • Compteur de contenus

    4

  • Inscription

  • Dernière visite

Profile Information

  • Genre
    Homme

Vincent_C's Achievements

Newbie

Newbie (1/14)

0

Réputation sur la communauté

  1. Vincent_C

    question vb pour outlook

    Vincent_C a répondu à un(e) sujet de Vincent_C dans Messagerie

    OK, merci ! bonne journée. bien cordialement, Vincent_C
  2. 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
  3. Vincent_C
    Entendu, merci bcp Patricia ! Bonne semaine. Bien cordialement, Vincent_C
  4. Vincent_C
    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
×
×
  • Créer...