Rimuovere uno o più allegati dall'oggetto CDOSYS

[mvent]

    Set OBJMAIL = server.CreateObject("CDO.Message")
    Set OBJCONFIG = server.CreateObject("CDO.Configuration")
    OBJCONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.pippo.com"  'server SMTP di uscita
    OBJCONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25                      'porta SMPT
    OBJCONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                            'porta CDO
    OBJCONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60               'timeout
    OBJCONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    OBJCONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@pippo.com"
    OBJCONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "comenocerto"
    OBJCONFIG.Fields.Update
    Set OBJMAIL.Configuration = OBJCONFIG    'assegna la configurazione
    For J = 1 To Val(TxtVolte.Text)
      For I = 0 To lstEmail.ListCount - 1
        OBJMAIL.From = "www@www.ww"
        OBJMAIL.To = lstEmail.List(I)
        'OBJMAIL.Cc = "altroindirizzo@dominio.com; ancora@dominio.com"
        'OBJMAIL.Bcc = "altroindirizzo@dominio.com; ancora@dominio.com"

        OBJMAIL.Subject = TxtOggetto.Text
        'OBJMAIL.Fields("urn:schemas:httpmail:importance").Value = 2    'priorità della email
        'OBJMAIL.Fields.Update
        'OBJMAIL.TextBody = "Testo della mail" ' Formato Testo
        OBJMAIL.HTMLBody = TxtTesto.Text   'Formato HTML
        If LCase(LblAlg.Caption) <> "nessuno" Then OBJMAIL.AddAttachment LblAlg.Caption
        OBJMAIL.Send
        Call Sleep(2000)
      Next I
      LblIT.Caption = Format(J) & "/" & TxtVolte.Text
    Next J
    Set OBJMAIL = Nothing
    Set OBJCONFIG = Nothing

alora, ho gia dato una occhiata all'archivio e la mia domanda è la seguente: col metodo addattachment aggiungo un allegato. se lo ripeto ancora, aggiunge un nuovo allegato.
il problema è che dentro il ciclo la seconda mail ha due volte l'allegato, la terza tre volte, e cosi via, quando invece ogni email che parte ne deve avere solo uno.
c'è una specie di metodo "remove attachment" per l'oggetto CDOSYS?

grazie in anticipo a tutti le brave persone che risponderanno.

[optime]

invece di fare

crea oggetto
for j
for i
...
next
next
distruggi oggetto

fa'

for j
crea oggetto
for i
...
next
distruggi oggetto
next

[mvent]

si questo lo avevo pensato, ma ho pensato anche di voler evitare di creare e distruggere l'oggetto centinaia di volte....le email che mando possono essere centinaia nello stesso ciclo...

(non fate caso agli oggetti label e text, quel codice lo sto riadattando per ASP)

c'è un posto dove poter vedere tutte, ma proprio tutte, le proprietà e i metodi dell'oggetto CDOSYS?

[optime]

http://lmgtfy.com/?q=cdosys+site%3Amicrosoft.com

[mvent]

alora: innanzitutto qui si trovano tutte le proprietà e i metodi del malefico oggetto CDOSYS:
http://msdn2.microsoft.com/en-us/library/ms526983.aspx

in genere sgooglando si vedono i principali, ma nell'elenco al link precedente, ce anche qualche altra robetta che può essere utile.


in secondo luogo questo è il codice per rimuovere gli allegati senza distruggere l'oggettino:

'use this to delete attachements
  Dim collAtts as CDO.IBodyParts         'or dim collAtts as Object
  Set collAtts = objMsg.Attachments
  If collAtts.Count = 0 Then
    'no attachments    
  Else
    'MsgBox "Message has " & collAtts.Count & " attachments"
     collAtts.DeleteAll
  End If