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
No comments:
Post a Comment