Visual Basic > ActiveX Controls

Sending Crystal Reports to MAPI

Sending Crystal Reports to MAPI

Dim App as New craxdrt.Application
Dim rpt as craxdrt.Report

Set rpt = App.OpenReport("\\cms_live\Reports\Report Maker
2k1\Admin\ImpBuddyProfile.RPT")

   With rpt.ExportOptions
                .DestinationType = crEDTEMailMAPI
                .FormatType = crEFTPortableDocFormat

                .MailToList = "steve"

                .MailSubject = "Mail Subject"
                .MailMessage = strMessage
            End With

            With rpt
                .DisplayProgressDialog = False
                .EnableParameterPrompting = False
                .ParameterFields(1).AddCurrentValue "Any Old Value"
                .Export False
            End With