Discussion: Règles Outlook VBA [OL-2016]

  1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2015
    Messages : 6
    Points : 3
    Points
    3

    Par défaut Règles Outlook VBA

    ,

    J'ai besoin de faire une macro pour créer des règles Outlook.

    J'ai utilisé l'exemple du site https://msdn.microsoft.com/VBA/Outlo...method-outlook en l'adaptant à mes besoins.

    Le déplacement vers un dossier et les exceptions du sujet fonctionnent, mais pas les conditions du sujet et l’ajout dans une catégorie.

    Code testé :

    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
     
     
    Sub CreateOutlookRule()
     
        Dim colRules As Outlook.Rules:salut:
        Dim oRule As Outlook.Rule
        Dim colRuleActions As Outlook.RuleActions
     
        Dim oMoveRuleAction As Outlook.MoveOrCopyRuleAction
        Dim oSubjectCondition As Outlook.TextRuleCondition
        Dim oExceptSubject As Outlook.TextRuleCondition
        Dim oCategory As Outlook.AssignToCategoryRuleAction
     
        Dim oInbox As Outlook.folder
        Dim oMoveTarget As Outlook.folder
     
        Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox)
        Set oMoveTarget = oInbox.Folders("test")
        Set colRules = Application.Session.DefaultStore.GetRules()
        Set oRule = colRules.Create("TEST", olRuleReceive)
     
        'Deplacer le message vers un dossier
        Set oMoveRuleAction = oRule.Actions.MoveToFolder
        With oMoveRuleAction
            .Enabled = True
            .folder = oMoveTarget
        End With
     
        'Ajouter le message à une catégorie
        Set oCategory = oRule.Action.AssignToCategory
        With oCategory
            .Enabled = True
            .Categories = Array("test")
        End With
     
        'Mots que le sujet doit contenir
        Set oSubjectCondition = oRule.Condition.Subject
        With oSubjectCondition
            .Enabled = True
            .Text = Array("test")
        End With
     
        'Mots que le sujet ne doit pas contenir
        Set oExceptSubject = oRule.Exceptions.Subject
        With oExceptSubject
            .Enabled = True
            .Text = Array("RE:", "FW:")
        End With
     
        colRules.Save
    End Sub

    Pourriez-vous me donner un coup de main svp ?

    Merci pour votre aide.

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    2 942
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 2 942
    Points : 5 132
    Points
    5 132
    Billets dans le blog
    13

    Par défaut

    Bonjour,
    As tu un message d'erreur ?

    essaye comme cela
    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
     
     
    Sub CreateOutlookRule()
     
        Dim colRules As Outlook.Rules:salut:
        Dim oRule As Outlook.Rule
        Dim colRuleActions As Outlook.RuleActions
     
        Dim oMoveRuleAction As Outlook.MoveOrCopyRuleAction
        Dim oSubjectCondition As Outlook.TextRuleCondition
        Dim oExceptSubject As Outlook.TextRuleCondition
        Dim oCategory As Outlook.AssignToCategoryRuleAction
     
        Dim oInbox As Outlook.folder
        Dim oMoveTarget As Outlook.folder
     
        Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox)
        Set oMoveTarget = oInbox.Folders("test")
        Set colRules = Application.Session.DefaultStore.GetRules()
        Set oRule = colRules.Create("TEST", olRuleReceive)
     
        'Deplacer le message vers un dossier
        Set oMoveRuleAction = oRule.Actions.MoveToFolder
        With oMoveRuleAction
            .Enabled = True
            .folder = oMoveTarget
        End With
     
        'Ajouter le message à une catégorie
        Set oCategory = oRule.Actions.AssignToCategory
        With oCategory
            .Enabled = True
            .Categories = Array("test")
        End With
     
        'Mots que le sujet doit contenir
        Set oSubjectCondition = oRule.Conditions.Subject
        With oSubjectCondition
            .Enabled = True
            .Text = Array("test")
        End With
     
        'Mots que le sujet ne doit pas contenir
        Set oExceptSubject = oRule.Exceptions.Subject
        With oExceptSubject
            .Enabled = True
            .Text = Array("RE:", "FW:")
        End With
     
        colRules.Save
    End Sub

  3. #3
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2015
    Messages : 6
    Points : 3
    Points
    3

    Par défaut

    Effectivement ça fonctionne.

    pour ton aide.

  4. #4
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2015
    Messages : 6
    Points : 3
    Points
    3

    Par défaut

    J'ai mis ma macro dans un fichier Excel et lorsque je l'exécute j'ai l'erreur "Run-time error '438' : Object doesn't support property or method" sur la ligne Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox).
    Images attachées Images attachées  

  5. #5
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    2 942
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 2 942
    Points : 5 132
    Points
    5 132
    Billets dans le blog
    13

    Par défaut

    parce que excel n'est pas outlook !
    il faut ajouter une référence à "Microsoft Outlook xx.x Object Library" dans outils /références de VBE


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim OL As Outlook.Application
     
        If UCase(Application) = "OUTLOOK" Then
            Set OL = Application
        Else
            Set OL = CreateObject("outlook.application")
        End If
    et tu remplaces "Application." par "OL." (dans le précédent code uniquement)

  6. #6
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2015
    Messages : 6
    Points : 3
    Points
    3

    Par défaut

    Pour ajouter la référence automatiquement depuis vba j'ai essayé le code du site https://www.developpez.net/forums/d2...n-d-reference/ en l'adaptant.


    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
     
    Sub add1()
        Dim NomComplet As String
        NomComplet = "C:\Program Files(x86)\Microsoft Office\Root\Office16\MSOU"
        ThisWorkbook.VBProject.References.AddFromFile NomComplet
    End Sub
     
    Sub add2()
        If Not ReferenceActive("Microsoft Outlook 16.0 Object Library") Then
            ActiverReference "C:\Program Files(x86)\Microsoft Office\Root\Office16\MSOU"
        End If
    End Sub
     
    Function ReferenceActive(Nom As String) As Boolean
        Dim i As Integer
        Dim NbreRef As Integer
     
        NbreRef = ThisWorkbook.VBProject.References.Count
     
        For i = 1 To NbreRef
            If ThisWorkbook.VBProject.References(i).Name = Nom Then
                ReferenceActive = True
                Exit Function
            End If
        Next i
    End Function
    • Avec la méthode add1() j'obtiens l'erreur : "Sub or Fonction not define"

    • Avec la méthode add2() : "Method VBproject' of object' _Workbook' failed"

  7. #7
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    2 942
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 2 942
    Points : 5 132
    Points
    5 132
    Billets dans le blog
    13

    Par défaut

    Bonjour,
    Pourquoi veux tu ajouter la référence automatiquement ? tu as plusieurs versions de Office qui vont utiliser ta macro ?

  8. #8
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2015
    Messages : 6
    Points : 3
    Points
    3

    Par défaut

    Bonjour,

    Je veux ajouter la référence automatiquement pour eviter aux utilisateurs de le faire.

  9. #9
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    2 942
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 2 942
    Points : 5 132
    Points
    5 132
    Billets dans le blog
    13

    Par défaut

    Une fois que tu as ajouté la référence elle reste dans ton fichier Excel ! Tu n'as besoin de changer cette réfécence que si les utilisateurs ont des versions différentes de OFFICE.

    Sinon tu peux utiliser le LATE BINDING

    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
    58
    59
    60
    61
     
     
    Sub CreateOutlookRule()
    Dim OL As Outlook.Application
     
        If UCase(Application) = "OUTLOOK" Then
            Set OL = Application
        Else
            Set OL = CreateObject("outlook.application")
        End If
     
    const olFolderInbox= 6
    Const olRuleReceive=0
     
        Dim colRules As Object   'Outlook.Rules
        Dim oRule As Object   'As Outlook.Rule
        Dim colRuleActions As Object   'As Outlook.RuleActions
     
        Dim oMoveRuleAction As Object   'As Outlook.MoveOrCopyRuleAction
        Dim oSubjectCondition As Object   'As Outlook.TextRuleCondition
        Dim oExceptSubject As Object   'As Outlook.TextRuleCondition
        Dim oCategory As Object   'As Outlook.AssignToCategoryRuleAction
     
        Dim oInbox As Object   'As Outlook.folder
        Dim oMoveTarget As Object   'As Outlook.folder
     
        Set oInbox = OL.Session.GetDefaultFolder(olFolderInbox)
        Set oMoveTarget = oInbox.Folders("test")
        Set colRules = OL.Session.DefaultStore.GetRules()
        Set oRule = colRules.Create("TEST", olRuleReceive)
     
        'Deplacer le message vers un dossier
        Set oMoveRuleAction = oRule.Actions.MoveToFolder
        With oMoveRuleAction
            .Enabled = True
            .folder = oMoveTarget
        End With
     
        'Ajouter le message à une catégorie
        Set oCategory = oRule.Actions.AssignToCategory
        With oCategory
            .Enabled = True
            .Categories = Array("test")
        End With
     
        'Mots que le sujet doit contenir
        Set oSubjectCondition = oRule.Conditions.Subject
        With oSubjectCondition
            .Enabled = True
            .Text = Array("test")
        End With
     
        'Mots que le sujet ne doit pas contenir
        Set oExceptSubject = oRule.Exceptions.Subject
        With oExceptSubject
            .Enabled = True
            .Text = Array("RE:", "FW:")
        End With
     
        colRules.Save
    End Sub

  10. #10
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    janvier 2015
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2015
    Messages : 6
    Points : 3
    Points
    3

    Par défaut

    Ok, beaucoup pour ton aide

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Règles Outlook bloquées
    Par Stepper dans le forum Outlook
    Réponses: 4
    Dernier message: 21/01/2008, 09h12
  2. Automation Outlook VBA
    Par Off$ide dans le forum Access
    Réponses: 2
    Dernier message: 15/12/2006, 15h27
  3. Déployer règles outlook express
    Par fabrozor dans le forum Windows
    Réponses: 2
    Dernier message: 10/08/2006, 07h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo