ho provato e mi funziona!!!

ho scoperto cheil mio problema me lo da il ciclo

cioe quando ciclo per inviare n email e ripeto l'istruzione

CreateMHTMLBody

da errore..

do while not RS_news.eof
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion")= True
Flds.Update
With iMsg
Set .Configuration = iConf
.CreateMHTMLBody "http://www.nomesito.it/newsletter2.htm"
.To = RS_news("email")
.From = "info@nomesito.it"
.Subject = "prova"
.Send
End With
set iMsg = nothing
set iConf = nothing
Rs_news.movenext
loop
chiudo la connessione ogni volta ma mi da quell'errore

CDO.Message.1 error '8004011b'

Unknown Error

maltra ha scritto:

Ecco un esempio che funziona perfettamente,ovviamente con gli accorgimenti e gli adattamenti del caso:

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%language=vbscript %>

poi

Dim rs, mail, subject, message,html

   invioDa =  "@"
   subject = Request.Form("soggetto")
   html = Request.Form("html")


   DIM iMsg, Flds, iConf


set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg

Set .Configuration = iConf


.CreateMHTMLBody "http://www.miosito.it/"& HTML &""

'mettere la propria mail
.To = rs("email")

'mettere una mail valida come mittente
.From = "@"
.Subject = subject

.Send
End With
  

---

Modificato da maltra il 10 ottobre 2008 12.07 -

funziona ok ma se volessi inviare tante email in un sol colpo ...utilizzando un ciclo non funziona....

maltra ha scritto:

Guarda che se vuoi inviare piu' email, come nel caso di una news letter puoi; fai un ciclo in base agli utenti che hai e gli passi ogni volta la mail dell'utente.
Ciao

lo so maltra solo che quando ciclo da errore nel recorset...cmq adesso riprovo.