mailing listo con ASPEMAIL

[luke73]

Scusate, sicuramente il post già esiste ma, come ben saprete, la funzione ricerca è disabilitata.

Vi prego di verificare se il codice è corretto o no (i punti di dubbio sono evidenziati con numeri del tipo (1)

_________
Ho un form per inviare un testo ad una mailing list (il file che processa è invia.asp)
La textarea per inviare il testo ha assegnato name="corpo"

Questo è parte del file invia.asp

... omesso ....

sql = "SELECT cognome, nome, email FROM clienti"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.movefirst
set email = server.createObject("Persits.MailSender")
email.Host="mbox.thunder.it" (1)qui devo inserire l'smtp giusto? Quindi se ho ben capito la mailing NON funziona se la invio da un pc collegato ad internet non da quel fornitore di e-mail.

email.From="....omesso..." (2) qui inserisco ad esempio info@sito.it ok?
email.FromName="NEWS"
email.Subject="NEWS del giorno"
email.Body= corpo_mail (3) Riporto quanto ricevuto da request.form
email.IsHtml=false
email.Priority=1
do while not(rs.eof)
email.AddAddress rs("email")', rs("cognome") &" "& rs("nome") (4) il problema sorge qui. emai.AddAddress deve essere seguito da un = o no?
E' corretto inserire il quel punto l'rs("email")? Lo devo mettere tra " "?

rs.movenext
loop
email.send()
set email = nothing
......omesso.....

Ciao & grazie

[Fichico]

ma non era molto meno complicato inserire in una variabile unica tutti i destinatari e magari mandarla in bcc così nessuno vede a chi è stata inviata?

fai un ciclofino a eof con
bcc = bcc & rs("mail")

[luke73]

Grazie
Ma poi su addaddress devo inserire qualche cosa?

[thomasbandini]

Io ho usato questo codice:

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

'cambia questo indirizzo con un valido indirizzo SMTP del tipo mail.nomediminio o mette l'indirizzo IP
'Mailer.RemoteHost = "mail.xxx.it"
Mailer.RemoteHost = "xxx.xxx.xxx.xxx"
Mailer.FromName = "xxxx"
Mailer.FromAddress = "info@xxxx.it"


set rss=server.CreateObject("ADODB.Recordset")
sql="select xxxx from xxxxx where xxxx"
rss.open sql,conn,3,1
if rss.recordcount>0 then
while not rss.eof

Mailer.AddBCC "xxxxx", rss("in_email")

rss.movenext
wend
end if

rss.close
Set rss = Nothing

Mailer.ConfirmRead = true
Mailer.Subject = k_titolo
Mailer.ContentType = "text/html"
Mailer.BodyText = messaggio



if not Mailer.SendMail then
response.write "Errore"
end if

bye bye

[luke73]

... faccio sapere.
Grazie 1000

Una domanda..
per vedere se funziona devo collegarmi da un computer il cui accesso ad internet avviene tramite il fornitore dell'SMTP?

Ex, abitualmente mi collego con un provider chiamato ad es. PIPPOBAUDO che mi fornisce anche servizi di e-mail (mia_mail@pippobaudo.it). POP3 e SMPT mail.pippobaudo.it

Per poter far funzionare una mailing list del genere devo provarla da l computer che accede a pippobaudo.it oppure posso farlo da qualsiasi altro pc?

Spero d essermi spiegato.

Ciao!

[Fichico]

per farlo dovete avere installato un server SMTP (che è abbinato a un server IIS)

ma non potete usare i classici componenti cdos o cdosys scusate?

[luke73]

giustamente, è meglio evitare che si vedano tutti gli altri indirizzi .....
questo codice potrebbe andare bene?

.................
email.FromAddress= "mia@mail.it" -> mi arriva una copia del msg
do while not(rs.eof)
email.AddBCC rs("email")
rs.movenext
loop
'Invio della mail
email.send()
...................

?