Salve, vorrei utilizzare questo script per l'invio di messaggi in html agli iscritti della mia mailing list (prima utilizzavo cdonts e ora che devo necessariamente passare a cdosys non so metterci mano...).
Lo script è questo:
<%@ Language=VBScript %>
<%
Dim iMsg
Dim iConf
Dim Flds
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
'*===== modifica CreateMHTMLBody From To e subject
'cambiare la pagina dopo aver provato a riceverla, vedasi codice utilizzabile nella pagina stessa
'per essere sicuri di non inviare codice non leggibile dal client di posta
.CreateMHTMLBody "http://www.miosito.it/2005/newsletter/news050314.htm"
'mettere l'indirizzo del destinatario
.To = ?????????????????
'mettere una mail valida come mittente
.From = "info@mio.it"
.Subject = "prova"
.Send
End With
%>
<title>prova</title>
Newsletter inviata. Sono state inviate <%=numero%> e-mail!
Non sono in grado di collegare il .to all'elenco chiamato "mailinglist" della tabella "mio.mdb".
C'è qualcuno che mi può dare una mano? Grazie!!!!!

Rispondi quotando