Send Object Action

T

tpeter

I have a report that the user can e-mail to a general folder. I am using the
command button wizard and everything works fine, the only thing I would like
to change is the report is being picked up by outlook secturity saying
information is being automatically started. They then have the option to stop
the email or send it. When they click the e-mail report button I would like
for them to load in the project number they want to send and no other
options. Here is the code that I have any help would be great.

Private Sub Email_Report_Click()
On Error GoTo Err_Email_Report_Click


Dim stDocName As String
stDocName = "rptEmailReport"
DoCmd.SendObject acReport, stDocName, acFormatSNP, "PRIMARY PERSON GOING
TO", "SECONDARY PERSON GOING TO", , "Lab Request", , 0
Exit_Email_Report_Click:
Exit Sub

Err_Email_Report_Click:
MsgBox Err.Description
Resume Exit_Email_Report_Click


End Sub
 
T

tpeter

Brian,

Thank you for your help that was exactly what I was looking for. I have
submitted the info the our IT department for approval. Thank you again for
your help
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top