I Implemented this code in a com object  to send a Crystal Reports X report, but when it runs an Outlook Security Warning appears every time saying an uknown program is trying....

 

Any ideas how to remove it? is it a common problem for you all?

 

Thanks

 

 

Code:

 

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

Set rpt = App.OpenReport("\\path\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