元旦节快乐
哈喽,大家2023年好呀!
今天,元旦最后一天,给大家分享什么好玩的示例呢?
让我来想想,嗯?这样可以吗?一句话就实现将报表生成PDF,同时可以编辑一些信息并通过outlook发送邮件?
这样一个简单的描述,我们来拆解一下有几个功能,一个是需要将报表生成一个PDF,二是可以通过outlook发送邮件,三是可以将PDF文件和文字内容通过outlook一起发送出去。
以上几个功能要通过一句代码来实现,这个任务看似非常的繁重,但是,实现起来却非常的简单,那让我们来试一下吧。
01、创建窗体
首先一上来,我们还是和之前一样,先创建一个窗体,在窗体上放一个文件框,一个按钮控件。将文件框的名称改成txt_正文。
02、创建报表
因为我们需要将报表生成为PDF,所以,我们需要创建一个报表,我们可以简单的创建的一个空白的报表。这个大家可以通过向导生成。
03、添加代码
接下去,我们就可以来添加一下代码了。请注意,我们这里只要一行句代码来实现。
On Error Resume Next
DoCmd.SendObject acSendReport, "报表名称", acFormatPDF, _
"test@edonsoft.com", , , "标题内容!", txt_正文
这里,我们主要是用到了DoCmd.SendObject这个方法
使用 SendObject 操作在电子邮件中包括指定的 Microsoft Access 数据表、表单、报表或模块,可在其中查看和转发。 在 Microsoft Outlook、Microsoft Exchange 或其他使用邮件应用编程接口 (MAPI) 的电子邮件应用中,可以在邮件中添加格式为 Microsoft Excel 2000 (*.xls)、MS-DOS 文本 (*.txt)、RTF (*.rtf) 或 HTML (*.html) 的对象。
具体的详细的使用方法大家可以帮助中心查看一下。
注意,这里一定要配置相应的outlook,同时正文的内容不能为空,不然会有报错。
OK,好的,今天的分享就到这里了,后面我全再次更新我的视频。