HTML body mail

[schizzorl86]

ciao ho un problema, ho bisogno che nel corpo della mail che provo a inviare con CDOSYS ci sia il codice seguente.
Di solito ho corpi più piccoli da inviare e quindi inserisco su una unica riga il codice così objMail.HTMLBody = "corpomail"

ma ora...

<TABLE border=0 cellspacing=0 cellpadding=3>
<TR>
<TH><font size=-1>Codice</font></TH>
<TH><font size=-1>Descrizione</font></TH>
<TH><font size=-1>Importo</font></TH>
<TH><font size=-1>Q.t&agrave;</font></TH>
<TH><font size=-1>Totale</font></TH>
</TR>
<TR>
<TD colspan=5><HR size=1 width=100%></TD>
</TR>
<%Importo=0
for i = 1 to QuantiArticoliInScontrino
Importo = Importo + (ScontrinoQuantitativoArticolo(i)*ScontrinoPrezzoA rticolo(i))%>
<TR>
<TD><font size=-1><%=ScontrinoCodiceArticolo(i)%></font></TD>
<TD><font size=-1><%=ScontrinoDenominazioneArticolo(i)%></font></TD>
<TD align=right><font size=-1><%=FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1)%></font></TD>
<TD align=right><font size=-1><%=ScontrinoQuantitativoArticolo(i)%></font></TD>
<TD align=right><font size=-1><%=FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1)%></font></TD>
</TR>
<%next%>
<TR>
<TD colspan=5><HR size=1 width=100%></TD>
</TR>
<TR>
<TD colspan=4 align=right>Spese di spedizione &euro;</TD>
<TD align=right><%=FormatNumber(SpeseDiSpedizione, 2, -1, 0, -1)%></TD>
</TR>
<TR>
<TD colspan=4 align=right>Totale &euro;</TD>
<TD align=right><%=FormatNumber((SpeseDiSpedizione + Importo), 2, -1, 0, -1)%></TD>
</TR>
</TABLE>

Consigli.... Grazie a tutti ve ne sarò molto grato...

[Umanista]

Dim testoMail
testoMail = testoMail & "<TABLE border=0 cellspacing=0 cellpadding=3>"
testoMail = testoMail & "<TR>"
testoMail = testoMail & "<TH><font size=-1>Codice</font></TH>"
ecc. ecc.

alla fine ti basterà usare la variabile testoMail

objMail.HTMLBody = testoMail

[schizzorl86]

grazie mille ciao

[schizzorl86]

AH un'ultima cosa, come mi comporto qua???

for i = 1 to QuantiArticoliInScontrino
Importo = Importo + (ScontrinoQuantitativoArticolo(i)*Scontr
inoPrezzoArticolo(i))%>

se faccio

testomail = testomail for i 0 1 to ecc..

mi restituisce chiaramente errore...

Grazie ancora

[schizzorl86]

Risolto

scusate ma a una certa ora....