Невозможно получить значение из прогноза ItemProprieties: Не удалось выполнить операцию

Question

еще одна проблема, которую я не могу понять, еще раз. Я получаю пользовательские права, ранее добавленные моим кодом в MailItem. Я в настоящее время тестирования с прогнозом 2010 года, это так же просто, как и

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

После второй итерации цикла, property1.Value является «Operation Failed», и это вызывает исключение. Зачем?

PS: У меня есть эта проблема, так как я изменил тип петли из Для каждого Ань инвертирования для

Answer 1

Уча! Это ваш настоящий код? Это кратная точка, принятая до крайности.

Cache в Items переменных перед входом в цикл и называющие Items (индекс) только один раз за итерацию:

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