salve

ho questo script






<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "info@elquartiere.com"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "info@elquartiere.com"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

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 ' 0
Flds.Update


With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = corpoMessaggio & vbCrLf & Request.Form("messaggio1")
.Send
End With
%>



<script>
document.location.replace('storicointerl.asp?cod=< %=Request.Querystring("cod")%>');
</script>


l'email che ricevero è questa


datainterlconf = on
codice = 213
data = 23/03/2011
username = 002
testointerl1 =
e



testointerl2 =
e










testointerl3 =
e









tutto funziona regolarmente

questo sistema come avete visto utilizza il sistema CODSYS di inviare una email.

Le email vengono inviate con un semplice messaggio di testo .

Per formattarle e quindi inserire una carta intestata esempio :


LOGO IN ALTO


E senza le etichette dei campi cioè

PAOLO ROSSI SCRIVE ALLE 19.00 IL 21.03.11

EGR.SIG...................E VIA DICENDO





Come puo essere formattato il ttutto qualche aiuto ....


Saluti.