Send Object Action

[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

 

[Brian]

Check out ClickYes Pro from ContextMagic at www.contextmagic.com.

 

[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