CDO电子邮件访问报告

Question

我有一个访问报告，该报告由SQL语句修改，以便生成一个到相应收件人的报告。 我在访问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