Visual Basic Programming Code Examples Visual Basic > ActiveX Controls Code Examples 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