生成word报表后发送邮件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tm As String = ProjectPath & "Attachments\JH_Booking.docx"

Dim fl As String = ProjectPath & "Reports\JH_Booking.docx" '指定目标文件

Dim wrt As New WordReport(Tables("BookingMail"),tm,fl) '定义一个WordReport

wrt.Build() '逐行生成报表

wrt.quit

重要提示：

用WordReport生成报表之后，必须执行Quit方法退出，或者执行Show方法显示报表，否则内存将常驻一个Word进程，影响后续报表的生成和设计，直到你中断这个进程，切记切记。

主题：生成word报表后发送邮件