: Here is a copy&paste from the examples : : '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' : ' : ' Credit: Carla Moreira - 4/19/2001 : ' : : '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' : Sub Main( ) : ' Declare script variables : Dim AppCrystal, CrystalReport, CrystalOptions : ' Create Crystal Report engine Automation Server : Set AppCrystal = CreateObject("Crystal.CRPE.Application") : ' Open the report for print -> export : Set CrystalReport = AppCrystal.OpenReport("Report_Path_&_Name") : ' Define the export options : Set CrystalOptions = CrystalReport.exportOptions : ' What format the report will have: ' Code for crEFTWordForWindows = 14 : CrystalOptions.FormatType = 14 : ' The Subject line and Message : CrystalOptions.MailSubject = "Testing Report Export via E-Mail" : CrystalOptions.MailMessage = "Any message to recipient..." : 'The destination list or e-mail address : CrystalOptions.MailToList = "DistributionList@service.xxx" : 'What application it's being exported to : 'Code for crEDTEmailMAPI = 2 : CrystalOptions.DestinationType = 2 : 'Export the report. : 'True means manual intervention will be required. : 'False means programatical export. : CrystalReport.Export False : End Sub Thanks for your response. However, I don't have ("Crystal.CRPE.Application") in my registry, therefore, my VB script is failing. Is there something wrong with my installation or do I need to install a plug-in or something that allows me to have this in my registry?
|