I would like to adapt this code so i can send by email not print if possible

[Eric Viks]

Private Sub cmdmail_Click()
On Error GoTo Err_cmdmail_Click
 
    Dim strDocName As String
 
 
    strDocName = "rptSeabooking"
' Print booking report, using seabooking Filter query to print
    ' booking report for current booking.
    DoCmd.OpenReport strDocName, acViewNormal, "qrybookingfilter"
 
Exit_cmdmail_Click:
    Exit Sub
 
Err_cmdmail_Click:
    ' If action was cancelled by the user, don't display an error message.
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_cmdmail_Click
    Else
        MsgBox Err.Description
        Resume Exit_cmdmail_Click
    End If
End Sub

[jimatqsi]

Erik,
You don't say what platform you're working in. This solution doesn't work in Access 2010.

The first thing you need to do is to print your report to a pdf and then you can email the pdf. Steven Lebans created the code a lot of folks use to create pdfs from within VB/VBA code. It's really not bad to set up but it'll take a little time. You can get all you need to know here http://www.lebans.com/reporttopdf.htm. There's also some information here http://www.granite.ab.ca/access/pdffiles.htm

The first one of these you do will require a fair bit of work, but then it's a snap to call on the infrastructure you built for the first one.

As for sending the email, there are several ways to do that, depending on whether you want to go through Outlook or not (stupid little security window pops up), your system security settings and probably other things particular to your operating environment. I prefer using the CDO email method. You can read about that here http://bytes.com/topic/access/answer...ail-cdo-access or http://bytes.com/topic/access/answer...before-sending.

You can find lots of help on both of these topics by searching the web.

Jim

[Eric Viks]

Hi Jim,

Thanks for the reply.

I am currently using Access 2007. The code above allows me to filter a certain customer and then print to default printer, I tried to use sendobject to print and then send via email using outlook, works but it wont filter does a pdf for all records in table. Thank you for the links I am currently reading and hope to learn new things.