Newsgroup: it.comp.appl.access
Titolo: dati nel corpo della mail da copia/incollare su foglio excel

Ciao a tutti, vedo di spiegarmi meglio:
il corpo della mail viene popolato da con questa istruzione:
Set db = CurrentDb
Set rs = db.OpenRecordset("qry_PreparazioneEmailRitiroAuto", dbOpenDynaset)
Do Until rs.EOF
strRec = strRec & vbCrLf & "Loading day: " & Date & ", " & rs!Stock_number & ", " & rs!Targa & ", " & rs!VIN & ", " & rs!Costruttore & ", " & rs!Modello & ", " & rs!Nome_Destinatario & ", " & rs!Indirizzo_Destinatario & ", " & rs!Paese_Destinatario & ", " & rs!Cap_Destinatario & ", " & rs!Citta_Destinatario
rs.MoveNext
Loop
DoCmd.SendObject , , , , , , "Release order AUTO1 " & Trasporto_Da, "Hello," & vbCrLf & "The following list of vehicles will be picked up by us...", False
rs.Close: Set rs = Nothing
 
Il destinatario va a copiare l'intera riga nel corpo della mail e nell'incollarla dentro a una riga di un foglio excel tutta la riga composta da vari "dati" siano essi separati da spazio, tabulazione, punteggiature ecc, i inseriscono tutti nella casella A1 del foglio excel anzichè mettere ogni dato su una casella diversa. Come devo separare i vari campi nella stringa "strRec = eccetera.."?
 
Grazie per l'attenzione.
 
Andrea


creati il corpo della mail in html
usando i classici tag html <table>   <tb> etc ottieni gia nel corpo 
della mail una tabellina leggibile
 
selezionandola e incollandola in excel non avrai problemi di 
incolonnamento..ogni campo sarà in una colonna diversa
 
BFS


Grazie per l'aiuto. 
In pratica devo mettere i tag html sulla riga "strRec = strRec & vbCrLf &.... ecc"?
Perchè ci ho provato ma con risultati nulli. Mi puo dare un punto da cui partire, per favore?
Poi in docmd.sendobject devo inserire anche acformatHTML?
Grazie
 
Andrea


esatto
 
ma ad esempio al posto di vbcrlf devi usare il tag <tr> per andare alla 
riga successiva
e ovviamente devi settare il corpo della mail in html e non testo normale
 
 
quindi
la tua strRec deve contenere qualcosa tipo: (ovviamente qui vado a capo 
per maggiore leggibilità...tu puoi tenere tutto in una unica stringa)
 
<br>
<table>
   <tbody>
     <tr>
       	<td>Col 1 Riga 1</td>
	<td>Col 2 Riga 1</td>
       	<td>Col 3 Riga 1</td>
     </tr>
     <tr>
       	<td>Col 1 Riga 2</td>
	<td>Col 2 Riga 2</td>
       	<td>Col 3 Riga 2</td>
     </tr>
     <tr>
       	<td>Col 1 Riga 3</td>
	<td>Col 2 Riga 3</td>
       	<td>Col 3 Riga 3</td>
     </tr>
 
   </tbody>
</table>
 
 
 
BFS
 
 
 
 
 


Grandioso, grazie dell'aiuto, però vorrei togliere la riga vuota tra una riga e l'altra:
Loading day: 19/05/2023	DR18081	EF597KS	WDD2042021F575953	Mercedes-Benz	C-Klasse C 220 CDI T BlueEfficiency Classic	Logistikzentrum Loyettes	Route de Meximieux , D65 (BONNA SABLA)	FR	01360	Loyettes
 
Loading day: 19/05/2023	LP38417	0755LVT	VR3EFYHT2MJ952118	Peugeot	Rifter 1.5 Blue-HDi Allure L1	Gruppo Ferrari srl	ViaMarx 140	IT	41012	Carpi
 
Loading day: 19/05/2023	UL33145	GC199TW	W1K2470861J203372	Mercedes-Benz	B-Klasse B 250e Premium	Milano Motors 4X4 Srl	Via Giacomo Matteotti, 66	IT	20092	Cinisello Balsamo
 
Loading day: 19/05/2023	ZF93426	0641CXB	WP0ZZZ99Z4S605142	Porsche	911 996 Carrera 4S	CENTRO REVISIONI AUTO S.R.L.	Via del Lavoro 68	IT	40033	Casalecchio di Reno (BO)
 
Io ho scritto in questo modo il corpo coi tag:
strRec = strRec & "<br><table><tbody><tr><td>Loading day: " & Date & "</td>" & "<td>" & rs!Stock_number & "</td>" & "<td>" & rs!Targa & "</td>" & "<td>" & rs!VIN & "</td>" & "<td>" & rs!Costruttore & "</td>" & "<td>" & rs!Modello & "</td>" & "<td>" & rs!Nome_Destinatario & "</td>" & "<td>" & rs!Indirizzo_Destinatario & "</td>" & "<td>" & rs!Paese_Destinatario & "</td>" & "<td>" & rs!Cap_Destinatario & "</td>" & "<td>" & rs!Citta_Destinatario & "</td></tr></tbody></table>"
 
Cosa mi fa la doppia interlinea?
 
Andrea


togli questo
 
<br>
 
 
BFS

 strRec = strRec & "<br><table><tbody><tr><td>Loading day: " & Date & "</td>" & "<td>" & rs!Stock_number & "</td>" & "<td>" & rs!Targa & "</td>" & "<td>" & rs!VIN & "</td>" & "<td>" & rs!Costruttore & "</td>" & "<td>" & rs!Modello & "</td>" & "<td>" & rs!Nome_Destinatario & "</td>" & "<td>" & rs!Indirizzo_Destinatario & "</td>" & "<td>" & rs!Paese_Destinatario & "</td>" & "<td>" & rs!Cap_Destinatario & "</td>" & "<td>" & rs!Citta_Destinatario & "</td></tr></tbody></table>"
 
anzi, leggendo meglio vedo...stai creando una tabella per riga e non va bene
 
la stringa corretta è
 
 
'inizializza
strRec ="<table><tbody>"
 
Set db = CurrentDb
Set rs = db.OpenRecordset("qry_PreparazioneEmailRitiroAuto", dbOpenDynaset)
Do Until rs.EOF
 
 
strRec = strRec & "<tr><td>Loading day: " & Date & "</td>" & "<td>" & 
rs!Stock_number & "</td>" & "<td>" & rs!Targa & "</td>" & "<td>" & 
rs!VIN & "</td>" & "<td>" & rs!Costruttore & "</td>" & "<td>" & 
rs!Modello & "</td>" & "<td>" & rs!Nome_Destinatario & "</td>" & "<td>" 
& rs!Indirizzo_Destinatario & "</td>" & "<td>" & rs!Paese_Destinatario & 
"</td>" & "<td>" & rs!Cap_Destinatario & "</td>" & "<td>" & 
rs!Citta_Destinatario & "</td></tr>"
 
 
rs.MoveNext
Loop
 
'fine ciclo
 
 
strRec=strRec & "</tbody></table>"
 
 
BFS


Grazie,
comunque mi andava già bene, ma vedo la differenza con questa modifica e vedo di applicarla.
 
A presto
 
Andrea