non so come ricevi i destinatari dell'e-mail ma così funziona
nel mio caso la prima e-mail viene inviato eseguendo un ciclo a più destinatari
la seconda ad uno solo
codice:
<%
mittente=Mail_cli
percorso="/mdb-database/web.mdb"
%>
<%
set rs=server.CreateObject("ADODB.recordset")
strSql="Select * FROM operatori"
set rs=cn.Execute(strSql)
DO while not rs.EOF
destinatario=rs("mail")
%>
<%oggetto="Segnalazione inviata dal cliente: "&Ragione%>
<%
'Impostiamo le nostre preferenze
'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")
'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto
'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.HTMLBody = strbody
'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()
'Inviamo la mail!
eMail.Send()
'Eliminiamo l'oggetto...
Set eMail = Nothing
rs.Movenext
loop
%>
<%
'Impostiamo le nostre preferenze
Dim Destinatario, Mittente, Oggetto
'Creiamo l'oggetto mail con CDOSYS
Dim reMail
Set reMail = CreateObject("CDO.Message")
'Definiamo i diversi attributi della nostra mail
reMail.From = Destinatario
reMail.To = mittente
reMail.Subject = " conferma ricevimento segnalazione "
'Se il testo è in Html useremo HTMLBody al posto di TextBody
reMail.HTMLBody = restrbody
'Stabiliamo il livello di importanza (1 o 2)
reMail.Fields("urn:schemas:httpmail:importance").Value = 2
reMail.Fields.Update()
'Inviamo la mail!
reMail.Send()
'Eliminiamo l'oggetto...
Set reMail = Nothing
%>