vba - CDO電子メールアクセスレポート

Question

対応する受信者への1つのレポートが生成されるように、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