[VB6-Outlook] Eliminazione appuntamenti

[ladyBlu]

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:

Do Until TypeName(mioItem) = "Nothing"
       mioItem.Delete
       Set mioItem = CartellaAppuntamenti.Items.GetNext
Loop

invece di:

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: