Conditional formatting not working when I use the acOutputReport command

[Fionfion]

Hi, I'm currently working on a database that allows users to email report as email content not attachment, it works except the conditional formatting is not showing, may I know whether it is possible? I got the code from the internet:

Sub RTFBodyX()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Dim RTFBody, strTo
Dim MyApp As New Outlook.Application
Dim MyItem As Outlook.MailItem

DoCmd.OutputTo acOutputReport, "Statement", acFormatHTML, "Report1.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("Report1.htm", ForReading) 
RTFBody = f.ReadAll
f.Close
Set MyItem = MyApp.CreateItem(olMailItem)
With MyItem
.To = "a@b.c"
.Subject = "Subject"
.HTMLBody = RTFBody
End With
MyItem.Display
End Sub

Private Sub Command33_Click()
Call RTFBodyX
End Sub

Also, I note that anything after

RTFBody

would not show in the email, please help as I wanted to put the report in the middle of the email content.

Thank you very much in advance!!

[Minty]

You aren't declaring any data types for most of your variables.

Dim fs, f will declare both as Variants types, the same with RTFBody, strTo .

The code as is also using early binding, which might fail on another machine with a different office version.
What do you mean by anything after RTFBody won't show - as far as I can see there isn't anything added after the mail body ?

[Fionfion]

You aren't declaring any data types for most of your variables.

Dim fs, f will declare both as Variants types, the same with RTFBody, strTo .

The code as is also using early binding, which might fail on another machine with a different office version.
What do you mean by anything after RTFBody won't show - as far as I can see there isn't anything added after the mail body ?

Thanks for your help, I actually don't know how to write codes and just got the codes from the internet, is there a better code for this? For me I have not run it on a different computer so I don't know whether it would work yet. How about the conditional formatting, is it possible to show in the email?

So I added the following codes:

Dim fs, f As Variant
Dim RTFBody, strTo As Variant

I mean when I tried to add any text after

RTFBody

it would not show, I just do like this:

.HTMLBody = "Some texts" & RTFBody & "Any texts" 

"Some texts" would show but "Any texts" would not.

[Minty]

Okay - the RTFBody will be in HTML mark up - which is what the email editor is expecting to see.
So you would have the following as the same plain text and then the html equivalent;

 Dim txtBody as string
 Dim txtHTMLBody as string
 txtBody = "Good " & Greeting & sContact & "," & vbCrLf & _
              vbCrLf & _
              "Please find attached your " & Variable_Subject & vbCrLf & _
              vbCrLf & _
              "Please arrange for a PO to be sent over if you wish to proceed."




     txtHTMLBody = "<style> " & _
                    "p {font-size:12pt; font-family:Calibri}" & _
                    "</style>" & _
                    "<p>" & "Good " & Greeting & sContact & "," & "</p>" & _
                    "<p>" & "" & "</p>" & _
                    "<p>" & "Please find attached your " & Variable_Subject & " <br/>" & _
                    "<p>" & "" & "</p>" & _
                    "<p>" & "Please arrange for a PO to be sent over if you wish to proceed. <br/>" & _
                    "<p>" & "" & "</p>" & _
                    "<p>" & "Kind regards,<br/>"

[Fionfion]

Thank you Minty, but due to my very limited VBA knowledge.. I don't understand.. I tried to add the following:

Dim txtBody As String
Dim txtHTMLBody As String
 
txtBody = RTFBody & "Any text"
txtHTMLBody = RTFBody & "Any text"
                    
.Body = txtBody
.HTMLBody = txtHTMLBody

It shows the same thing, no conditional formatting, no text shown after

RTFBody

[Minty]

I'm not sure the conditional formatting would show up, but lets get you on the right track first.

I was trying to demonstrate (very badly) that to get additional text to display you will have format it in HTML tags.
And you can only have either .Body or .HTMLBody not both. So try

txtHTMLBody = RTFBody & "<p>Any text</p>"

[Fionfion]

I'm not sure the conditional formatting would show up, but lets get you on the right track first.

I was trying to demonstrate (very badly) that to get additional text to display you will have format it in HTML tags.
And you can only have either .Body or .HTMLBody not both. So try

txtHTMLBody = RTFBody & "<p>Any text</p>"

Not working
I even tried

txtHTMLBody = "<P>" & RTFBody & "</P>" & "<p>Any text</p>"

[June7]

I don't think Conditional Formatting will translate to HTML.

Your code doesn't show file path. How does it know where to save to and retrieve from?

The htm file is created with closing BODY and HTML tags so I tried this:

RTFBody = Replace(f.ReadAll, vbCrLf & vbCrLf & "</BODY>" & vbCrLf & "</HTML>", "") & "<TABLE><TR><TD>Any text</TD></TR></TABLE></BODY></HTML>"
f.Close
Debug.Print RTFBody

The Debug output shows the modified HTML string but the email still will not include the appended text.

I can get email to receive either the file content or the extra text but not both together.

Very frustrating.

FOUND IT! The htm file is created with a Nul code at the end of the file. I manually deleted it and then the combined text output to the email. I used Notepad++ to view the htm file.

OKAY, this strips the Nul character and shows the combined string in email:

RTFBody = Replace(f.readall, Chr(0), "") & "Any text"

[Fionfion]

I don't think Conditional Formatting will translate to HTML.

Your code doesn't show file path. How does it know where to save to and retrieve from?

The htm file is created with closing BODY and HTML tags so I tried this:

RTFBody = Replace(f.ReadAll, vbCrLf & vbCrLf & "</BODY>" & vbCrLf & "</HTML>", "") & "<TABLE><TR><TD>Any text</TD></TR></TABLE></BODY></HTML>"
f.Close
Debug.Print RTFBody

The Debug output shows the modified HTML string but the email still will not include the appended text.

I can get email to receive either the file content or the extra text but not both together.

Very frustrating.

FOUND IT! The htm file is created with a Nul code at the end of the file. I manually deleted it and then the combined text output to the email. I used Notepad++ to view the htm file.

OKAY, this strips the Nul character and shows the combined string in email:

RTFBody = Replace(f.readall, Chr(0), "") & "Any text"

Thanks it worked