In the code, just take out the lines:

BodyFile$ = InputBox$(“Please enter the filename of the body of the message.”, _
“We Need A Body!”)

‘ If there’s nothing to say, call it a day.

If BodyFile$ = “” Then
MsgBox “No body, no message.” & vbNewLine & vbNewLine & _
“Quitting…”, vbCritical, “I Ain’t Got No-Body!”
Exit Function
End If

‘ Check to make sure the file exists…
If fso.FileExists(BodyFile$) = False Then
MsgBox “The body file isn’t where you say it is. ” & vbNewLine & vbNewLine & _
“Quitting…”, vbCritical, “I Ain’t Got No-Body!”
Exit Function
End If

‘ Since we got a file, we can open it up.
Set MyBody = fso.OpenTextFile(BodyFile, ForReading, False, TristateUseDefault)

‘ and read it into a variable.
MyBodyText = MyBody.ReadAll

‘ and close the file.
MyBody.Close

and replace it with:

MyBodyText = “The text I want to be the body of my email.”

To pull that from the database, you would have a table with maybe two columns in it, an ID column and the text column — and run a query against the table to return the text column.

The second paragraph points out this shortcoming and the third explains how might get around it.

I don’t currently have code available for the Redemption DLL. It’s on the to-do list, but at the moment, I have too many projects, not enough time!

You might also want to look at some of the resources listed here:

http://www.granite.ab.ca/access/email/outlook.htm

I got this working fine but whenever it opens outlook it comes up with a warning saying

“A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this?”

There is an option to click to allow this but I would like to bypass it of possible, any ideas?

I’m using Access and Outlook 2003.

Thanks,

Paul.

Are you sure that the query is pulling records on the other machine? Perhaps the number of addresses is 0 in the query, so the code works fine, there’s just nothing to send?

Can you step thru the code?

Do you have any ideas of why that may be?

Thank you!

So you might change the code to be:

MyMail.Attachments.Add MailList(“AttachmentFilePath”), olByValue, 1, MailList(“AttachmentDisplayName”)

…. which would require you to create 2 new fields in your email table, one for AttachmentFilePath which would be where the attachment is located, and then AttachmentDisplayName if you want the attachment to show up in the email with a specific name.

The limitation of SendObject is it doesn’t allow you to have attachments that aren’t Access objects.

If you don’t have the need for attachments, the code can certainly be easier to manage since Access will handle creating and destroying the Outlook object.

In face, if Outlook isn’t available on your machine, DoCmd.SendObject will do it’s best to interface with your current default mailer.

On my setup, it was able to address and send (or display) a message via my Thunderbird client without incident… but no attachments.

I was checking the code in access 2007 and found out that there is a much simpler way to send out emails through
” DoCmd.SendObject “.

Which has an in-built functionality for sending forms, text, query reports in different formats.

Just a suggestion.

Regards
Arshdeep