Discussion :

[Tx3Roulio]

Salut à tous !
Je débute en VBA Outlook alors pas taper ! (Et d'ailleurs je trouve ça surpuissant )
J'aimerais créer une règle en VBA qui puisse répondre à l'aide d'un modèle (en manuel j'y arrive très bien mais alors en VBA)

Voici mon code :

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
Dim appOutlook As Outlook.Application
Dim olRules As Outlook.Rules
Dim myRule As Outlook.Rule
Dim moveToAction As Outlook.MoveOrCopyRuleAction
Dim Repondre As Outlook.SendRuleAction
Dim fromAction As Outlook.ToOrFromRuleCondition
Dim myInbox As Outlook.Folder
Dim moveToFolder As Outlook.Folder
Dim moveToFolderDest As Outlook.MAPIFolder

Set appOutlook = New Outlook.Application
Set myInbox = appOutlook.Session.GetDefaultFolder(olFolderInbox)
Set olRules = appOutlook.Session.DefaultStore.GetRules()
Set myRule = olRules.Create("My Test Rule", olRuleReceive)

Set fromAction = myRule.Conditions.SentTo
With fromAction
.Enabled = True
.Recipients.Add ("ExampleMail")
.Recipients.ResolveAll
End With

Set Repondre = myRule.Actions.?REPLYWITHTEMPLATE?

?With Repondre.Template ("C:\Template.oft")?
Repondre.Enabled = True
End With

olRules.Save

Mon problème est en gras, je ne sais pas quoi mettre du tout ici pour spécifier que l'action à utiliser est de répondre avec un modèle !
J'arrive par contre très bien à créer des règles de destructions ou de copie en VBA.
Quelqu'un as-t-il une idée ? Thank you & have a nice day

Roulio.

[Tx3Roulio]

Merci Philippe, c'est noté pour la balise CODE, d'ailleurs je n'ai pas notifié dans le titre mais je suis sur OL-2010 même si je pense que ces fonctions sont présentes dans toutes les versions à partir de 2003.
Toujours pas d'idées ?

[Tx3Roulio]

Personne ?

[Oliv-]

Bonjour,
As tu cherché dans l'aide "Spécification d’actions de règle"

regarde ici

http://msdn.microsoft.com/fr-fr/libr...ffice.15).aspx

Tu dois utiliser "olRuleActionTemplate" mais à priori cela ne marche pas par programmation

[Tx3Roulio]

Salut Oliv- et merci de t'intéresser à mon problème !
Effectivement, ça explique le pourquoi du comment, pourtant j'avais bien recherché tout ce qui avait un rapport avec template dans l'aide !
Je me suis penché sur l'import de RWZ, mais vu que l'édition de ces fichiers n'est pas possible non plus en VBA, j'ai abandonné ...
A votre avis, pas d'autres moyens de contourner cette restriction ? Je cherche juste à répondre avec un message court :/

[Oliv-]

En fait tu peux créer la règle MANUELLEMENT qui exécutera ton SCRIPT(=macro) automatiquement

[Tx3Roulio]

Je ne pourrais pas car il faut absolument créer la règle à l'arrivée du mail (il peut arriver 50 mails donc 50 règles à créer(les conditions de création étant indiquées dans le mail)).
Même si ça ne répond pas grâce à un modèle mais grâce à un fichier texte, cela me conviendrait en fait.

[Oliv-]

Je pense que ton problème est mal posé,
en fait tu peux créer manuellement une règle "générale"
et dans ton code tu analyses l'email reçu pour personnaliser la réponse.

1 règles --> 1 macros avec plusieurs cas

[Tx3Roulio]

Je suis d'accord, mais l'analyse du mail ne doit avoir lieu QUE si le mail de création de règle a été reçu.
Impossible de savoir dans le second mail s'il doit être traité ou non.

[Oliv-]

et si tu crees une regle bidon mais dont tu verifies l'existence pour traiter le mail ?

[Tx3Roulio]

Ça complique le Schmilblick pour une simple règle de réponse automatique mais pourquoi pas Je pars la dessus !
Merci à toi