dati nel corpo della mail da copia/incollare su foglio excel

[Skorza]

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

[BFS]

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

[Skorza]

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

[BFS]

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

[Skorza]

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

[BFS]

togli questo

<br>


BFS

[BFS]

Il 19/05/2023 17:53, Skorza ha scritto:

> 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

[Skorza]

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

A presto

Andrea