Salve ho un database che si chiama mailing che contiene una tabella che si chiama data e all'interno un campo che si chiama email...
Poi ho questo codice:
ma quando provo mi da questo errore:codice:<% Set vConn = Server.CreateObject("ADODB.Connection") vConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_private/mailing.mdb") vsql = "SELECT * FROM Data" Set vrs = Server.CreateObject("ADODB.Recordset") vrs.Open vsql, vconn 'Inserisco dentro la variabile bcc tutti i destinatari x = 0 do until vrs.eof x = x + 1 if x = 1 then bcc = vrs("email") else bcc = bcc & ", " & vrs("email") end if vrs.moveNext loop vrs.close Set vrs = Nothing 'creo l'oggetto set oMail= server.CreateObject("CDO.Message") 'creo la mail in base al web omail.CreateMHTMLBody("http://www.tuo_sito.com/letter.asp") 'metto il from omail.from="Me medesimo <info@mio_sito.it>" 'metto il destinatario omail.To="Iscritti alla Mailing list <"& bcc &">" 'oggetto mail omail.Subject = "Newsletter de sto circo" 'spedisco omail.Send() vconn.Close Set vConn = Nothing %>
CDO.Message.1 error '800c0005'
The system cannot locate the resource specified.
/mailing.asp, line 28
PS è giusto questo codice per inviare le e-mail a tutti gli indirizzi presenti nel campo email? (saranno circa 1000)
Grazie

Rispondi quotando
