problema newsletter cdonts

[piccolobill]

l'errore è questo

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'mail'

/admin/nla_invia.asp, line 19


il codice

oggetto = request.form("oggetto")
msg = request.form("msg")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("/mdb-database/pb.mdb")
 
sql = "SELECT * FROM nla WHERE email "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
email=""
do while NOT (rs.EOF) 
             email=(rs("email") + " ;")
             rs.MoveNext()
loop      

   		mail = CreateObject("CDONTS.Newmail")
   
       	mail.To = ""
		mail.bcc = email
       	mail.From = "newsletter@piccolobill.com"
       	mail.Subject = oggetto
       	mail.Body = msg
       
       	mail.Send

Response.Write("Newsletter inviata con successo.")

rs.Close
set rs = Nothing
conn.close
set conn = nothing
("oggetto")

[floyd46]

dim mail
Setmail=CreateObject("CDONTS.Newmail")
mail.To = ""
mail.bcc = email
mail.From = "newsletter@piccolobill.com"
mail.Subject = oggetto
mail.Body = msg
mail.Send
mail=Nothing
Response.Write("Newsletter inviata con successo.")

prova così.

[floyd46]

scusami: set mail devi scriverlo staccato.

[fulbox]

Originariamente inviato da floyd46
dim mail
Setmail=CreateObject("CDONTS.Newmail")
mail.To = ""
mail.bcc = email
mail.From = "newsletter@piccolobill.com"
mail.Subject = oggetto
mail.Body = msg
mail.Send
mail=Nothing
Response.Write("Newsletter inviata con successo.")

prova così.

Set mail=CreateObject("CDONTS.Newmail")
mail.To = ""
mail.bcc = email
mail.From = "newsletter@piccolobill.com"
mail.Subject = oggetto
mail.Body = msg
mail.Send()
Set mail=Nothing
Response.Write("Newsletter inviata con successo.")

Credo sia più corretta

[piccolobill]

adesso non da errore, ma non mi arriva niente. premetto che uso cdonts per inviare moduli dal web.

[fulbox]

forse non hai installato la dll di cdont

[piccolobill]

hai letto sopra? funziona con altri moduli sullo stesso dominio.

[fulbox]

mail.To = "" cosa deve ricercare??? penso un indirizzo e-mail a cui inviarla o no???? allora fai un request.form del campo email a cui inviare il modulo e lo richiami in
mail.To = "indirizzo email a cui inviare il modulo"

[piccolobill]

invio tramite bcc

[fulbox]

Perchè complicarti la vita togli bcc e invia tramite mail.to, anche perchè onestamente non so se cdonts supporta tale funzione