Salve a tutti,
devo creare una mailing list da poggiare sul server aziendale; ho a disposizione cinque categorie di utenti registrati all'interno di un apposito database(ogni categoria contiene un minimo di 500 mail registrate). A questo punto ho la possisbilità di scrivere una mail e scegliendo a quale categoria inviarla il server dovrebbe farla recapitare ai destinatari.Lo script che ho creato è il seguente:
<%
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
nomediupload = Request.Form("file1")
categ = Request.Form("mai")
ogg = Request.Form("oggetto")
descr = Request.Form("messaggio")
descrizionesu = "<html><head><meta http-equiv='Content-Language' content='it'><meta name='GENERATOR' content='Microsoft FrontPage 6.0'><meta name='ProgId' content='FrontPage.Editor.Document'><meta http-equiv='Content-Type' content='text/html; charset=windows-1252'><title>Dipartimento Informatica</title></head><body topmargin='10' leftmargin='0' link='#000080' vlink='#000080' alink='#000080'><p align='center'><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse; border: 1px solid #000099' bordercolor='#111111' width='700' id='AutoNumber1'><tr><td align='center'><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='700' id='AutoNumber1'><tr><td align='center'> <a href='http://www.dipinf.com/'><img border='0' src='http://www.dipinf.com/immagini/intestazione4.jpg'></a></td></tr><tr><td bgcolor='#FFFFFF'> </td></tr><tr><td bgcolor='#FFFFFF' align='center'></td></tr><tr><td bgcolor='#FFFFFF' align='center'>"
descrizionemezzo = "<font face='verdana' size='2'>" & descr & "</font>"
descrizionesotto = "</td></tr><tr><td> </td></tr><tr><td align='center' height='17' bgcolor='#80BFFF'><p style='margin-top:3; margin-bottom: 3'><font face='Verdana' size='1'>Copyright © 2003 Dipartimento Informatica s.a.s.</font><p style='margin-top:3; margin-bottom: 3'><font face='Verdana' size='1'>sede legale: Via Diaz, 50 - 73050 Salve (LE)</font><p style='margin-top:3; margin-bottom:3'><font face='Verdana' size='1'>uffici Via Marsini, 5 - 73050 Salve (LE), tel.: 0833/528451 fax: 0833527021</font><p style='margin-top:3; margin-bottom:3'><font face='Verdana' size='1'>e-mail: <a href='mailto:mchirivi@dipinf.com'>mchirivi@dipinf.com</a> - <a href='mailto:info@dipinf.com'>info@dipinf.com</a></font><p style='margin-top:3; margin-bottom:3'><font size='1' face='Verdana'><a href='http://www.dipinf.com/'><span style='text-decoration: none; font-weight: 700'><font color='#FF4A4A'>www.dipinf.com</font></span></a></font></td></tr><tr><td height='5'></td></table></td></tr></table></body></html></body></html>"
descrizione = descrizionesu + descrizionemezzo + descrizionesotto
set Con = Server.CreateObject("ADODB.Connection")
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ=C:\Inetpub\wwwroot\webmail\_locked\interfacciamento.mdb"
Con.open strconnect
sqlString = "select * from provac where IDCategoriaCliente='" & categ & "' "
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.Open sqlString, Con
WHILE NOT RS.EOF
destinatari = destinatari + RS("IndirizzoPostaElettronica") & ","
RS.MoveNext
WEND
'response.write destinatari
miaMail.From = "info@dipinf.com"
miaMail.bcc = destinatari
miaMail.Subject = ogg
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Body = descrizione
IF nomediupload <> "" THEN
miaMail.AttachFile (nomediupload)
END IF
miaMail.Send
Set miaMail = Nothing
%>
Ciò che mi sorge spontaneo domandarmi è questo: non si savraccarica troppo di lavoro il server? ho sentito dire che per ovvie ragioni di spamming non è bene inviare un numero così alto di email?
avete qualche suggerimento da darmi?
grazie
