infatti Item non diventa nothing, ma non perchè non arriva alla fine degli appuntamenti, bensì per il fatto che non esegue più l'istruzione "CartellaAppuntamenti.Items.GetNext"; solo che questa stessa istruzione, quando avvio il prg la esegue senza problemi... dopo un po' però si stufa e va in loop il do.
tieni presente che se io scrivo:
codice:
Do Until TypeName(mioItem) = "Nothing"
mioItem.Delete
Set mioItem = CartellaAppuntamenti.Items.GetNext
Loop
invece di:
codice:
Do Until TypeName(mioItem) = "Nothing"
If Left(mioItem, 5) = "Prova" Then mioItem.Delete
Set mioItem = CartellaAppuntamenti.Items.GetNext
Loop
il prg non da problemi, esegue tutto il ciclo ed esce per TypeName(mioItem) = "Nothing"
:master: