Ciao ragazzi... tutti noi abbiamo una newsletter nei nostri siti... mi chiedevo se con questo post volevamo creare qualcosa di più potente... (spero magari ci sia qualcosa di già pronto)...
Progetto:
- partiamo dal presupposto che abbiamo già un database con delle email (evitiamo tutta la fase di inserimento dati)
- creaiamo un file che invia le email
Caratteristiche:
- Le pagina userà per l'invio il componente AspEmail (molto diffuso) se installato altrimenti Cdonts
- Per evitare un down del server farà una pausa d'invio ogni 30/40 secondi oppure ogni tot invii
- Faremo in modo che vengono eliminati gli indirizzi errati.
Inizio con il mio codice (base iniziale)
server_smtp="mail.pippo.it"
mittente="info@pippo.it"
oggetto=request("oggetto")
messaggio=request("messaggio")
Set mail = Server.CreateObject("Persits.MailSender")
mail.host = server_smtp
mail.from = mittente
mail.isHTML = true
mail.addaddress mittente
set rs=server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM email",db,adOpenKeyset,adLockPessimistic
if not rs.eof then
do until rs.eof
mail.AddBCC rs("email")
rs.movenext
loop
end if
mail.subject = oggetto
mail.body = messaggio
On Error Resume Next
mail.Send
rs.close
set rs = nothing
sinceramente non so se la tecnica del AddBcc sia giusta..praticamente lo script invia la prima email allo stesso mittente (come copia) e poi a tutti gli iscritti.
Rispondi quotando