U can use something similar
Private Sub Command0_Click()
Dim objOutlook As Object
Dim objItem As Object
Dim Mydb As Database
Dim Rst As Recordset
Dim body
Set Mydb = CurrentDb
Set Rst = Mydb.OpenRecordset("select", dbOpenForwardOnly)
With Rst
Do While Not .EOF
body = body & ![CodCl] & " | " &...