allegato ripetuto piu volte

[skylab]

Salve a tutti,
sto provando ad inviare delle email prelevando i vari indirizzi da un db con il loro relativo allegato
tramite il seguente codice:

<%
Dim Conn,eMail,rs,sql
Set Conn = Server.CreateObject("ADODB.Connection") 
  
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/site.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Set eMail = CreateObject("CDO.Message") 
sql = "SELECT * FROM Catalogo"
rs.Open sql, Conn
volantino = rs("Cat")
rs.Close
sql = "SELECT * FROM Email"
rs.Open sql, Conn

Do while NOT rs.EOF = true

eMail.From = "info@epdambrosio.com"
eMail.To = rs("email")
eMail.Subject = "Epdambrosio"
eMail.TextBody = "Testo"
eMail.Fields("urn:schemas:httpmail:importance").Value = 1
eMail.Fields.Update()
eMail.AddAttachment (trim(server.mappath(volantino)))
eMail.Send()

rs.MoveNext		
Loop

rs.Close
Conn.Close 
Set eMail = Nothing
Set rs = Nothing
Set Conn = Nothing

%>

funziona tutto...tranne il fatto che sembra che mi concateni gli allegati ad ogni invio.
Sapete dirmi dove sbaglio?

Grazie in anticipo

[optime]

ricrea l'oggetto eMail ad ogni giro

[Mizushi]

Cosa vuol dire concatena?
Sei tu stesso che gli dici tramite il ciclo che deve allegare per ogni messaggio inviato il "volantino"...

[skylab]

Si adesso funziona...
era proprio l'oggetto eMail...non ci avevo proprio pensato

Grazie ancora

[optime]

Originariamente inviato da Mizushi
Cosa vuol dire concatena?
Sei tu stesso che gli dici tramite il ciclo che deve allegare per ogni messaggio inviato il "volantino"...

la proprietà .AddAttachment dell'oggetto CDO.Message cosa fa? Aggiunge (Add) un allegato (Attachment). Se non lo reinizializzo ad ogni giro, dopo 10 cicli mi ritrovo 10 allegati. Claro?