E-Mail Report in PDF format

  • Thread starter Thread starter Dave Elliott
  • Start date Start date
D

Dave Elliott

I have installed on my computer Cute PDF Print which will save in PDF
format.
Is there a way I can send the Report from the database like I do in SNP
format?

Right now I have to send as rtf to word and then send to printer as PDF,
then email the file.

Thanks,
 
You will need to use code to accomplish what you want.
Here some code from Arvin Meyer that you can put behind a
command button after you have created the PDF file or
combine the 2 steps intop 1.

Private Sub Command0_Click()
'Arvin Meyer 03/12/1999
'Updated 7/21/2001
On Error GoTo Error_Handler

Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
.To = "(e-mail address removed)"
.Subject = "Look at this sample attachment"
.body = "The body doesn't matter, just the attachment"
.Attachments.Add "C:\Test.htm"
'.attachments.Add "c:\Path\to\the\next\file.txt"
.Send
'.ReadReceiptRequested
End With

Exit_Here:
Set objOutlook = Nothing
Exit Sub

Error_Handler:
MsgBox Err & ": " & Err.Description
Resume Exit_Here

End Sub

Chris
 
Back
Top