da CDONTS a CDOSYS

[zeweb]

mi aiutate a convertire questo script da CDONTS a CDOSYS ?

IF not RecSet.Eof then

' INDIRIZZO EMAIL NOSTRO
mittente = "mioaccount@mail.com"

Do until Recset.eof 

' PRELEVA L'EMAIL DELL'UTENTE DAL NOSTRO DATABASE
destinatario = RecSet("email")

' PRELEVA IL TESTO DEL MESSAGGIO DA INVIARE
testo = Request.Form("testo")

' PRELEVA L'OGGETTO DEL MESSAGGIO DA INVIARE
oggetto = Request.Form("oggetto")

' INVIA IL MESSAGGIO
Set email = CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = destinatario
email.Subject =  oggetto

' FORMATO EMAIL
email.BodyFormat = Request.Form("formato")
email.MailFormat = Request.Form("formato")


email.Body = testo

' INVIA L'EMAIL E..
email.Send

Set email = nothing

Grazie!

[Roby_72]

http://www.weppos.com/asp/script/categoria_email.asp

Roby

[zeweb]

Si avevo già letto ma non mi funziona mi chiede almeno un mittente ma per delle newslettere sarà solo uno il mittente...e impostato così non va!

[CODE]

<%
' LEGGE QUELLO CHE DEVE FARE
operazione = Request.QueryString("tipo")

' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/concorso.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

' OPERAZIONE = INVIA IL MESSAGGIO DI NEWSLETTER
IF operazione = "invia" then

' VERIFICA CHE I CAMPI SIANO STATI COMPILATI
IF Request("oggetto") <> "" and Request("testo") <> "" then

' APRE LA CONNESSIONE AL DATABASE E PRELEVA LE EMAIL DELLA NEWSLETTER

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM newsletter"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

IF not RecSet.Eof then

Do until Recset.eof

' Dichiara l'oggetto email e la configurazione
Dim objMail, objConfig

' Dimensiona l'oggetto email
Set objMail = Server.createObject("CDO.Message")

' ====================================
'Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' ====================================

' Assegna all'oggetto le proprietà necessarie

' Mittente dell'email (indirizzo)
objMail.From = "info@xxx.it"

' Destinatario dell'email (indirizzo)
objMail.To = Request.Form("email")

' Cc e Bcc (opzionale)
'objMail.Cc = "altroindirizzo@dominio.com; ancora@dominio.com"
'objMail.Bcc = "altroindirizzo@dominio.com; ancora@dominio.com"

' Oggetto dell'email
objMail.Subject = Request.Form("oggetto")

' Valore di priorità
objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.update()

' Allegare un file
'objMail.AddAttachment("d:\inetpub\webs\tuodominio com\file.zip")

' Corpo del messaggio
objMail.TextBody = Request.Form("testo") ' Formato Testo
objMail.HTMLBody = Request.Form("testo") ' Formato HTML

' Invia l'email
objMail.Send()

' Distruggi l'oggetto
Set objMail = Nothing

' PASSA AVANTI...
RecSet.Movenext
loop

End If

RecSet.Close
Conn.close
Set RecSet = Nothing
Set Conn = Nothing

' VISUALIZZA UN MESSAGGIO DI CONFERMA:
%>
[(CODE]