Ciao a tutti...
rieccomi con il mio bagagli di ignoranza abissale a postare domande alle quali nei thread sull'argomento non ho trovato risposta.
Al momento ho una pagina che vorrebbe inviare una mail ad una lista di utenti nel mio file mdb.
Purtroppo c'è qualcosa ch non gira.. dato che la mail viene inviata solo ed esclusivamente a un cliente a caso nella mia lista mdb.
Riporto il codice:
<%
Dim RsClienti__MMColParam
RsClienti__MMColParam = "Sì"
If (Request("MM_EmptyValue") <> "") Then
RsClienti__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim RsClienti
Dim RsClienti_numRows
Set RsClienti = Server.CreateObject("ADODB.Recordset")
RsClienti.ActiveConnection = MM_xxxxxxxxxxxxxxx_STRING
RsClienti.Source = "SELECT email, username FROM clienti WHERE mailNovità = '" + Replace(RsClienti__MMColParam, "'", "''") + "'"
RsClienti.CursorType = 0
RsClienti.CursorLocation = 2
RsClienti.LockType = 1
RsClienti.Open()
RsClienti_numRows = 0
%>
<%
email = RsClienti("email")
user = RsClienti("username")
Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>"
HTML = HTML & "<link href=http://localhost/negozio_3/negozio.css rel=stylesheet type=text/css>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=#efece5 leftmargin=0 topmargin=0 marginwidth=0 marginheight=0>"
HTML = HTML & "<img src= http://localhost/negozio_3/immagini/sarca.jpg width=720 height=123>
"
HTML = HTML & "<p span class=testi> Salve : </span>"
HTML = HTML & "<span class=linksROSSI>"
HTML = HTML & user
HTML = HTML & "</span>"
HTML = HTML & "<p span class=links> "
HTML = HTML & Request("mess")
HTML = HTML & "</span>"
HTML = HTML & "<p class=titoli> Il Sarca E-Store ti ringrazia"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
objMail.From = "Negozio@sarca.it" ' Mittente - indirizzo del negozio
objMail.To = email ' Destinatario - indirizzo del cliente
objMail.BCC = "ciccio@loffa.it" 'Copia Carbone nascosta - indirizzo del negozio, per conoscenza
objMail.Subject = "Novità Sito"'oggetto
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML
objMail.Send() 'send mail
Set objMail = Nothing 'chiude e libera le risorse
%>
<%
RsClienti.Close()
Set RsClienti = Nothing
%>
Grazie!!!
Rispondi quotando
