Inviare codice HTML con CDOSYS......

[mpr79]

Salve a tutti devo inviare questo codice html con un form .asp e cdosys, potete aiutarmi?


<%@LANGUAGE="VBSCRIPT"%>
<% if (cStr(Request("Submit")) <> "") Then
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "Web_site_Gasperini_Gomme"
MiaMail.To = "marcopaolo79@tiscali.it"
MiaMail.Subject = "Richiesta informazioni"


MiaMail.HTMLBody = "<table width="510" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000033">
<tr>
<td width="200" height="30" bgcolor="#AB0916" class="unnamed1"><div align="center" class="Stile1">Articolo</div></td>
<td width="50" bgcolor="#AB0916" class="unnamed1"><div align="center" class="Stile1">Q.t&agrave;</div></td>
<td width="130" bgcolor="#AB0916" class="unnamed1"><div align="center" class="Stile1">Prezzo Unitario </div></td>
<td width="130" bgcolor="#AB0916" class="unnamed1"><div align="center" class="Stile1">Prezzo Totale </div></td>
</tr>
<tr>
<td height="50" bgcolor="#d8dce7"><table width="185" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="piccolo"></td>
</tr>
</table>
</td>
<td bgcolor="#d8dce7"><div align="center" class="piccolo"> </div>
</td>
<td bgcolor="#d8dce7"><table width="115" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="piccolo"></td>
</tr>
</table>
</td>
<td bgcolor="#d8dce7"><table width="115" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="piccolo"></td>
</tr>
</table>
</td>
</tr>
</table>"


MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
Response.Redirect("inviata.html")
End If
%>


Dove stanno gli errori??
Grazie

[santino83_11_04]

devi fare:

MiaMail.HTMLBody = "<table cellpadding=""0"" cellspacing=""0""....etc etc ... "

[mpr79]

cioè dare ogni volta che trovo un " mettercene 2 ?

[santino83_11_04]

Originariamente inviato da mpr79
cioè dare ogni volta che trovo un " mettercene 2 ?

si...

[mpr79]

Ho fatto così per non incasinarmi:

<%@LANGUAGE="VBSCRIPT"%>
<% if (cStr(Request("Submit")) <> "") Then

Dim TestoMail
TestoMail = TestoMail & "<table width=""510"" border=""1"" align=""center"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000033"">"
TestoMail = TestoMail & "<tr>"
TestoMail = TestoMail & "<td width=""200"" height=""30"" bgcolor=""#AB0916"" class=""unnamed1""><div align=""center"" class=""Stile1"">Articolo</div></td>"
TestoMail = TestoMail & "<td width=""50"" bgcolor=""#AB0916"" class=""unnamed1""><div align=""center"" class=""Stile1"">Q.t&agrave;</div></td>"
TestoMail = TestoMail & "<td width=""130"" bgcolor=""#AB0916"" class=""unnamed1""><div align=""center"" class=""Stile1"">Prezzo Unitario </div></td>"
TestoMail = TestoMail & "<td width=""130"" bgcolor=""#AB0916"" class=""unnamed1""><div align=""center"" class=""Stile1"">Prezzo Totale </div></td>"
TestoMail = TestoMail & "</tr>"
TestoMail = TestoMail & "<tr>"
TestoMail = TestoMail & "<td height=""50"" bgcolor=""#d8dce7""><table width=""185"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
TestoMail = TestoMail & "<tr>"
TestoMail = TestoMail & "<td class=""piccolo""></td>"
TestoMail = TestoMail & "</tr>"
TestoMail = TestoMail & "</table>"
TestoMail = TestoMail & "</td>"
TestoMail = TestoMail & "<td bgcolor=""#d8dce7""><div align=""center"" class=""piccolo""> </div>"
TestoMail = TestoMail & "</td>"
TestoMail = TestoMail & "<td bgcolor=""#d8dce7""><table width=""115"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
TestoMail = TestoMail & "<tr>"
TestoMail = TestoMail & "<td class=""piccolo""></td>"
TestoMail = TestoMail & "</tr>"
TestoMail = TestoMail & "</table>"
TestoMail = TestoMail & "</td>"
TestoMail = TestoMail & "<td bgcolor=""#d8dce7""><table width=""115"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
TestoMail = TestoMail & "<tr>"
TestoMail = TestoMail & " <td class=""piccolo""></td>"
TestoMail = TestoMail & "</tr>"
TestoMail = TestoMail & "</table>"
TestoMail = TestoMail & "</td>"
TestoMail = TestoMail & "</tr>"
TestoMail = TestoMail & "</table>"

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "Web_site"
MiaMail.To = "indirizzo@email.it"
MiaMail.Subject = "Richiesta informazioni"
MiaMail.HTMLBody = TestoMail
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
Response.Redirect("inviata.html")
End If
%>

Ma non mi arriva nulla.......... secondo te dove sbaglio?

[santino83_11_04]

ma da qualche errore la mail all'invio?

[mpr79]

Niente nessun errore, mi va alla pagina del redirect cioè "inviata.html"

ma non mi arriva nulla in posta..........

[djmax73]

io ho fatto così :

dim objMail
dim objConfig

Set objMail = createObject("CDO.Message") ' Crea l'oggetto email
Set objConfig = Server.createObject ("CDO.Configuration") ' Dimensiona l'oggetto configurazione
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita (con "localhost" usa il predefinito di IIS) '
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
objMail.From="info@xxxxxxxxxxx.it"
objMail.Subject= "Oggetto della Mail"
objMail.bcc = "destinatario@zzzzzzzz.it"

' IMPOSTA ALTA PRIORITA' (! ROSSO)
objMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"
objMail.Fields.Update

objMail.HTMLBody=CorpoMessaggio

' ALLEGATO
objMail.AddAttachment server.mappath("\nomesito\cartellaallegati\" & nomeallegato.xxx")

objMail.Send

Set objMail = nothing
Set objConfig = nothing

però perchè IIS invii la mail col SMTP Virtuale bisogna impostare questi parametri dalla videata "Accesso"
(Click destro su Server Virtuale SMTP Predefinito per accedere alle proprietà)



impostare 127.0.0.1


impostare 127.0.0.1


a me così il CDOSYS funziona, sia in locale con Win XP che in remoto su Win 2K3 Servera me così il CDOSYS funziona, sia in locale con Win XP che in remoto su Win 2K3 Server

[mpr79]

Adesso mi funziona ho fatto così per esempio:
....
TestoMail = TestoMail & "<td height=50 bgcolor=#d8dce7><table width=185 border=0 align=center cellpadding=0 cellspacing=0>"
TestoMail = TestoMail & "<tr>"
TestoMail = TestoMail & "<td class=piccolo></td>"
...

Un'altra domanda per voi:
siccome in questa tabella ci sono dei valori ASP come li metto??
per esempio nell'ultima riga sopra dovrebbe esserci il valorie sotto al posto del
...
TestoMail = TestoMail & "<td class=piccolo><%=(UltraCart.GetColumnValue("Name",UltraCart_i)) %> </td>"
...

Ovviamente così è sbagliato come dovrei fare??
GRazie

[djmax73]

TestoMail = TestoMail & "<td class=piccolo>" & UltraCart.GetColumnValue("Name",UltraCart_i) & "</td>"