EMAIL thorugh lotus - require formatting of the body (coloums and rows)

[sunilvedula]

hi all,

i am trying to send emails through lotus frm access. I have been able to input in the body of the lotus the query results but i would like it have coloums and rows. I have no idea how to do this. i did a bit of reasearch and found that html would allow me but i could not figure how to do it.

second one is i would like to attach multiple files. Now i am able to do only ne since i am using docmd.sendobject. can anyone let me know how to do it?

Third is after the file gets attached, email does not actually go through but stays there and user hs to click send. i dont know why it is happening though i gave false in the code.

Also for me .attachement or .send is not working. Any idea why???? Forgot to mention i am using Access 2003

Please find below attached code:

Dim rst As DAO.Recordset
Dim strEmailAddresses As String
Dim strccemail As String
Set rst = CurrentDb.OpenRecordset("TblUserEmail")
strccemail = (sunilvedula24@aim.com & "," & sudhaparimala@aim.com) & "," & (Rizwan@gmail.com)
Do Until rst.EOF
strEmailAddresses = strEmailAddresses & rst("Email") & ","
rst.MoveNext
Loop
'Text in the email
Dim rst2 As DAO.Recordset
Dim strNames As String
strNames = "Please find attached details of the item for which we did not receive any supporting doc"
Set rst2 = CurrentDb.OpenRecordset("qMailChecktest")
Do Until rst2.EOF
strNames = strNames & vbCrLf & "AREA" & " " & " CARDNUMBER" & " " & "ORGDT" & " " & "RESPCODE" & " " & "ATM" & " " & "TIME" & " " & "STLMTAMT" & " " & "SWITCH"
strNames = strNames & vbCrLf & rst2("AREA") & ", " & rst2("Pan") & ", " & rst2("Orgdt") & ", " & rst2("Respcode") & ", " & rst2("ATM") & ", " & rst2("Time") & ", " & rst2("STLMTAMT") & ", " & rst2("Switch")
rst2.MoveNext
Loop
' send email
DoCmd.SendObject acSendQuery, "qMailChecktest", xls, strEmailAddresses, strccemail, , "No Doc Received Report", strNames, False
strEmailAddresses = ""