CDO电子邮件访问报告

Question

我有一个访问报告，该报告由一个SQL语句修改，因此生成了一个到相应收件人的报告。我在Access 2007的VBA代码中使用CDO。我有兴趣获取此报告并通过电子邮件发送。如何使HtmlBody具有访问报告？

Answer 1

也许是这样。想法是将报告另存为HTML或RTF，然后在以下位置阅读：

Const ForReading = 1

DoCmd.OutputTo acOutputReport, "Report1", acFormatHTML, "Report1.htm"

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("Report1.htm", ForReading)
sBody = f.ReadAll
f.Close

obj.HTMLBody = sBody