Script ne fonctionne pas [Résolu]

[Sylv@in]

Bonjour,

J'ai fait une macro via VBA (outlook) qui fonctionne parfaitement :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
   Dim olns As Outlook.NameSpace
   Dim oConItems As Outlook.Items
   Dim Itm As MailItem
 
   Set olns = Application.GetNamespace("MAPI")
   Set oInboxItems = olns.GetDefaultFolder(olFolderInbox).Items
 
   For Each Itm In oInboxItems
    If Itm.Subject = "Questionnaire de Satisfaction C.A.I / MAINTENEUR" Then Itm.Delete
   Next
 
   MsgBox "E-mail correctement supprimé."
 
   Set objInboxItems = Nothing
   Set objTargetFolder = Nothing
   Set objNS = Nothing

Mais lorsque je fait un copier coller de cette macro dans le SCRIPT d'un formulaire outlook :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub CommandButton1_Click()
   Dim olns
   Dim oConItems
   Dim Itm
 
   Set olns = Application.GetNamespace("MAPI")
   Set oInboxItems = olns.GetDefaultFolder(olFolderInbox).Items
 
   For Each Itm In oInboxItems
    If Itm.Subject = "Questionnaire de Satisfaction C.A.I / MAINTENEUR" Then Itm.Delete
   Next
 
   MsgBox "E-mail correctement supprimé."
 
   Set objInboxItems = Nothing
   Set objTargetFolder = Nothing
   Set objNS = Nothing
End Sub

Et bien celà ne fonctionne pas.

J'ai eu l'erreur sur les fins d'instruction donc j'ai enlever les "As ...."

Mais ensuite j'ai une erreur qui dis :

Impossible de terminer l'opération. Une ou plusieurs valeurs de paramètres ne sont pas valides

[wape]

Bonjour,

Le problème est dû à la constante olFolderInbox, qui est propre à VBA et n'est donc pas reconnue par VBScript.

Solution 1 : Ajouter une ligne de déclaration de cette constante

Code :

1
2
3
4
5
Const olFolderInbox = 6
(...)
Set oInboxItems = olns.GetDefaultFolder(olFolderInbox).Items
(...)

Solution 2 : Remplacer la constante par sa valeur

Code :

1
2
3
(...)
Set oInboxItems = olns.GetDefaultFolder(6).Items '6:olFolderInbox
(...)

wape

[Sylv@in]

Merci par avance.

Je testerais ceci dès lundi matin 08h00.

Car le code est au boulot.

Je vous tiens au courant

[Sylv@in]

Merci beaucoup ça fonctionne à merveille

[Heureux-oli]

un petit alors, merci

[Sylv@in]

Ben il y est

Le bouton est rayé rouge Donc ce doit y être

Non ?