Notifica CDONTS ciclica

[fabiosh75]

Ciao a tutti,
sto cercando di realizzare una mailing list ma ho un problema che mi blocca:

Do while not rsListaUtenti.EOF 
'DICHIARAZIONE E CREAZIONE DELL'OGGETTO:
Dim objCDONTS
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
'IMPOSTIAMO IL MITTENTE
objCDONTS.From = invioDa

' PROBLEMA SE LO INSERISCO MI SI DUPLICA LA MAIL DI RITORNO SE LO TOLGO NON FUNZIONA LA NOTIFICA!!!
objCDONTS.To = invioDa 

objCDONTS.BCC = rsListaUtenti("EM_EMAIL")

'IMPOSTIAMO IL FORMATO DELLA EMAIL
objCDONTS.BodyFormat = 0 '0 - HTML, 1 - Testo (impostazione predefinita)
objCDONTS.MailFormat = 0 

'INSERIAMO L'OGGETTO DELLA EMAIL
objCDONTS.Subject = oggetto

objCDONTS.Value("Disposition-Notification-To") = invioDa

objCDONTS.Send()

rsListaUtenti.MoveNext
Loop

Il problema è qui "objCDONTS.Value("Disposition-Notification-To") = invioDa" ossia voglio la conferma di lettura dell'utente iscritto per se disabilito questo: "objCDONTS.To = invioDa" ricevo un errore sulla notifica in quanto il CDONTS per farla cerca il objCDONTS.To
ora però essendo dentro un ciclo do while not ...loop se io ho 1000 iscritti ricevo 1000 email duplicate in quanto ho abilitato la voce objCDONTS.To = invioDa se non lo inserisco ricevo solo una mail, ma non funziona la notifica...
come posso fare?



Ciao e grazie

Fabio

[Roby_72]

Non ho capito molto...
Non hai la notifica per tutti?

Roby

[fabiosh75]

Forse mi sono spiegato male... allora se io inserisco la dicitura:
"objCDONTS.To = invioDa"
se nel DB ho 1000 e-mail io (objCDONTS.To = invioDa) riceverò 1000 e-mail!
Se invece lascio solo "objCDONTS.From = invioDa" non mi funziona la notifica (objCDONTS.Value("Disposition-Notification-To") = invioDa)

Gli utenti li ho inseriti nella dicitura "objCDONTS.BCC = rsListaUtenti("EM_EMAIL")"

Forse sbaglio questo passaggio?
Spero di essere stato leggermente più chiaro.


Ciao

Fabio

[fabiosh75]

Ciao a tutti,
ho risolto è bastato mettere l'indirizzo e-mail anzichè la variabile e ora funziona, non ho capito il perchè però va bene lo stesso!

Ora dovrei fare un'altro piccolo aggiustamento però non so bene come farlo, diciamo che ho 1000 indirizzi e-mail, quando spedisco una mailing rischio di "impallare" il server (aruba) come dovrei fare se volessi spedire 50 e-mail alla volta (e non tutte e 1000 insieme) in modo automatico?
Avete qualche suggerimento?

Ciao e grazie
Fabio

[Roby_72]

Inserisci un campo numerico aggiuntivo nella tabella che avrà valore 0 / 1 per non viate ed inviate.
Ogni volta che invii una email imposti quel campo a 1.
Per prendere le prime 50 usa una:

SELECT TOP 50 .... WHERE nuovocampo = 0

A quel punto puoi prevedere un pulsante che digiterai tu dopo ogni invio oppure il refresh automatico della pagina.

Roby

[fabiosh75]

Grazie!
Stasera mi metto al lavoro e vediamo che combino VVoVe: no il grande del lavoro è fatto devo solo fare qualche modifica e, spero, funzioni!

Ciao
Fabio