Invio Mail HTML

[manu.aretuseo]

Buongiorno a tutti.
Ho creato una mailinglist, gestita tramite CMS, che permette all'utente Amministratore di inviare delle mail agli altri utenti registrati.
Il corpo della mail è inserito dall'amministratore tramite FCKEditor e viene utilizzata la funzione sendMail_CDOSYS (ovviamente, direte voi...).

Ebbene, vorrei che il testo inserito venisse collocato all'interno di una pagina html. Questa pagina avrà un layout simile a quello della Home page!
Sostanzialmente, vorrei che la mail che arrivi agli utenti, replicasse la grafica del sito.
Ovviamente questa cosa è fattibile, ma non come fare.
Qualcuno mi saprebbe indirizzare verso la soluzione?

[Mems]

Il testo della mailing list finisce prima in un db?

[manu.aretuseo]

No, non memorizzo nulla nel DB, il corpo della mail viene direttamente processato...
Diciamo che al momento va bene non porsi il problema.

Cmq so per certo che mi verrà richiesto di memorizzare il corpo delle mail inviate in un db!
Spero che tralle due soluzioni non cambi molta roba.

Cmq al momento non uso DB...

[manu.aretuseo]

Tramite fckeditor, in realtà, posso migliorare l'aspetto grafico della mail...
Però non è sufficiente...
Vorrei proprio usare del codice HTML esterno che replichi una grafica per poi copiare il corpo gestito con FCKEditor...
Help

[Mems]

con CDOSYS puoi creare una mail partendo da una pagina web completa di immagini richiamabile via http.
mail.createHTMLBody "http://www.miosito.it/pagina.asp?id=" & variabileID

[manu.aretuseo]

Ecco, scusa la mia ignoranza...
Ecco la funzione

Function sendMail_CDONTS (corpo, destinatario, mittente, oggetto)
	Dim objOntMail
	Set objOntMail = Server.CreateObject("CDONTS.Newmail")
	objOntMail.From = mittente
	objOntMail.To = destinatario
	objOntMail.Subject = oggetto
	objOntMail.MailFormat = 0
	objOntMail.BodyFormat = 0
	objOntMail.Body = corpo
	objOntMail.Send
	Set objOntMail = Nothing
End Function

E questo è il codice che ne richiama l'utilizzo

if(InStr(objUtentiList("EMail"),"@")>0)Then
  sendMail_CDOSYS "Mittente", trim(objUtentiList("EMail")), 
  trim(request("Oggetto")), strCorpo
end if

L'istruzione che tu mi hai suggerito, dove va collocata?

[Mems]

Te usi CDONTS.
Il mio esempio si basa su CDOSYS.

[manu.aretuseo]

Scusa ho copiato la procedura sbagliata

Function sendMail_CDOSYS (mittente, destinatario, oggetto, corpo)

	Dim iMsg, Flds, iConf
	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
	Flds.Update

	With iMsg    
		 Set .Configuration = iConf
		 .To =  destinatario
		 .From = mittente	
		 .Subject = oggetto
		 .HtmlBody = corpo
		 .Send
	End With
End Function

Vorrei chiederti una cosa...
Ma nel file che dovrebbe replicare la grafica, il corpo come lo rappresento?
Inserita la pagina html tra i parametri dell'invio della mail, come associo il corpo?
Tramite request?

[manu.aretuseo]

Scusa se ti faccio perdere tempo...
Grazie per l'aiuto

[Mems]

Devi avere una pagina nel tuo sito con la grafica così come dovrà apparire nella email.
A questa pagina passi l'ID del testo da caricare e quindi al posto di
.HtmlBody = corpo
metti
.createHTMLBody "http://www.tuosito.it/paginaemail.asp?id=" & valoreID