Обработка документов и перенос в другую папку на PHP

 $n_session = new COM("Lotus.NotesSession");
$n_session->initialize($conf->get(notes_password)); // Подключаемся ...
$n_dir = $n_session->GetDbDirectory($conf->get(notes_server))->
OpenMailDatabase()->
GetView(spider\atm\upc); // получаю объект папки
$n_doc = $n_dir->GetFirstDocument();
while(is_object($n_doc)){
/* здесь была обработка документа ... она работает нормально */
$n_doc_next = $n_dir->GetNextDocument($n_doc); // получаем объект следующего док.
$n_doc->PutInFolder(spider\arh\atm-upc); // копируем в архив
$n_doc->RemoveFromFolder($n_dir->name); //удаляем текущий док из рабочей папки !!!!! ПРОБЛЕМА
print_r($n_doc->GetItemValue(Subject)); //отладочная штука - дабы видеть, сколько доков обработали
$n_doc = $n_doc_next; //Следующий док становится текущим.
}
echo "End of script.\n";

...
Set vc = NotesView.AllEntries
Set ve = vc.GetFirstEntry( )
While Not (ve is Nothyng)
If ve.IsDocument Then
Set doc = ve.Document
...
Call doc.PutInFolder(...)
Call doc.RemoveFormFolder(...)
End If
Set ve = vc.GetNextEntry(ve)
Wend

 $n_session = new COM("Lotus.NotesSession");
$n_session->initialize($conf->get(notes_password));
$n_list = $n_session
->GetDbDirectory($conf->get(notes_server))
->OpenMailDatabase()
->GetView(spider\atm\upc)
->AllEntries;
echo "Docs: ".$n_list->Count."\n";
$n_entry = $n_list->GetFirstEntry();
while(is_object($n_entry)){
if($n_entry->IsDocument){
$n_doc = $n_entry->Document;
echo  Date: .$n_doc->GetFirstItem("PostedDate")->text."\n";
$n_doc->PutInFolder(spider\arh\atm-upc);
$n_doc->RemoveFromFolder(spider\atm\upc);
}
$n_entry = $n_list->GetNextEntry($n_entry);
}

 $n_entry = $n_list->GetFirstEntry();
while(is_object($n_entry)){ //проходим по докам в папке ящика
if($n_entry->IsDocument){
$n_doc = $n_entry->Document;
...
while($n_doc->HasItem($FILE)){//проходим по всем аттачам письма
...
$n_filenameitem->Remove;
} // while по $FILE
$n_doc->Save(true,false,true);   // СОХРАНЕНИЕ С СНЯТИЕМ МЕТКИ О ПРОЧТЕНИИ
$n_doc->PutInFolder(spider\arh\atm-upc);
$n_doc->RemoveFromFolder(spider\atm-upc);
} // if IsDoc
$n_entry = $n_list->GetNextEntry($n_entry);
} // while по entry

 $n_session = new COM("Lotus.NotesSession"); // создаем объект сессии
$n_session->initialize($conf->get(password,notes)); // подключаемся
 
//Через кучу методов/свойств получаем объект "вхождений" указанной папки почты
$n_list = $n_session->GetDbDirectory($conf->get(server,notes))->OpenMailDatabase()->GetView(spider\atm-upc)->AllEntries;
//дальше идет код с поста выше