Email outmation, proper use of .HTMLBody (tags)?

**Corey** · 07-24-2015, 08:23 AM

Can someone direct me how to properly get my email body to format correctly? I am obviously misusing the .HTMLbody/tags incorrectly. The email generates with the attachments as expected, but the email body message is just runon, with no breaks/formatting of any kind.

Code:

Private Sub Command29_Click()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
DoCmd.OutputTo acOutputReport, "WelcomeLetter_rpt", acFormatPDF, "\\C:\Access\Ob\Welcome Letter_" & [First Name] & Space(1) & [Last Name] & ".pdf"
With MailOutLook
   .BodyFormat = olFormatHTML
  .To = [Forms]![CustomerUsers_Send_frm]![Email]
   .CC = DLookup("[CC DL]", "Customers", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]") & ";" & DLookup("[MgrEmail]", "Customers", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]")
   .Subject = "Welcome New Company ABC Portal User"
  .HTMLBody = "Hello" & Space(1) & [Forms]![CustomerUsers_Send_frm]![First Name] & "," & Chr(10) & vbCrLf _
        & DLookup("[EmailMessage]", "WelcomeEmail") & Chr(10) & vbCrLf _
        & DLookup("[TollFreeName]", "WelcomeEmail", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]") & Space(1) & DLookup("[TollFreeNum]", "WelcomeEmail") & vbCrLf _
        & DLookup("[DirectNumName]", "WelcomeEmail", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]") & Space(1) & DLookup("[DirectNum]", "WelcomeEmail", "[Customer]=[Forms]![CustomerUsers_Send_frm]![Customer]") & Chr(10) & vbCrLf _
        & "Thank you," & Chr(10) & vbCrLf _
        & "Company Service Management" & vbCrLf _
        & "Company ABC" & Chr(10) & vbCrLf _
        & DLookup("[Tag]", "WelcomeEmail")
   .Attachments.Add ("C:/Access/Ob/Welcome Letter_" & [First Name] & Space(1) & [Last Name] & ".pdf")
   .Attachments.Add ("C:/Access/Ob/Guide.pdf")
   .DeleteAfterSubmit = False
   .Display
  End With
   
End Sub

**pbaldy** · 07-24-2015, 10:11 AM

With HTML, you have to use inside the string instead of vbCrLf outside of it.

**Corey** · 07-24-2015, 10:42 AM

Can you clarify "inside"? I get removing vbCrLf outside the string...but where does get applied inside?

**Micron** · 07-24-2015, 10:48 AM

Construct a string, then add the result to the .body. It is easier to write, see the result and control the output if it doesn't look right in the immediate window. For example, assuming you have other variables declared as strings:

svBody = "<HTML> <HEAD> Hello " & svTo & " ; "
svBody = svBody & "blah, blah, blah  &nbsp"
svBody = svBody & "</HEAD></HTML>"
I'm a bit rusty with my html, so maybe a boo-boo in that. You might have to add the DOCTYPE declaration at the very beginning to control font formatting.

**pbaldy** · 07-24-2015, 11:22 AM

Originally Posted by Corey

Can you clarify "inside"? I get removing vbCrLf outside the string...but where does get applied inside?

Like

.HTMLBody = "Hello" & Space(1) & [Forms]![CustomerUsers_Send_frm]![First Name] & ", "

**Corey** · 07-24-2015, 01:10 PM

Thank you again!

**pbaldy** · 07-24-2015, 01:26 PM

Happy to help!

Email outmation, proper use of .HTMLBody (tags)?

Thread Tools

Email outmation, proper use of .HTMLBody (tags)?

Similar Threads

htmlbody editing

email notification with proper format

Tags to filter

Indenting Using htmlbody

Email with proper page orientation of Report

Posting Permissions