Usuwanie załączników Outlook

Witam. Chcę usunąć załączniki z maili umieszczonych w danym katalogu.Pobranie maili i załączników następuje poprawnie ale zastosowana metoda remove(próbowałem również delete klasy Attachment ) działa tylko do załączników w pierwszym mailu a do kolejnych nie.
Nawet jak na sztywno stram się usuwać z drugiego mila w katalogu to nie usuwa.Nie wyrzuca żadnego błędu.
Poniżej umieszczam część kodu.Proszę o wskazówki.

<font size="1">...
Variant pojedynczyMail;
Variant zalaczniki;
Variant my_outlook=Variant::CreateObject("outlook.application");
Variant my_name_space=my_outlook.OleFunction("GetNamespace","MAPI");
Variant my_folder=my_name_space.OleFunction("GetDefaultFolder",(Variant)6);
Variant folderDocelowy=my_folder.OleFunction("Folders","Folder Aplikacji");
Variant obiektGlowny=folderDocelowy.OlePropertyGet("Items");
long iloscMail=obiektGlowny.OlePropertyGet("Count");

for(int i=0;i<iloscMail;i++)
{
pojedynczyMail=obiektGlowny.OleFunction("Item",(Variant)i+1);
zalaczniki=pojedynczyMail.OlePropertyGet("Attachments");
long iloscZalacznikow=zalaczniki.OlePropertyGet("Count");
for(long j=1;j<=iloscZalacznikow;j++)
{
zalaczniki.OleFunction("Remove",j);
}
} ...</span>