FORMATTING Outlook Email in BODY of Access code

**taimysho0** · 11-23-2011, 01:29 PM

Hello, i have a button on my form that opens out an outlook email. Ont his part of the code:

With oMail
.To = Left$(strEMail, Len(strEMail) - 1) 'Remove Trailing ;
'.Body =

is where i enter what i want the message to display, however i cant get the formatting right. Im using access 97. ive attached a word doc which shows EXACTLY how id like the email to open up with. can anyone help me make it look like that? thanks!

**June7** · 11-23-2011, 02:33 PM

This article has code relevant to Access97 up. It shows using HTML tags so should be possible. http://www.everythingaccess.com/tuto...curity-Warning

If you need to learn about HTML tags check this site http://www.w3schools.com/html/

**taimysho0** · 11-23-2011, 03:06 PM

Originally Posted by June7

This article has code relevant to Access97 up. It shows using HTML tags so should be possible. http://www.everythingaccess.com/tuto...curity-Warning

If you need to learn about HTML tags check this site http://www.w3schools.com/html/

thanks for sending me the article, i read through it and tried implementing the ".HTMLBody = " but it looks like it doesnt even recognize that, it put everything from that to the end of my html text in red?

this is what i have and all of it is in red, saying "compile error:expected expression"

With oMail
.to = Left$(strEMail, Len(strEMail) - 1) 'Remove Trailing ;

.HTMLBody = "Together as a team WE have the ability to integrate our company's strategy of customer focus while providing operational excellence…"

Metering Supervisors & Crew Leads:

Please tailboard with your meter technicians the importance of EDS receiving the HHF on the same day it was collected.

You are listed in this E-Mail because you have HHF requests issued on 9/7/2011 that are due on 9/8/2011. 
Or you may have some that have been dispatched previously but not received by EDS as of the writing of this E-Mail.

 
Please look at the attached list to see the specifics and associated field order information.

Please work with Dispatch and your crews to make sure the work is dispatched and the file is collected on time and sent in to: EDS Data Acquisition - Electric 

Please remind your technicians to try to fix the problem while they are on site if at all possible to reduce the need for the HHF collections each month. 
(if these are D.A. sites, we have already notified the ESP/MDMA)

If you need any assistance, please give me a call.

Thank you,

**June7** · 11-23-2011, 03:18 PM

The code is in red because it is not built right. Need to enclose each HTML line in quotation marks and use concatenation and line continuation characters as shown in the example. Also need the html and body tags.

**taimysho0** · 11-23-2011, 03:38 PM

hrmm i put some test stuff in there just to test it. it stopped turning red, but the email opens up with "<html><body>My HTML message text!</body></html>"

this is what i have:
Dim bodystring As String
bodystring = "<html>" & _
"<body>" & _
"My HTML message text!" & _
"</body>" & _
"</html>"

.body = bodystring

**June7** · 11-23-2011, 04:34 PM

I just did a simple test sending myself an email with HTML coding. This worked:

Code:

Public Sub TestEmail()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
    .BodyFormat = olFormatRichText
    .To = "email address here"
    ''.cc = ""
    ''.bcc = ""
    .Subject = "HTML TEST"
    .HTMLBody = "<HTML><body>" & _
                "<font color='red'>This is a test</font>" & _
                "<body><HTML>" & _
                Chr(10) & Chr(13) & Now
    ''.Attachments.Add (strZip)
    .DeleteAfterSubmit = True 'to not save in sent bin
    ''.Display
    .Send
End With
End Sub

**taimysho0** · 11-28-2011, 10:38 AM

thank you, that worked. the only thing is it still shows up on 1 line in my email? do you know of another way to make it so i can put text on the next line?

**taimysho0** · 11-28-2011, 11:04 AM

nevermind, was able to figure it out. thanks for your help!...now only if i could figure out that excel problem of pasting my rows in the subform to a spreadsheet...

FORMATTING Outlook Email in BODY of Access code

Thread Tools

FORMATTING Outlook Email in BODY of Access code

Similar Threads

Email report while pulling and embedding and "combining" fields into email body

Email from report to Email body

Send email from Access thru Outlook

Sending email from access to outlook...gives permission denied

Field Name into Subject/Body of an email?

Posting Permissions