继续邮件

superjinyu

Private Sub Form_Load()
Dim a As Report
DoCmd.OpenReport "sendmail", acViewPreview
Set a = Reports("sendmail")
Dim olkapp As Outlook.Application
Dim newmail As MailItem
Set olkapp = CreateObject("outlook.application")
Set newmail = olkapp.CreateItem(olmailtem)
With newmail
.To = ""
.Subject = "abc"
.Body = a
.send
End With
End Sub


说类型不匹配，停留在.Body = a，不知道怎么改

fan0217

Body是String型，报表 Report导出后，请用附件来发送。