Invio email sotto forma di tabella [CDOSYS]

[Enrique_Rojas]

Hola a todos!!! Como estan???

Dunque sono alle prese con la personalizzazione di un codice asp per l'invio di email utilizzando il componente di win2003 cioè CDOSYS.

Vorrei che il contenuto delle emails venisse racchiuso all'interno di una tabella, ma non ci riesco perchè l'email arriva senza i dati inseriti nel form, cioè come una tabella ma vuota.

Ecco il codice:

<%

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

invioA =  "email@aruba.it"
invioDa =  "email@aruba.it"

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
	
corpoMessaggio = corpoMessaggio & "<table border=5 width=100% cellpadding=0 cellspacing=0>"
corpoMessaggio = corpoMessaggio & "<td width=100% height=600 valign=top>" 
corpoMessaggio = corpoMessaggio & "<table border=1 width=100% cellpadding=0 cellspacing=0>"

' rilevo i campi del form

FOR numeroCampi = 2 TO (Request.Form.Count() - 15) step 6

IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & "<tr>"
corpoMessaggio = corpoMessaggio & "<td width=10% align=left> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+1)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=52% align=left> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+2)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=15% align=center><font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+5)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=7% align=right> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+0)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=8% align=right> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+3)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=8% align=right> <font face=Verdana size=1>" & Trim(Request.Form(numeroCampi+4)) & "</font></td>" 
corpoMessaggio = corpoMessaggio & "</tr>"
END IF
NEXT

corpoMessaggio = corpoMessaggio & "</table>"
corpoMessaggio = corpoMessaggio & "</td>"
corpoMessaggio = corpoMessaggio & "</table>"

' 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
   .HtmlBody = corpoMessaggio
   .Send
End With

%>

[Roby_72]

Questo cosa ti stampa???

Trim(Request.Form(numeroCampi+1))

Inoltre l'HTML scrivilo correttamente:

corpoMessaggio = corpoMessaggio & "<td width=""10%"" align=""left""> <font face=""Verdana"" size=""1"">" & Trim(Request.Form(numeroCampi+1)) & "</font></td>"

Roby

[Enrique_Rojas]

corpoMessaggio = corpoMessaggio & "<table border=""5"" width=""100%"" cellpadding=""0"" cellspacing=""0"">"
corpoMessaggio = corpoMessaggio & "<td width=""100%"" height=""600"" valign=""top"">" 
corpoMessaggio = corpoMessaggio & "<table border=""1"" width=""100%"" cellpadding=""0"" cellspacing=""0"">"

FOR numeroCampi = 2 TO (Request.Form.Count() - 15) step 6

IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & "<tr>"
corpoMessaggio = corpoMessaggio & "<td width=""10%"" align=""left""> <font face=Verdana size=""1"">" & Trim(Request.Form(numeroCampi+1)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=""52%"" align=""left""> <font face=Verdana size=""1"">" & Trim(Request.Form(numeroCampi+2)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=""15%"" align=""center""><font face=Verdana size=""1"">" & Trim(Request.Form(numeroCampi+5)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=""7%"" align=""right""> <font face=Verdana size=""1"">" & Trim(Request.Form(numeroCampi+0)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=""8%"" align=""right""> <font face=Verdana size=""1"">" & Trim(Request.Form(numeroCampi+3)) & "</font></td>"
corpoMessaggio = corpoMessaggio & "<td width=""8%"" align=""right""> <font face=Verdana size=""1"">" & Trim(Request.Form(numeroCampi+4)) & "</font></td>" 
corpoMessaggio = corpoMessaggio & "</tr>"
END IF

x = Trim(Request.Form(numeroCampi+1))
response.write x :response.end
NEXT

corpoMessaggio = corpoMessaggio & "</table>"
corpoMessaggio = corpoMessaggio & "</td>"
corpoMessaggio = corpoMessaggio & "</table>"

response.write Trim(Request.Form(numeroCampi+1)):response.end

stampa il valore che arriva dal form, cioè 1 ...

[Enrique_Rojas]

... è un mistero per me... i valori dal forum giungono correttamente valorizzati allo script che genere l'email... e poi mi arriva solo la tabella, i bordi ma senza alcun contenuto...

[Roby_72]

La mail è in formato HTML?

Roby

[Enrique_Rojas]

Originariamente inviato da Roby_72
La mail è in formato HTML?

Roby

.HtmlBody = corpoMessaggio