Export a report to outlook- For dummies.

[andyt_2005]

Hi all,
I need a function to export a simple table to outlook, However (this is where i get lost) i want it to be included in the body!
I understand it will have to be HTML but thats not an issue, th eissue is i have not got a clue where to even start with this!
I need the user to click a button, then it opens outlook and put the table in the body of the email, includes and email and subject with a short bit of text in the body above the table.
Thats where i want it to end. i need the user to actually click send.

Any help hints or tips are greatly welcomed!

[ItsMe]

I would start by exporting the query object as an HTML file. I would apply criteria to the query object so it only retrieves one record before exporting to the file. With that, I would use the Source Code as a template in VBA.

I would use VBA to Automate the creation of an Email. Here is some sample code
https://www.accessforums.net/forms/c...tml#post225174

[andyt_2005]

This is the way i was thinking, however it will be used over a large network so the temp file will be created in different places depending on the workstation/user.
I have found this but like the title of my thread says its a bit too advanced for me !!

Public Function HtmlNoReportEmail(strTblQryName As
String)

Dim olApp As Outlook.Application
Dim objMail As
Outlook.MailItem
Dim strMsg As String
Dim sqlString As String
Dim i As
Integer
Dim rowColor As String

Dim rs As ADODB.Recordset
Set rs =
New ADODB.Recordset

sqlString = "SELECT * FROM " & strTblQryName
& ""
rs.Open sqlString, CurrentProject.Connection, adOpenKeyset,
adLockOptimistic

strMsg = "<table border='1' cellpadding='3'
cellspacing='3' style='border-collapse: collapse' bordercolor='#111111'
width='800'>" & _
"<tr>" & _
"<td
bgcolor='#7EA7CC'>&nbsp;<b>Company</b></td>" &
_
"<td bgcolor='#7EA7CC'>&nbsp;<b>Last
Name</b></td>" & _
"<td
bgcolor='#7EA7CC'>&nbsp;<b>First Name</b></td>" &
_
"<td bgcolor='#7EA7CC'>&nbsp;<b>Job
Title</b></td>" & _
"<td
bgcolor='#7EA7CC'>&nbsp;<b>Business Phone</b></td>"
& _
"<td
bgcolor='#7EA7CC'>&nbsp;<b>City</b></td>" &
_
"</tr>"

i = 0
Do While Not rs.EOF

If (i Mod 2 = 0) Then
rowColor =
"<td bgcolor='#FFFFFF'>&nbsp;"
Else
rowColor = "<td
bgcolor='#E1DFDF'>&nbsp;"
End If

strMsg = strMsg &
"<tr>" & _
rowColor & rs.Fields("Company") & "</td>"
& _
rowColor & rs.Fields("Last Name") & "</td>" &
_
rowColor & rs.Fields("First Name") & "</td>" &
_
rowColor & rs.Fields("Job Title") & "</td>" &
_
rowColor & rs.Fields("Business Phone") & "</td>" &
_
rowColor & rs.Fields("City") & "</td>" &
_
"</tr>"

rs.MoveNext
i = i + 1
Loop

strMsg =
strMsg & "</table>"

Set olApp = Outlook.Application
Set
objMail = olApp.CreateItem(olMailItem)
With objMail
.BodyFormat = olFormatHTML
.HTMLBody =
strMsg
.Recipients.Add "user@email.com"
.Subject = "Customer
Data"
'.Send if you want to send it directly without displaying on
screen
.Display
End With
Set olApp = Nothing
Set objMail = Nothing

End Function

[ItsMe]

I do not see any temp file in that code, not that I looked real hard. Why do you need a temp file?

What is it that you are having trouble with?

[andyt_2005]

Let me start fresh, I have been at this for so long everything im saying sounds like rubbish to me!
So what im bascially trying to do is send one coloum from my table to someone.
The reason i want it to be in the body of the email is so they can write something next to each record and send it back to me.
this email is to do with reference numbers so i will send the ref. numbers one on each line of text in the email. then they can reply with either complete or outstanding next to each line i send them.
doesnt need to be formatted just need the data.
And i really have no idea where to even start with this !
I have tried google but keep comming up with a blank.
Access is fairly new to me (about 2 weeks) so VB is something im learning as i go

[ItsMe]

Do you HTML that will create a table with one column and one row? Can you get the cell populated with a value?

If not, create a query that retrieves the data you want to include in the Body of your email. Apply criteria to the query so it only retrieves one record (this is temporary). After you save this query object as outlined, right click the query object and export it as an HTML file.

[andyt_2005]

yeah can do that fine, Exports exactly how i want it to look. I want a way of doing that automatically and putting it in the body of emails. The idea is the end user will just have to press a button and itll all be done for them.

[ItsMe]

Post #2 has some code that you can put behind a click event of a button.