Bonjour,
J'ai fait une macro via VBA (outlook) qui fonctionne parfaitement :
Mais lorsque je fait un copier coller de cette macro dans le SCRIPT d'un formulaire outlook :
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 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
Et bien celà ne fonctionne pas.
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 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
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
Partager