Here is a simple method for mailing an Access report to someone.
This example uses the docmd.sendobject so
email the report in rich text format (RTF).
This method should work with any email program running on your PC. Here's
the code:
Public Sub MailIt()
On Error GoTo Error_MailIt
Dim Rst As Recordset
‘ open the table that the report reads to make sure there is a record in it.
Set Rst = CurrentDb.OpenRecordset("EmailRpt", & _ DB_OPEN_DYNASET)
If Not Rst.BOF Then
DoCmd.SendObject acReport, "RptEmailAdjustment", & _
"rich text format (*.rtf)", strEmailAddressGlobal, , , & _
StrSubjectGlobal , StrMessageGlobal
End If
Goto OK_Exit:
Error_MailIt:
MsgBox Error$ & " MailIt "
GoTo Exit_MailIt
Resume OK_Exit
OK_Exit:
Rst.Close
Set Rst = Nothing
End Sub
(submitted by Mary Roberge)
