access 怎么默认outlook自动发报表信息

下面这段代码是自动发出邮件，怎么加上报表信息发送，我知道报表信息是dcmd,sendobject.acsendreport.“报表”，acformatpdf.那种加下面代码里面自动发送。请老师指导一下。非常感谢

sub email_send()

Dim olkapp As Outlook.Application
Dim newmail As MailItem
Dim emailadd,para as String

Set olkapp = CreateObject("outlook.application")
Set newmail = olkapp.CreateItem(olMailItem)

'邮件正文内容
para = para+"祝新春快乐，并友情提醒注意新的邮件病毒。"

'收件人的email地址，这里没有输入内容。
emailadd = ""

With newmail

.To = emailadd
.Subject = "新春快乐" ' 邮件的主题
.Importance = olImportanceHigh '邮件的为重要等级
.Body = para '将邮件正文内容指定para变量内容

.Send '发送

End With

end sub