Newsgroup: it.comp.www.asp
Titolo: come si fa ad inviare più e-mail ?

fin'ora non avevo avuto mai la necessità di inviare  più e-mail 
contemporeanamente.
Non vorrei utilizzare il BCC solamente per il fatto che a tutti i 
destinatari vengono visualizzati tutti gli inderizzi e-mail ....
ho provato con
<%
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="mittente"
objMail.To="destinatario1"
objMail.Subject="OGGETTO_DELLA_MAIL"
objMail.Body="TESTO_DEL_MESSAGGIO 1"
objMail.importance=0
objMail.Send
objMail.To="destinatario2"    <- mi segnala l'errore !!!!
objMail.Send                        <- mi segnala l'errore !!!!
Set objMail = nothing
%>
1- supponiamo che volessi gestire un mailing con diverse centinaia di e-mail 
quale sarebbe il modo più corretto?
    (se ad esempio tutti gli indirizzi fossero prelevati da db)
2- come posso controllare che effettivamente le e-mail sono state inviate 
dal server ?
vi ringrazio anticipatamente
saluti rob 

 saluti rob
Ciao
-- 
AZ [Microsoft - .NET MVP]
Mia Home page: 
http://ciclismo.sitiasp.it
Asp.Net community: 
http://www.aspitalia.com
Il mio blog: 
http://blogs.aspitalia.com/az
 

 destinatari vengono visualizzati tutti gli inderizzi e-mail ....
vediamo se riesco a rispondermi da solo ...
con il BCC: non vengono visualizzati gli altri indirizzi al contrario del CC
per la notifica perchè non funziona
objNewMail.Value("Disposition-Notification-To") = 
miaE...@pippo.com
rimango sempre in attesa di Vs Conferme...
saluti rob 

 %>


Fai semplicemente un ciclo:
<%
SQL = "SELECT email FROM tabella"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 3, 3
do while not rs.EOF
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="mittente"
objMail.To=rs.fields("email")
objMail.Subject="OGGETTO_DELLA_MAIL"
objMail.Body="TESTO_DEL_MESSAGGIO 1"
objMail.importance=0
objMail.Send
objMail.To="destinatario2" <- mi segnala l'errore !!!!
objMail.Send <- mi segnala l'errore !!!!
Set objMail = nothing
rs.MoveNext
loop
%>
-- 
--------------------------------------
Spaghetto
Official Web Site
http://www23.brinkster.com/merlidaniele/
http://appartamenticanazei.supereva.it/
--------------------------------------
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 saluti rob 
Bye


fai un ciclo while o for fino a quando non hai usato tutti gli indirizzi 
mail, e all'interno del ciclo invii la mail.
Ad esempio
while ( indirizzomail <> NULL ) {
    creamail con cdont
    mailto = indirizzomail
    inviamail
    cancella oggetto mail
}
ciao
-- 
-------------------------------------
Moreno Riccardi
-------------------------------------

 %>


Fai semplicemente un ciclo:
<%
SQL = "SELECT email FROM tabella"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 3, 3
do while not rs.EOF
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="mittente"
objMail.To=rs.fields("email")
objMail.Subject="OGGETTO_DELLA_MAIL"
objMail.Body="TESTO_DEL_MESSAGGIO 1"
objMail.importance=0
objMail.Send
objMail.To="destinatario2" <- mi segnala l'errore !!!!
objMail.Send <- mi segnala l'errore !!!!
Set objMail = nothing


sei stato chiarissimo !!!!
grazie e a buon rendere ..
saluti Rob 

grazie ma con il controllo non ho trovato nulla
ad eccezione di :
objNewMail.Value ("Disposition-Notification-To") = "
p...@ppp.com
"
che non mi funziona
grazie di nuovo salutissimi rob 

 rs.Open SQL, conn, 3, 3
a cosa serve quel 3,3
salutissimi Rob 

 
http://www.aspitalia.com/liste/usag/script.aspx?ID=399
guardo subito questo link ... :->
saluti rob

 guardo subito questo link ... :->
 :)


io ho provato a fare cosi' "paginando" l'invio
<% Server.ScriptTimeout = 360 %>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("newsletter.mdb")
Conn.Open strConn
%>
<%
 Set rs = Server.CreateObject("ADODB.Recordset")
 str_query = "SELECT * from qyutenti"
%>
<% 
Session("messaggio") = "MESSAGGIO"
rs.Open str_query, conn, 1, 3
' paginazione
mypage = Request("pg")
if mypage="" then mypage = 1
strPageSize = 5
rs.cachesize = strPageSize
rs.pagesize = strPageSize
rs.absolutepage = mypage
maxpages = CInt(rs.pagecount)
i = 0
do while not rs.EOF
  danome = "XYZ dim pagina 100 per 1000 email refresh 5"
  damail = "<webmaster@>"
  dachi = chr(34) & danome & chr(34) & damail
  oggetto= "nessun oggetto"
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From = dachi
  objMail.Body = Session("messaggio")
  objMail.To = chr(34) & rs("nome") & chr(34) &"<"& rs("email")&">"
  objMail.Subject = oggetto
  objMail.Send
  response.write "spedita: " & rs("nome") & "<br>"
  set objMail = nothing
  i = i + 1
  if i = strPageSize then Exit Do
  rs.MoveNext
loop
rs.close
Set rs = Nothing
if Cint(mypage)<Cint(maxpages) then
%>
<meta http-equiv="refresh" content="5;URL='<%  response.write
"invia.asp?pg=" & CINT(mypage)+1     %>'">
<table width="100" border="2" cellspacing="0" cellpadding="0"
bordercolor="#0000FF">
  <tr>
    <td bordercolor="#0000FF"><table width="<%=CINT(mypage)*10%>"
border="0" cellspacing="0" cellpadding="0">
  <tr>
          <td bgcolor="#0000FF">&nbsp;</td>
  </tr>
</table>
</td>
  </tr>
</table>
<%end if
Response.write ("<hr>Caricate " & maxpages & " pagine")
%>