Using SendObject to generate an email, does anyone know if it is possible to include a report or query as the content of the email message?
Here is what I have thus far …
Dim strTo, strLink, strEndDate, strMsg1 As String
strEndDate = Me.EndDate
strTo = “Firstname.Lastname”
strCC = “Firstname.Lastname”
strMsg1 = “This is the message but I want to include the results of a query or report. Is it possible?”
If IsNull(strEndDate) Or strEndDate = “” Then
MsgBox “You must select a reporting period (Step 1)”
Else
DoCmd.SendObject acSendNoObject , “”, acFormatHTML, strTo, strCC, “”, “ALPC Employee Update – Period Ending ” & strEndDate, strMsg1
End If