E-Mail Report in PDF format

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,
 
C

Chris Reveille

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 = "[email protected]"
.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
 
Top