[OL-2007] Script à exécution aléatoire [Résolu]

[dlewin]

Bonjour,

J'ai un script qui maintenant tourne bien -grâce aux conseils donnés dans ce forum- et cependant il arrive parfois qu'il y ait une erreur:

Compile error: Next without for

alors que ce même code s'est déjà exécuté correctement.

Voici le code en question :

Code :

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
 
Sub Export_mails(Item As Outlook.MailItem)
  Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myInbox As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    'Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Set myInbox = Application.GetNamespace("MAPI").Folders("Mailbox - MesMails").Folders("Folders").Folders("RepertoirFiltre")
    Set myItems = myInbox.Items
    Dim strName As String
    Dim sSubject As String
    Dim fso As New FileSystemObject
 
    For Each myItem In myInbox.Items
 
        strName = myItem.Subject
        'Ici on supprime les caractères non autorisé dans les noms de fichiers
       strName = Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(myItem.Subject, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), ".", ""), """", ""), vbTab, ""), Chr(7), ""), 160)
 
        If Not fso.FileExists("C:\Temp\pipo\" & strName & ".txt") Then
                myItem.SaveAs "C:\Temp\pipo\" & strName & ".txt", olTXT
        Set myItem = myItems.GetNext
    Next myItem
End Sub

On peu voir que la boucle for est bien terminée par un "Next myItem" qui l'a ouvert.

Et pourtant

[carden752]

Bonjour,

Code :

Tu fais donc appel deux fois au passage à l'élément suivant une fois dans la boucle et une fois en faisant évoluer la boucle.
Or si myitems.GetNext est après la fin=> Renvoi Nothing et Next sur Nothing n'existe pas d'où l'erreur.

Code :

1
2
3
4
5
 
Set myItems = myInbox.Items
    For Each myItem In myInbox.Items
        ' Set myItem = myItems.GetNext 
    Next myItem

La ligne commentée est donc à supprimer

Code :

Set myItem = myItems.GetNext

[dlewin]

ah ok je vois. Enfin sauf une chose : comme j'ai intégré ce script dans une règle qui affiche une alerte, je sais que cela arrive bien avant la fin puisque je vois plusieurs messages liés à l'execution de plusieurs fois cette règle.

En tout cas, Merci bien.

[dlewin]

en fait, ça le fait toujours ((
Du coup j'ai commenté l'autre next, et c'est pas mieux, il se plaint de l'absence de "if".

Par contre, en commentnat le if, le then associé et le GetNext (lignes 22,23,24), l'execution se fait bien.

[dlewin]

bon on ne se moque pas:
la plupart des infos que j'avais lu, ne mentionnait pas touteun bloc "if" complet. En fait, avec ma remarque précèdente je me suis aperçu que cela venait de ces lignes et en grattant un peu en fermant correctement le bloc if, avec un <end if> cela va mieux.

Il faut quand même préciser que le message d'erreur est vraiment piegeux car il fait chercher du côté de la boucle for.