[VB6-Outlook] Eliminazione appuntamenti

[darkblOOd]

allora? A quando le tue scuse ufficiali? :gren:

[ladyBlu]

Originariamente inviato da darkblOOd
allora? A quando le tue scuse ufficiali? :gren:

:master:
1°: con chi ce l'hai!!!
2°: che cavolo di scuse vuoi??!






dark, volevi sapere cosa fa TypeName; ecco qui:

Funzione TypeName
Descrizione
Restituisce una stringa che fornisce informazioni sul sottotipo
Variant di una variabile.
Sintassi
TypeName(nomevar) 
L'argomento obbligatorio nomevar può essere qualsiasi variabile.

[vonkranz]

...ma abbiamo risolto???

:master:

[ladyBlu]

magari!!!
ancora niente da fare.

[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!

[darkblOOd]

Originariamente inviato da 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!

pensarci prima no eh? tral'altro è anche + snello così (e cmq secondo me von aveva ragione sul nothing )

:gren:

[ladyBlu]

partendo dal presupposto che von non ha ragione sul Nothing dal momento che lo uso in altre parti del progetto, se ho risolto adesso vuol dire che prima non mi è venuto in mente di risolvere così!!!

dico, che modi, invece di essere contento per me, mi sgridi!!!


:gren: