Impossible d'extraire la valeur de ItemProprieties outlook: L'opération a échoué

Question

un autre problème que je ne peux pas comprendre, encore une fois. Je récupère une propriété personnalisée précédemment ajoutée par mon code dans un MailItem. Je teste actuellement avec Outlook 2010, il est aussi simple que

Dim mailIndex 
For mailIndex = objFolder.Items.Count To 1 Step - 1 
    Dim property1 
    Set property1 = GetMigrationProperty(objFolder.Items(mailIndex).ItemsProprieties) 
    '... code goes on 
    Next 

Après la deuxième itération de la boucle, le property1.Value est « l'opération a échoué » et il lance une exception. Pourquoi?

PS: J'ai ce problème depuis que je changé le type de boucle de Pour chaque à un pour inversé

Answer 1

Aïe! Est-ce votre vrai code? C'est la notation de points multiples prise à son extrême.

Cache les éléments variables avant d'entrer dans la boucle et appeler Articles (index) une seule fois par itération:

set Items = objFolder.Items 
For mailIndex = Items.Count To 1 Step - 1 
    Dim property1 
    set Item = Items.Item(mailIndex) 
    Set property1 = GetMigrationProperty(item.ItemsProprieties) 
    '... code goes on 
    set item = Nothing 
Next