Ciao a tutti,
mi sapreste consigliare uno script in asp per creare mailing list?
In rete ho trovato qualcosa, anche su questo sito, ma avrei bisogno di qualcosa di più professionale, per esempio inviare email a tutti o ad alcuni degli utenti inscritti (selezionandoli da un elenco), in più mi piacerebbe poter inserire un upload per immagini, mentre gli script che ho trovato in giro inseriscono l'immagine, ma solo tramite link.
Spero che mi possiate dare una mano.
Grazie.
Di pronto non saprei consigliarti nulla; ma non è difficile realizzare quello che dici: inizia a cercare sul forum per upload baol e poi se ne riparla...
ti spiego brevemente il mio problema:
ho una pagina newsgroup con una form, si sceglie l'immagine da uplodare, gli utenti a cui inviare l'email attraverso una checkbox (che contiene l'id dell'utente) , l'oggetto e il messaggio.
L'immagine per ora mi serve solo come sfondo dell'email.
Fin qui non ho problemi, ma nella pag mailing le cose non vanno.
(credo che il problema sia il ciclo for)
<%
Dim strMittente
Dim strEmailA
Dim strOggetto
Dim utenti
Dim messaggio
Dim sfondo
strOggetto= Request.Form("Oggetto")
messaggio=Request.form("Message")
utenti=Request.form("checkbox")
sfondo= Request.form("background")
HTML = "<HTML><HEAD>" &_
"<title>HTML ed immagini</title>" &_
"<body>" &_
"<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""background-image:url(http://www.miosito.it/immagini/"&sfondo&"); background-repeat:repeat-x; "">" &_
"<tr><td width=""69"" height=""148"" valign=""top"">"&strOggetto &"</td>" &_
</tr>" &_
"<tr><td width=""100%"" colspan=""2"" height=""500"" valign=""top"">"& messaggio & "</div></td>" &_
"</tr></table>" &_
"</body>" &_
"</html>"
if inStr(utenti," ") > 0 then utenti = replace(utenti," ","")
if inStr(utenti,",") > 0 then
utenti = split(utenti,",")
for i = 0 to uBound(utenti)
id = utenti(i)
sql = "SELECT email FROM newsgroup WHERE id_newsgroup = " & id
set rs = conn.execute(sql)
indirizzoEmail = rs("email")
rs.close
set rs = nothing
strMittente = "info@miosito.it"
strEmailA = indirizzoEmail
objEMail.From = strMittente
objEMail.To = strEmailA
objEMail.Subject = strOggetto
objEMail.BodyFormat = 0
objEMail.MailFormat = 0
objEMail.Body = HTML
objEMail.Send()
Set objEMail = Nothing
next
else ' vuol dire che c'è un solo destinatario perchè manca la virgola nella stringa degli id presi con la request
id = utenti
sql = "SELECT email FROM newsgroup WHERE id_newsgroup = " & id
set rs = conn.execute(sql)
indirizzoEmail = rs("email")
rs.close
set rs = nothing
strMittente = "info@miosito.it"
strEmailA = indirizzoEmail
objEMail.From = strMittente
objEMail.To = strEmailA
objEMail.Subject = strOggetto
objEMail.BodyFormat = 0
objEMail.MailFormat = 0
objEMail.Body = HTML
objEMail.Send
Set objEMail = Nothing
end if
Response.Redirect "default.asp?sez=newsgroup"
%>
Originariamente inviato da darlette
ma nella pag mailing le cose non vanno.
Vuol dire tutto ma anche niente... errori?
Permessi di invio
Rispondi quotando