Newsgroup: it.comp.appl.access
Titolo: Mail - costruire body in html - record in form

Ciao sto cercando di inviare un messaggio di posta elettronica da
access che prende i record da una form. Ora vorrei costruire il corpo
del messaggio come tabella html che contenga i miei record. Ora
leggendo vari post ho visto che devo creare una stringa che contenga
tutto il codice html e poi html.body=stringa html. Io ho il codice
html preso da una mia pagina asp, ma come si costruisco la stringa in
HTML.
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>Dettaglio ordine</title>
</head>
<body bgcolor="#FFFFFF">
<p><b><font face="Verdana" size="2">Dettaglio ordine</font></b></p>
<table border="0" cellpadding="3" cellspacing="3" style="border-
collapse: collapse" width="100%" id="AutoNumber1">
  <tr bgcolor="#CCCCCC">
    <td width="3%" align="center"><font size="1" face="Verdana, Arial,
Helvetica, sans-serif">Idord</font></td>
    <td width="5%" align="center"><font size="1" face="Verdana, Arial,
Helvetica, sans-serif">dataord</font></td>
    <td width="11%" align="center"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif">RagioneSociale</font></td>
    <td width="10%" align="center">
    <font size="1" face="Verdana, Arial, Helvetica, sans-
serif">Provincia</font></td>
    <td width="6%" align="center"><font size="1" face="Verdana, Arial,
Helvetica, sans-serif">CodiceArt</font></td>
  </tr><%
Set CL=Server.CreateObject("ADODB.Recordset")
sqlString="SELECT ordini.ido, ordini.cancellato, ordini.note_agg,
ordini.modalitapag, ordini.costospedizione, ordini.costo_pagamento,
ordini.data_acquisto, ordini.totale_ordine, ordini.idcl,
ordini.richiesta_fat, cliente.*, buffercarrello.idc,
buffercarrello.idp, prodotti.codice_prodotto, buffercarrello.prezzop,
buffercarrello.quantita, ([buffercarrello].[quantita]*[buffercarrello].
[prezzop]) AS subtotaleriga FROM ((ordini LEFT JOIN buffercarrello ON
ordini.ido = buffercarrello.idordine) INNER JOIN cliente ON
ordini.idcl = cliente.idcl) LEFT JOIN prodotti ON buffercarrello.idp =
prodotti.idprodotto WHERE ordini.cancellato <>1"
CL.ActiveConnection=objConn
CL.Open sqlString
%>
<% while not CL.EOF %>
  <tr>
    <td width="3%" align="center"><font color="#750000" face="Verdana,
Arial, Helvetica, sans-serif" size="1"><%=CL.Fields("ido")%></font></
td>
    <td width="5%" align="center"><font color="#750000" face="Verdana,
Arial, Helvetica, sans-serif" size="1"><%=CL.Fields("data_acquisto")
%></font></td>
    <td width="11%" align="center"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif"><%=CL.fields("cognome_cliente")%></
font></td>
    <td width="10%" align="center">
  </tr><%CL.MoveNext
   wend %>
</table>
</body>
<%
CL.Close
Set CL=Nothing
objConn.Close
Set objConn=Nothing%>
</html>
io ho iniziato così
Dim rs As Recordset
' rs = sono le righe della mia maschera
Set rs = Me.Form.RecordsetClone
Dim myOlApp, myItem
'dichiaro variabili per OUTLOOK
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(0) ' 0 = olMailItem
myItem.To = ("
val...@difatta.it
") 'email destinatario
myItem.Attachments.Add "\\Vdf-server\doc_comuni\comuni\DATABASE
\title.jpg" 'allego immagine
myItem.Subject = "Ordine spedito"
'Costruisco Intestazione
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & ""content=""text/html; charset=iso-8859-1"">""
HTML = HTML & "<title>Dettaglio Ordine</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor="#FFFFFF">"
HTML = HTML & "<table border="0" cellpadding="3" cellspacing="3"
style="border-collapse: collapse" width="100%" id="AutoNumber1">"
HTML = HTML & "<tr bgcolor="#CCCCCC">"
HTML = HTML & "<td width="3%" align="center"><font size="1"
face="Verdana, Arial, Helvetica, sans-serif">Idord</font></td>"
HTML = HTML & "<td width="5%" align="center"><font size="1"
face="Verdana, Arial, Helvetica, sans-serif">dataord</font></td>"
HTML = HTML & "</tr>"
'costruisco corpo
do while Not rs.EOF
HTML = HTML & "<tr>"
HTML = HTML & "<td width="3%" align="center"><font color="#750000"
face="Verdana, Arial, Helvetica, sans-serif" size="1">"& rs.("idord")&
"></font></td>"
HTML = HTML & "<td width="5%" align="center"><font color="#750000"
face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=rs.("dataord")
%></font></td>"
HTML = HTML & "</tr>"
rs.MoveNext
Loop
HTML = HTML & "</table>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
'il corpo del messaggio è uguale alla stringa HTML
MyItem.HTMLBody = HTML
'visualizzo messaggio di posta elettronica
myItem.Display

 ha scritto nel messaggio 
news:54744b98-af11-4019...@f40g2000pri.googlegroups.com...


<body bgcolor="#FFFFFF">





</body>
<%

</html>
io ho iniziato cosě




'il corpo del messaggio č uguale alla stringa HTML


 ha scritto nel messaggio 
news:54744b98-af11-4019...@f40g2000pri.googlegroups.com...
Ciao sto cercando di inviare un messaggio di posta elettronica da
access che prende i record da una form. Ora vorrei costruire il corpo
del messaggio come tabella html che contenga i miei record. Ora
leggendo vari post ho visto che devo creare una stringa che contenga
tutto il codice html e poi html.body=stringa html. Io ho il codice
html preso da una mia pagina asp, ma come si costruisco la stringa in
HTML.
[cut]
La mail di prima è partita a cacchio....
Ma cosa usi? MAPI? CDO? winsocks?
A seconda di cosa usi hai dichiarazioni differenti e codice differente.
In ogni caso cosa fai ti affidi alla gestione poi dell'invio ad outlook o 
pensavi di gestire tutto da access?
Alex ha fatto già qualcosa come gestione da access poi guardare il suo 
esempio sul suo sito.
Personalmente sto cercando di usare MAPI e sto implementando la versione in 
HTML (già lo uso però con l'invio di testo normale).
Se il messaggio è poi gestito da outlook comunque potresti scriverti la 
pagina html e metterla come formato di email predefinita in modo tale che 
quando fai una mail usa quel modulo html (lo sfrutto al momento per le firme 
con immagini).
Quando avrò finito la mia stesura di tutto... il codice... sarà pubblicato o 
presentato magari alla prossima CISA :-))) (vero MA?)
Ciao
-- 
Roberto da Parma

 ha scritto nel messaggionews:54744b98-af11-4019...@f40g2000pri.googlegroups.com...

Ciao, armato di santa pazienza visionando i vari post sull'argomento
sono riuscito a concatenare la stringa in html per body.
Grazie e scusatemi se volevo la pappa pronta.