Ciao ragazzi,
mi capita uno strano problema quando cerco di inviare una newsletter utilizzando CreateMHTMLBody.
Questo il codice che uso:
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?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
Grazie veramente!

Rispondi quotando
