| Pagina ASP per gestire una Mailing List |
|
|
|
Per poter gestire facilmente una Mailing List si può creare una pagina ASP che permetta l'invio della email al List Server con i comandi subscribe e unsubscribe direttamente dal browser. File mailinglist.asp <% '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 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxxx" ' qui metti il tuo server SMTP 'Autentificazione .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'qui lascia così come è 'tuo smtp username .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxx" 'qui metti il tuo Username 'tua password .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx" 'qui metti la tua password .Fields.Update End With 'Assegna le configurazioni Set objMail.Configuration = objConfig 'Assegna all'oggetto le proprietà necessarie objMail.To = " Indirizzo e-mail protetto dal bots spam , deve abilitare Javascript per vederlo " '<---------- Mettere qui EMAIL del List Server objMail.From = Request.Form("email") '<---------------- Mittente 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") Else %> <form name="formail" method="post" action="mailinglist.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="radio" value="subscribe
Indirizzo e-mail protetto dal bots spam , deve abilitare Javascript per vederlo
" name="oggetto">Sottoscrivi <input type="radio" value="unsubscribe
Indirizzo e-mail protetto dal bots spam , deve abilitare Javascript per vederlo
" name="oggetto">Cancella </td> </tr> <tr> <td colspan="2"> <input type="submit" value="invia" name="submit" /> </td> </tr> </table> </form> <% End If %> |
