Adding formatting to "E-Mail"

maneyact

Registered User.
Local time
Yesterday, 20:15
Joined
May 31, 2008
Messages
13
Hi,

I have a button on an access database that automatically sends a booking sheet via e-mail. We select "Snapshot" as the format to send and many people are saying they cannot open the file sent. To overcome this, I've added some text to the body of the e-mail that opens with a link to the microsoft download page.

I use the following code;

***********************
Private Sub Email_Booking_Sheet_Click()
On Error GoTo Err_Email_Booking_Sheet_Click
Dim stDocName As String

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
stDocName = "rptBookingSheet"

DoCmd.SendObject acReport, stDocName, , , , , "Booking Sheet", "Attached is your booking sheet. If you cannot open the booking sheet, please download the free Snapshot Viewer software from http://www.microsoft.com/downloads/...3f-6d74-423d-8274-8b7e6313edfb&displaylang=en. Also attached is your Party Planner which includes important planning information. If you still cannot open it, please phone 1300 999 999 and we will post the documents to you."

Exit_Email_Booking_Sheet_Click:
Exit Sub

Err_Email_Booking_Sheet_Click:
MsgBox err.Description
Resume Exit_Email_Booking_Sheet_Click

End Sub
***********************

What i'd like to do is add some formatting to the e-mail so it's neater. Currently it is all in one paragraph and looks unprofessional. We'd actually like to add more informatrion to the body of the text so formatting will be important.

Is there a way to add "Break" points into a module so this can be done?

Cheers in advance,

Scott.
 
try adding chr(10) to the end of your sentance where you want to start a new line.

eg,

"Attached is your booking sheet." & chr(10) & chr(10) & "If you cannot open the booking sheet etc.......

would add 2 lines

hope that helps
 
Works now.

This fixed it - Thanks!
 

Users who are viewing this thread

Back
Top Bottom