Emailing a new work order

[Don Smith]

I have a workorder database whereusers enter work orders and press a "Print" command button, the button creates a report and the user then prints the report.

I wnat to add a button that will send me an email with the work order( report) to me. The problem is the spefic work order is not emailed but all of the reports are. The print works fine so I tried to duplicate it in my macro by adding

Dim strWhere As String

strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "Work orders", acViewPreview, , strWhere

But the email still sends all of my reports.
Bulow is the macro I'm using

any help would be appreciated

Thank you



'------------------------------------------------------------
' Macro2
'
'------------------------------------------------------------
Function Macro2()
Dim strWhere As String

On Error GoTo Macro2_Err

strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "Work orders", acViewPreview, , strWhere

DoCmd.SendObject strWhere, "Work Orders", "PDFFormat(*.pdf)", "My email address", "", "", "Work order", "A new work order hase been entered", False, ""

Macro2_Exit:
Exit Function
Macro2_Err:
MsgBox Error$
Resume Macro2_Exit
End Function

 

[pbaldy]

You have strWhere in the position of the object type, if memory serves. I'm surprised it works at all. Take it out and try it.

 

[Don Smith]

I added that to the macro your right that doesnt work however if I take that out that is my original problem. The email attachement is the entire set of reports not just the current one.....sorry for the confusion.

Thanks

Don

 

[pbaldy]

What is your actual code now? If you export the report while it's opened filtered, you should get the filtered export.

 

[Don Smith]

rivate Sub Print_Click()
' Dim strWhere As String
' If Me.Dirty Then 'Save any edits.
' Me.Dirty = False
' End If
' If Me.NewRecord Then 'Check there is a record to print
' MsgBox "Select a record to print"
' Else
' strWhere = "[ID] = " & Me.[ID]
' DoCmd.OpenReport "Work orders", acViewPreview, , strWhere
' End IfPrivate Sub Command36_Click()
This code is doing exactly what I want it do with the excption od opening outlook to send the email......is it possible to ave te outlook application open when the print button is pressed? What happens right now is the email is sent the next time the user opens outlook.

' Private Sub Print_Click()
Dim strWhere As String
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[ID] = " & Me.[ID]
DoCmd.OpenReport "Work orders", acViewPreview, , strWhere
DoCmd.SendObject acReport, "Work Orders", "PDFFormat(*.pdf)", "my email address", "", "", "New Workorder", "ATT: A New workorder has been generated by the sender", False, ""
End If