salve
sono alle prese con un problema ke sicuramente sarà banale per la maggior parte d voi. dunque
grazie anke a questo forum ho creato delle pagine sul mio sito dacui posso inviare mail a + destinatari l'indirizzo dei quali è estratto da un db. ora vorrei poter memorizzare su un altra tabella le mail ke invio. nessun problema fino a quando cè da memorizzare oggetto, testo e data; ma come faccio a inserire gli indirizzi email dei destinatari a cui lho mandata?
vi posto il codice che uso per inviare la mailist
grazie
<%
dim line
Dim Con
Dim rs
Set con = Server.CreateObject("ADODB.Recordset")
con.ActiveConnection = MM_bccRiservata_STRING
Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.ActiveConnection = MM_bccRiservata_STRING
Dim newMailObj
Dim sMailBody
Dim sSql
For i = 1 to Request.Form("sendEMail").Count
sSql = "select email_cl from clienti where email_cl='"& Request.Form("sendEMail")(i) &"'"
rs.Open sSql
Set newMailObj = CreateObject("CDONTS.Newmail")
newMailObj.From = "info@dominio.it"
newMailObj.To = Request.Form("sendEMail")(i)
newMailObj.Subject = Request.Form("subject")
newMailObj.BodyFormat = CdoBodyFormatText
newMailObj.Body = Request.Form("testo")
newMailObj.BodyFormat = 0
newMailObj.MailFormat = 0
newMailObj.Send
Set newMailObj = Nothing
rs.Close()
next
Set rs = Nothing
Set Con = Nothing
%>
Rispondi quotando
