Originariamente inviato da ladyBlu
allora, dark, ho utilizzato il primo codice:
codice:
Dim rFolder as FOLDER
For Each rFolder in mioCestino.Folders
  rFolder.Remove
Next
ma non va. in effetti mi sono un po' rimbambita, perchè già avevo visto ieri che utilizzando la parolina Each arrivata a un tot di cartelle esce dal ciclo for senza finire...
infatti io ora ho 30 cartelle in Posta Eliminata... quando arriva alla 10ma esce. ed è per questo che avevo deciso di usare l'indice della cartella scorrendo l'insieme Folders.
uhm...ma per caso ogni cartella presente nell'insieme può avere sottocartelle?

Il for each cicla all'interno della collection mioCestino.Folders ed esegue la delete per ogni oggetto trovato al suo interno. Ovviamente per ogni oggetto DEL TIPO specificato nella dim. potrebbe essere che le altre cartelle sono di un altro tipo....

insomma non so come cavolo risolvere. esisterà il comando "Svuota Cartella Posta Eliminata" no?!

evidentemente no