Send Report by email

[MikeS]

I have a module setup to email reports from my program. The code is as
follows:

Public strReportName As String
Public strTitleName As String

Function Mal_Lab_Report()
On Error GoTo Err_Mal_Lab_Report
Dim MyDate As String
Dim strRec As String

MyDate = Format(Now(), "mm/dd/yyyy")
strRec = "(e-mail address removed)"
DoCmd.SendObject acSendReport, strReportName, acFormatHTML, strRec, , , _
"Mal " & strTitleName & " - " & MyDate, , False

Exit_Mal_Lab_Report:
Exit Function

Err_Mal_Lab_Report:
MsgBox Err.Description
Resume Exit_Mal_Lab_Report

End Function

The first few times I ran this it worked perfectly with the report in the
body of the email. However, something has changed and it now shows up as an
Excel attachment.

Can anyone explain this?

Thanks in advance.

MikeS

 

[BruceS]

Mike,
Assuming that strReportName is the name of a report in the current database,
it looks like your code is correct. Try a decompile/recompile of the .mdb.
Bruce

 

[MikeS]

Bruce,
I'm not familiar with decompile/recompile. Can you explain how to do this

Thanks,
MikeS

 

[BruceS]

Mike,

Sorry, I did not get a notification that you had followed up. (Understand
that there's been a problem there at MS for a little while.) Anyway, here is
what Alen Browne (a VERY good MVP) sent to me when I was having a problem:

General suggestions for removing possible corruption from an mdb:

1. Uncheck the boxes under:
Tools | Options | General | Name AutoCorrect
Explanation of why:
http://allenbrowne.com/bug-03.html

2. Compact the database to get rid of this junk:
Tools | Database Utilities | Compact/Repair

3. Close Access. Make a backup copy of the file. Decompile the database by
entering something like this at the command prompt while Access is not
running. It is all one line, and include the quotes:
"c:\Program Files\Microsoft office\office\msaccess.exe" /decompile
"c:\MyPath\MyDatabase.mdb"

4. Open Access (holding down the Shift key if you have any startup code),
and compact again.

5. Open a code window.
Choose References from the Tools menu.
Uncheck any references you do not need.
For a list of the ones you typically need in your version of Access, see:
http://allenbrowne.com/ser-38.html

6. Still in the code window, choose Compile from the Debug menu.
Fix any errors, and repeat until it compiles okay.

At this point, you should have a database where the name-autocorrect errors
are gone, the indexes are repaired, inconsistencies between the text- and
compiled-versions of the code are fixed, reference ambiguities are resolved,
and the code syntax is compilable.

If it is still a problem, the next step would be to get Access to rebuild
the database for you. Follow the steps for the first symptom in this
article:
Recovering from Corruption
at:
http://allenbrowne.com/ser-47.html

Hope this is timely enough to be of help.

Bruce