Ciao a tutti!
Ho appena finito di creare una newsletter.
Il mio problema riguarda il suo invio con CDONTS.
Praticamente, io raccolgo tutte le persona a cui voglio inviare la mail in una tabella.
Nel momento dell'invio, apro il recordset di questa tabella e repero la mail di ciascun iscritto
'CONTROLLO CHE CI SIANO DEGLI UTENTI A CUI INVIARE LA MAIL
if not rsElencoUtenti.recordcount=0 then
'FINO CHE CI SONO UTENTI FACCIO IL CICLO DI INVIO RECUPERANDO LA MAIL
do while not rsElencoUtenti.eof
'RECUPERO LA MAIL
mail=rsElencoUtenti("mail")
.
.
.HTML = HTML & "<html>"
.FUNZIONE CDONTS CHE VA PERFETTAMENTE
.
.
'QUI RECUPERO I CONTENUTI DEI CAMPI MAIL, DESTINATARIO E OGGETTO
objMail.From = "info@prova.com"
objMail.To = mail
objMail.Subject = rsNewsletterInvia("oggetto")
objMail.BodyFormat = 0
objMail.MailFormat = 0
'QUI RECUPERO IL CONTENUTO APPENA SCRITTO DEL BODY
objMail.Body = HTML
objMail.Send
'CONTINUO A CICLARE IL RECORDSET DEGLI UTENTI ISCRITTI
rsElencoUtenti.movenext
loop
end if
Il problema sta nel fatto, che per il primo utente della lista è tutto ok, per i successivi il CDONTS (o meglio il contenuto inviato) si ripete tanto quanti sono gli utenti iscritti ...
Ma cosa può essere?
Aiuto
Grazie
Rispondi quotando
