Salve a tutti.
Non riesco a trovare il modo di eliminare tutti gli elementi e cartelle contenute nella cartella "Posta eliminata" di Outlook.
Sapete suggerirmi come fare?

Io ho scritto una cosa del genere, ma sto cambiando in continuazione perchè mi si genera sempre qualche errore:
codice:
Dim mioCestino As Outlook.MAPIFolder

Set mioCestino = mioSpace.GetDefaultFolder(olFolderDeletedItems)
For i = 1 To mioCestino.Items.Count
    mioCestino.Items.Remove(i)
Next i
For i = 1 To mioCestino.Folders.Count
    mioCestino.Folders.Remove(i)
Next i
purtroppo non va... mi genera questo errore:
"Errore n. -1593819131: Indice della matrice fuori intervallo."

sulla riga in rosso. ma le cartelle eliminate sono 84.
Help me please...


Grazie a tutti per la collaborazione