[VB6-Outlook] Eliminazione appuntamenti

[ladyBlu]

ragazzi ho risolto così:

Private Sub cmdEliminaProve_Click()

   Dim mioItem

   For Each mioItem In CartellaAppuntamenti.Items
     If UCase(Left(mioItem.Subject, 5)) = "PROVA" Then mioItem.Delete
   Next

End Sub

grazie a tutti x l'aiuto!