Discussion :

[guimi]

Bonjour,

Alors voilà j'aimerais savoir s'il est possible de créer un exécutable, batch, script ou autre pour créer une règle Outlook afin de placer les messages contenant des mots spécifiques dans un dossier donné.
La manipulation en soit de création des règles sur Outlook n'est pas compliqué, mais j'aimerais si possible créer quelque choses que les personnes de ma boîte puissent utiliser juste en cliquant dessus afin d'être sûr qu'ils le fassent et ne rechignent pas sur les manipulations.
Je précise que je ne suis pas un expert en tout ce qui est batch et autre mais j'arrive à un minimum de compréhension quand même

Si quelqu'un à une idée je suis preneur.

Merci pour votre aide.

[Laurent Dardenne]

Salut,
Il te faut utiliser les objets COM d'Outlook, un exemple.

[guimi]

Salut et merci de ta réponse.

J'ai regardé les liens que tu m'as donné et après quelques recherche je suis tombé sur un exemple de code pour déplacer des mails dans un dossier spécifique que j'ai tenté d'adapter à mes besoins.
Malheureusement cela ne fonctionne pas j'ai dû me rater quelque part mais je ne vois pas où...

Je poste ce que j'ai essayé de faire si ça peut permettre à quelqu'un de m'éclairer

Code VBA :

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
 
Sub CreateRule() 
    Dim colRules As Outlook.Rules 
    Dim oRule As Outlook.Rule 
    Dim colRuleActions As Outlook.RuleActions 
    Dim oMoveRuleAction As Outlook.MoveOrCopyRuleAction 
    Dim oFromCondition As Outlook.TextRuleCondition.Text
    Dim oInbox As Outlook.Folder 
    Dim dossier_dest As Outlook.Folder 
 
    'Spécifie le dossier de destination de la règle de déplacement 
    Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
    'Vérifie que le dossier de destination existe
    Set dossier_dest = oInbox.Folders("Courrier indésirable") 
 
    'Vérifie les règles en cours sur la session 
    Set colRules = Application.Session.DefaultStore.GetRules() 
 
    'Créé la règle
    Set oRule = colRules.Create("test_regle", olRuleReceive) 
 
    'Spécifie la condition TextRuleCondition.Text pour identifier des mots dans l'objet du mail 
    Set oFromCondition = oRule.Conditions.From 
    With oFromCondition 
        .Enabled = True 
        .Recipients.Add ("test") 
        .Recipients.ResolveAll 
    End With 
 
    'Spécifie l'objet MoveOrCopyRuleAction qui définie l'action MoveToFolder pour déplacer le mail identifié 
    Set oMoveRuleAction = oRule.Actions.MoveToFolder 
    With oMoveRuleAction 
        .Enabled = True 
        .Folder = dossier_dest 
    End With 
 
End Sub

Merci