Discussion :

[IronBibs]

Bonjour le forum,

J'ai une erreur au niveau de mon if dans la boucle For pour certaines valeurs de J : l'erreur est "Array Out Of Bounds". Pouvez vous m'aidez ?

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
 
   Dim olns As Outlook.NameSpace
   Dim i As Integer
   Dim j As Integer
   Dim dossier As MAPIFolder
   Dim SentMailItem As MAPIFolder   
...
...
Set SentMailItem = olns.Folders("Mailbox - overquota").Folders("Sent Items") 
...
...
 
 i = SentMailItem.Items.Count
 
    For j = 1 To i
 
    'Condition : Si le sujet est "Mailbox Warning"
    If SentMailItem.Items.Item(j).Subject = "Mailbox Warning" Then
    SentMailItem.Items.Item(j).Move (olns.Folders("Mailbox - overquota").Folders("Sent Items").Folders(Nom_Annee).Folders(Nom_Mois).Folders(Nom_Date))
    End If
 
    Next j

Voila,
Merci pour votre aide j'ai déjà beaucoup cherché et passer plus d'une journée sur cette erreur ...

[Caro-Line]

Essaye comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For j = SentMailItem.Items.Count To 1 Step -1
 
    'Condition : Si le sujet est "Mailbox Warning"
    If SentMailItem.Items.Item(j).Subject = "Mailbox Warning" Then
    SentMailItem.Items.Item(j).Move (olns.Folders("Mailbox - overquota").Folders("Sent Items").Folders(Nom_Annee).Folders(Nom_Mois).Folders(Nom_Date))
    End If
 
Next j

[IronBibs]

Merci beaucoup !
C'est exactement ce qu'il me fallait !!!
Je suis trop trop trop content