Dall'archivio script > Classic ASP

Realizzare una mailing-list con ASP 2/2

di Andrea ZaniAndrea Zani, in Classic ASP, E-mail, Tips,

Una volta premuto il tasto "Invia messaggi" i dati "oggetto", "priorita" e "testo" verranno inviati a questa seconda pagina di nome "mailing.asp" con il metodo "post".
In questo esempio i nomi dei nostri iscritti vengono presi da una tabella di nome "tabellaclienti" da un database in formato Access di nome "clienti.mdb", contenente i capi "nomecompleto" e "email". L'oggetto CDONTS farà il resto per noi (per informazioni più specifiche su questo oggetto, vi rimando all'articolo su www.aspitalia.com).

Invio mailing-list

<%
oggetto=request.form("oggetto")
priorita=request.form("priorita")
testo=request.form("testo")
dim dove
dove="driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("clienti.mdb")
Set rs=Server.CreateObject("ADODB.recordset")
dim stmsql
stmsql="Select nomecompleto,email FROM tabellaclienti"
rs.Open stmsql,dove
do while not rs.EOF
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  danome="Nostro sito"
  damail="<webmaster@boss.it>" ' Qui il nostro indirizzo e-mail tra < >
  dachi=chr(34) & danome & chr(34) & damail
  objMail.From=dachi
  objMail.Body=testo
  objMail.To=chr(34) & rs("nomecompleto") & chr(34) &"<"& rs("email")&">"
  objMail.Subject=oggetto
  objmail.Importance=priorita
  objMail.Send
  set objMail = nothing
rs.MoveNext
loop
rs.close
Set rs = NOTHING
%>

Per maggiori informazioni sull'invio di e-mail si veda
https://www.aspitalia.com/articoli/CDOmail.asp

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi