ah.ehm...e se provi così va in errore lo stesso?

codice:
Dim mioCestino As Outlook.MAPIFolder
Set mioCestino = mioSpace.GetDefaultFolder(olFolderDeletedItems)
For i = 0 To mioCestino.Items.Count -1
    mioCestino.Items.Remove(i)
Next i