Hey,
I think what you mean is the following; correct me if I'm wrong...
You have a form where you enter your PO for each supplier. On the form, you want a button which "mails" the report behind the form to this specific supplier.
In this case, you can use the following code :
Private Sub Btn_Emailen_Click()
On Error GoTo Err_Btn_Emailen_Click
Dim address As String
Dim Mailtext As String
'use email-field on my form
address = Me!EMAIL
Mailtext = "Dear, please find my PO attached. Regards, dfdfdf"
DoCmd.SendObject acReport, "PO report", acFormatRTF, address, , , "Bestelling Parfumerie Verhofste", Mailtext, True, "PNr=" & PoNr
explanation for DoCmd...
DoCmd.sendobject acreport = start MS Outlook with a new mailmessage
"PO Report" = name of your report
acformatRTF = send report as attachment in RTF-format
address, , , = email address lines on your mail message (= To, CC & BCC)
Mailtext = standard message you can use
True = MS Outlook will show you the mail setup before sending it; in this case, you can still modify your mail message
"PNr=" & PONr = criteria which means "get me the report where the field PNr (on the report) equals the field PONr (on the form).
In this situation, the PO-report is saved as an RTF-document, created as attachment in your Mail software and the new mail message stays on the screen until you click "SEND" on it.
Good luck...
PdtIt
Exit_Btn_Emailen_Click:
Exit Sub
Err_Btn_Emailen_Click:
MsgBox Err.Description
Resume Exit_Btn_Emailen_Click
End Sub