[VB6] Svuotare la cartella "Posta eliminata" di Outlook

[darkblOOd]

esiste l'oggetto FOLDER?

se esiste puoi fare:

Dim rFolder as FOLDER
For Each rFolder in mioCestino.Folders
  rFolder.Remove
Next

al limite prova con Object generico e questo codice:

Dim rFolder as Object
for each rFolder in mioCestino.Folders
   if typeOf rFolder is mioCestino.Folders.Item
       ctype(rFolder, mioCestino.Folder.item).remove
   End If
next

anche se non credo funzioni perchè Item dovrebbe essere una propietà e non un oggetto