ciao raga, uso il seguente codice per inviare una newsletter, funziona ma la mail nn arriva a tutti, provando sui miei indirizzi, su Hotmail arriva all'istante, su domini a pagamento subito ma su Libero o su Tiscali nn arriv nulla!!!!
devo usare qualche accorgimento??? la sintassi è corretta?? se arrivano su certi indirizzi xkè su alttri no????
codice:<% cod_newsletter = request.querystring("cod_newsletter") %> <% response.buffer =true min = request("min") max = request("max") id = request("idnewsletter") dim em(2000) 'db="dsn=euromed" SET cn = Server.CreateObject("ADODB.Connection") 'cn.Open db cn.open "Provider=Microsoft.jet.OLEDB.4.0; Data source="& server.mappath("/mdb-database/newsletter.mdb") sql = "SELECT email FROM utenti WHERE conferma='s' AND cod_newsletter='"&cod_newsletter&"'" Set rs = cn.Execute(SQL) DO WHILE NOT rs.EOF i = i + 1 redim preserv(em(i)) em(i) = rs("email") RS.MOVENEXT LOOP sql = "SELECT * FROM newsletter where idnewsletter="&id Set rs = cn.Execute(sql) img_gruppo = rs("img_gruppo") titolo = rs("titolo") corpo = rs("corpo") allegato = rs("allegato") set rs = nothing sql = "SELECT normativa FROM gruppi where cod_gruppo="&cod_newsletter Set rs = cn.Execute(sql) normativa = rs("normativa") normativa = Replace(normativa, "’", "'") set rs = nothing for j = min to max Set Objmail = Server.CreateObject("CDO.Message") Objmail.From = "www.ppppp.it" Objmail.To = em(j) Objmail.Subject =titolo corpo = Replace(corpo, "’", "'") all_mail = corpo all_mail2 = "[img][/img] <hr><div style=""font-family: Verdana; font-size: 8pt;"">" & all_mail & "</div> <hr><div style=""font-family: Verdana; font-size: 7pt;"">" & normativa & "</div>" Objmail.HTMLBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN""><html><head><title>www.ppppp.it</title><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1""></head><body>[img][/img] <hr>" & all_mail & " <hr><div style=""font-family: Verdana; font-size: 7pt;"">" & normativa & "</div></body></html>" if allegato <> "" then Objmail.AddAttachment ("D:\Inetpub\webs\pppppit\public\"&allegato&"") end if Objmail.Fields("urn:schemas:httpmail:importance").Value = 2 Objmail.Fields.Update() Objmail.Send() Set Objmail = Nothing response.write em(j) & " " next response.write(" Anteprima EMAIL <hr>") response.write(all_mail2) response.write(" <hr> ") %>
Rispondi quotando
almeno una dritta sulla sintassi...posso migliorere qualcosa?
