CDO 电子邮件访问报告答案

【问题标题】：CDO email access reportCDO 电子邮件访问报告
【发布时间】：2012-06-23 14:20:00
【问题描述】：

我有一份由 SQL 语句修改的访问报告，以便生成一份报告给相应的收件人。我在 access 2007 的 VBA 代码中使用 CDO。我有兴趣获取这份报告并通过电子邮件发送。如何让 HtmlBody 拥有访问报告？

【问题讨论】：

标签： vba ms-access smtp ms-access-2007 cdo.message

【解决方案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

【讨论】：

它的工作原理和向您学习的好方法。太感谢了。报告保存在哪里？每次循环后都会删除吗？
否，在上面的示例中，它将保存在默认文档文件夹（我的文档）中。如果您愿意，可以包含路径 ("C:\docs\Report1.htm")。它将在每个循环中被覆盖。确保您没有在电子邮件中收到以前的版本！使用 HTML 输出时，MS Access 报告中只有有限的一组可用格式选项，例如，可能并不总是包含行。