mail formato html con img incorporate

[japan]

ciao a tutti, ho letto tanti post ma ho le idee confuse..
Avrei bisogno di realizzare una mail formattata in html con un risultato tipo:

loghino azienda

Titolo1
immagine1
descrizione1

Titolo2
immagine2
descrizione2

etc

ma con esempio cdosys come posso tramite form inviare una mail corredata da immagini.
Inoltre devo inserire più immagini e queste devono "ridimensionarsi" in un formato es 200pixel x150 px.....

immagino serva upload e un controllo sull'immagine ma non so bene la procedura..

Grazie a tutti
Japan

[agenti]

cerca nel forum "metodo MHTML"

[japan]

ciao, ho trovato questo codice:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3schools.com/asp/"
myMail.Send
set myMail=nothing
%>

ma il mio problema è che in pratica non lo devo gestire io.
Devo fare in modo che una persona esterna possa inviare una specie di newsletter ma senza utilizzare un database, le deve inviare a poche persone e ogni tanto.
io sto crendo una pagina html con la grafica e le immagini. inoltre i testi e le immagini deve potersele cambiare da sola.

non so bene come procedere o bene come iniziare...
grazie

[japan]

Ho composto prendendo vari parti questa pagina asp di invio che recupera da un semplice form html i campi: mittente,destinatario,oggetto

Quando invio mi dice che è andato a buon fine ma non ricevo nulla nella posta...
ho dimenticato q.cosa nel codice??

<%
Dim myMail, iConf, Flds

'Crea l'oggetto email
Set myMail = CreateObject("CDO.Message")
'Crea l'oggetto configurazione
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
'mittente = "admin@dominio.it"
'destinatario = "destinatario@suodominio.it"
'oggetto = "Prova email"
'messaggio = "Invio con CDOSYS"

mittente= Trim(Request.Form("mittente"))
destinatario = Trim(Request.Form("destinatario"))
oggetto = Trim(Request.Form("oggetto"))

With myMail

'Assegnazione delle configurazioni
Set .Configuration = iConf

myMail.From = mittente
myMail.To = destinatario
myMail.Subject = oggetto
myMail.CreateMHTMLBody "http://www.pippo.it/newsletter.html"

'Formato testo (scegliere)
'.TextBody = messaggio

'Invio di una pagina web
'.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")

'Invia l'email
myMail.Send()

end with

set myMail = Nothing
set iConf = Nothing
set Flds = Nothing

%>


grazie japan