Creazione e gestione di una semplice mailing list

20 marzo 2006

Siamo davvero in dirittura d’arrivo. Non ci resta che creare il file di invio dei messaggi, il più importante per il nostro script. Chiamiamolo /admin/broadcast.asp. Basato, come detto prima, su CDOSYS, è il seguente:

<!–METADATA TYPE=”typelib”
UUID=”CD000000-8B95-11D1-82DB-00C04FB1625D”
NAME=”CDO for Windows 2000 Type Library” –>
<!–METADATA TYPE=”typelib”
UUID=”00000205-0000-0010-8000-00AA006D2EA4″
NAME=”ADODB Type Library” –>
<!–n.b.: non è necessario includere il file adovbs.inc
dopo avere invocato la ADODB library–>
<!– #INCLUDE file = “login/riservato.asp” –>
<!– #INCLUDE virtual=”/source/moduli/store.asp” –>
<%
‘Invio messaggi con CDOSYS strFrom = Request.Form(“From”)
strSubject = Request.Form(“subject”)
strBody = Request.Form(“body”) Set objRec = Server.CreateObject (“ADODB.Recordset”)
objRec.Open “mailing_List”, objConn, adOpenKeyset, _
adLockReadOnly, adCmdTable
Response.Write(“<center><h3>Invio messaggi in corso</h3></center>”)
While Not objRec.EOF
invioA = objRec(“email”)
invioDa =’ “inserire qui la nostra mail” (il mittente: l’admin della lista)
‘* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject(“CDO.Message”)
Set iConf = CreateObject(“CDO.Configuration”)
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = qui inserire i dati forniti dal vostro provider
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSendUserName) = qui inserire i dati forniti dal vostro provider
Flds(cdoSendPassword) = qui inserire i dati forniti dal vostro provider
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = strfrom
.Sender = invioDa
.Subject = strsubject
.textBody = “Testo del messaggio: ” & vbCrLf & strbody & “”
.Send
End WithSet iMsg = nothing
Set iConf = nothing
‘conferma invio
Response.Write “Messaggio inviato a ” & objRec(“EMail”) & “!<br>”
‘prossimo record
objRec.MoveNext
WEND
objRec.close
set objRec = nothing
objConn.close
set objConn = nothing
Response.Write(“<center><h3>Messaggi inviati!</h3><center>”)
%>

Notiamo che le prime due istruzioni METADATA invocano due “librerie” di sistema: quella relativa all’oggetto CDO (per l’invio delle email) e quella delle funzioni e variabili ADO che qui sostituisce l’inclusione del file adovbs.inc. Perché anche questa pagina funzioni, suggerisco di verificare se il sistema operativo del server che ospita il nostro sito è Win2003 (e in questo caso alcune delle istruzioni include dovranno usare la sintassi:

<!– #INCLUDE virtual = …….

anziché

<!– #INCLUDE file = …..

(come nel nostro esempio) e l’invio di email con CDOSYS sarà certamente supportato) oppure se è una versione precedente di Windows, che potrebbe richiedere una (facile) modifica del file broadcast.asp e di alcune delle istruzioni include.

Se vuoi aggiornamenti su Creazione e gestione di una semplice mailing list inserisci la tua e-mail nel box qui sotto:
 
X
Se vuoi aggiornamenti su Creazione e gestione di una semplice mailing list

inserisci la tua e-mail nel box qui sotto:

Ho letto e acconsento l'informativa sulla privacy

Acconsento al trattamento di cui al punto 3 dell'informativa sulla privacy