Send Report by e-mail

[Dina01]

Hello,

I created a form that has send button that I need to send the current record to the report and then it send it to a specific user by e-mail.

I created this code in my Send Button
***********************************
Dim strDocName As String
Dim strWhere As String
strDocName = "rptInfo"
strWhere = "[CallNo]=" & Me!CallNo

DoCmd.OpenReport strDocName, acPreview, , strWhere
*************************************
This example works fine, but I need to send it by e-mail therefore I tried

DoCmd.SendObject acSendReport, "rptInfo", "SnapshotFormat(*.snp)", "gerarda.federici@casino.qc.ca", , , "Demande de clé", , True

but I am not too sure where to enter the criteria....

Can anyone help me

 

[KenReay]

Hi

Change your query on which yor report is based to have a criteria of Forms!MyForm!CallId

where MyForm is the name of your form

Then you can dispense with the criteria in the docmd.OpenReport

make sure you save the record, before printing Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK