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.

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