Lee,
Try this.
Dim olkapp As Outlook.Application
Dim olknamespace As Outlook.NameSpace
Dim objmailitem As Outlook.MailItem
Dim CN As String
CN = "C:\My Report.snp"
DoCmd.OutputTo acOutputReport, "rptName", acFormatSNP, CN ' create your report
Set olkapp = New Outlook.Application
Set...