Quello script in effetti ora funziona ed invia una email. Ma non ho capito come fare a metterlo nel loop. mMettoettendo il destinatario ma non so come fare a prenderlo dal db per poi inviare la newsletter a tutti.
Purtroppo sono ancora agli inzi... sono un principiantello!!
Mi spieghi come fare? Thanks
Corrego il messaggio di prima: al posto di "mMettoettendo" volevo scrivere "Metto". Pardon!!!
Nessun "buon samaritano" può aiutarmi a risolvere il mio dilemma... informatico?
E' possibile vedere ciò che hai scritto...
A S P : tutto il resto è noia...
L I N U X : forse mi "converto"...
Se ho capito bene gli indirizzo sono memorizzati su un database?
Utilizza questo allora così non esci pazzo:
codice:strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\mailing.mdb") set myconn =server.createobject ("ADODB.Connection") myconn.Open strCon mysel = "select * from tuatab WHERE id ORDER BY id asc" set dbc = myconn.Execute (mysel) if not dbc.EOF then do until dbc.EOF Set myMail = Server.CreateObject("CDO.Message") myMail.Subject = "TITOLO" myMail.To=dbc("email") 'prese dal db myMail.From="info@tuosito.it" myMail.HTMLBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN""> <body bgcolor=""#FFFFFF""><font size=""2"" face=""Verdana"">MAILING TEST<font>" myMail.Fields("urn:schemas:httpmail:importance").Value = 2 = 1 myMail.Fields.Update() myMail.Send() response.write dbc("email") &" " dbc.movenext () loop end if set dbc = nothing myconn.Close () set myconn = nothing
Vi faccio vedere quello che ho scritto:
<%
' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.acquavivadanze.it"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Assegna all'oggetto le proprietà necessarie
objMail.From = "postmaster@acquavivadanze.it" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
' Invia l'email
objMail.Send()
Set objMail = Nothing
Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("email"))
else %>
<form name="formail" method="post" action="newsletter.asp?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<% end if %>
Il problema, in effetti, è che gli indirizzi vengono memorizzati in un database Access.
Con il codice suddetto riesco ad inviare la newsletter solo all'indirizzo che immetto ma non agli altri. Ho provato.... Forse sbaglio qualcosa.
Proverò anche con l'ultimo suggerimento arrivatomi!!!
Vi farò sapere!!!!!!!!!!
Permessi di invio
Rispondi quotando