Ciao ragazzi,

mi capita uno strano problema quando cerco di inviare una newsletter utilizzando CreateMHTMLBody.

Questo il codice che uso:

codice:
Set objMail = Server.createObject("CDO.Message") 
Set objConfig = Server.createObject("CDO.Configuration") 

With objConfig 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpserverport 
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = sendusing 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = smtpconnectiontimeout 
.Fields.Update 
End With 
	
strSql = "SELECT email_n FROM "&predb&"newsletter "&sql_m&sql_prov&" LIMIT " & intPartenza &","&intMessaggi

set rs = server.createobject("adodb.recordset")

rs.Open strSql, conn

if not rs.eof then
do while not rs.eof
		
useremail = rs("email_n")
   
Set objMail.Configuration = objConfig 
objMail.From = nomesito&" <"&email_princ&">" 
objMail.To = useremail
objMail.Subject = oggetto
	
objMail.CreateMHTMLBody urlgen&"/"&pathfissa&"format_newsletter.asp?c=rec&em="&server.htmlencode(useremail)&"&ida="&id_art_n&"&md="&modo_art_n&"&la="&last_art_n

objMail.Send() 

rs.movenext
loop  

end if

rs.close
set rs = Nothing 

Set objMail = Nothing
La newsletter viene inviata a blocchi di email e tutto funziona correttamente... se non fosse che le immagini che incorporo nell'html creato al volo dalla pagina format_newsletter.asp vengono messe in allegato alla mail oltre ad essere visualizzate (correttamente) nel corpo della mail stessa.. E fin qui ci potrebbe anche stare... ma la cosa problematica è che alla fine dell'invio (il sistema invia 1500 emails circa) le immagini allegate si moltiplicano esponenzialmente portando il peso della mail a valori molto alti... non riesco a capire il perchè... chi ha qualche idea?

Grazie veramente!