Cdosys
Grazie per la risposta
In efetti pur avendo postato stavo smanettando per trovare anche da
solo la soluzione, anche perchè devo usare CDOSYS (server Aruba)
Le parentesi nell'istruzione richiesta.Open("GET", "http://www.indirizzo.it/pagina.htm", False)
generano un errore in quanto viene interpretata come sub routine
La soluzione che alla fine ho trovato, anche considerando come detto l'utilizzo di CDOSYS è la seguente:
Set richiesta= Server.CreateObject("Msxml2.XMLHTTP.4.0")
richiesta.Open "GET", paginaDaInviare, False
richiesta.Send
' Spedisco la news
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = email
.From = "
[email protected]"
.Sender = "
[email protected]"
.Subject = oggetto
.HtmlBody = richiesta.responseText
.Send
End With
Set richiesta= Nothing
chiaramente le variabili paginaDaInviare, email e oggetto vengono generate prima
Ho provato e sembra che tutto funzioni bene.
Come avrai capito però non ho padronanza degli script, provo, riprovo e chiedo, poi se riesco modifico
Ho però sempre il dubbio di "lasciare qualcosa aperto" il classico "bug"
Ad esempio nelle istruzioni fornite da Aruba non ho trovato la chiusura del Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
mentre ho notato che nello script da te elaborato hai chiuso
Set email = Nothing
E' necessario farlo anche con CDOSYS ?
Puoi per cortesia controllarmi se è tutto OK ?
Grazie ancora per la pazienza.
Vorrà dire che ti offrirò da bere
:beer:
ecco fatto.
