I have to put a simple report in the body of an email. I am running limited resources and am looking for a basic code to do so.
Private Sub Command28_Click()
On Error GoTo ErrorHandler
Dim strToWhom As String
Dim strSubject As String
Dim strMsgBody As String
strSubject = "Fax Delv and Driver Count for"
strToWhom = "me@anyplace.net"
strMsgBody =
DoCmd.SendObject , faxreportqueryreport, , strToWhom, , , strSubject, strMsgBody, True
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 2501
Resume Next
Case Else
MsgBox "Err " & Err.Number & ": " & Err.Description
End Select
End Sub
I cant figure out what to put for strMsgBody =
The report name doesnt work
Private Sub Command28_Click()
On Error GoTo ErrorHandler
Dim strToWhom As String
Dim strSubject As String
Dim strMsgBody As String
strSubject = "Fax Delv and Driver Count for"
strToWhom = "me@anyplace.net"
strMsgBody =
DoCmd.SendObject , faxreportqueryreport, , strToWhom, , , strSubject, strMsgBody, True
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 2501
Resume Next
Case Else
MsgBox "Err " & Err.Number & ": " & Err.Description
End Select
End Sub
I cant figure out what to put for strMsgBody =
The report name doesnt work