vba - 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