Ms Access 发送带有报告附件的电子邮件

VBA

在Ms Access中，我们可以使用VBA编程语言来发送带有报告附件的电子邮件。这将帮助我们在需要与他人共享报告时，以一种方便快捷的方式发送它们。下面将介绍如何在Ms Access中实现这一功能。

首先，我们需要创建一个VBA模块来编写发送电子邮件的代码。在VBA编辑器中，选择插入 -> 模块，然后在新创建的模块中编写以下代码：

VBA
Sub SendEmAIlWithReport()
    Dim objOutlook As Object
    Dim objMAIl As Object
    Dim objReport As Object
    Dim strReportPath As String
    
    ' 创建Outlook应用程序对象
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set objMAIl = objOutlook.CreateItem(0)
    
    ' 设置邮件主题
    objMAIl.Subject = "报告附件"
    
    ' 设置收件人
    objMAIl.Recipients.Add "recipient@example.com"
    
    ' 创建报告对象并保存为PDF文件
    Set objReport = CreateObject("Access.Application").Reports("报告名称")
    strReportPath = "报告路径及文件名.pdf"
    objReport.ExportToPDF strReportPath
    
    ' 添加附件
    objMAIl.Attachments.Add strReportPath
    
    ' 发送邮件
    objMAIl.Send
    
    ' 释放对象
    Set objMAIl = Nothing
    Set objOutlook = Nothing
    Set objReport = Nothing
    
    ' 删除导出的报告文件
    Kill strReportPath
End Sub

在上述代码中，我们首先创建了一个Outlook应用程序对象，然后创建了一个邮件对象。我们设置了邮件的主题和收件人，并指定了要附加的报告。接下来，我们通过使用报告的ExportToPDF方法将报告导出为PDF文件，并将其添加为邮件的附件。最后，我们发送了邮件并释放了所有对象，同时删除了导出的报告文件。

现在，我们可以在需要的地方调用这个子过程来发送带有报告附件的电子邮件。例如，我们可以在Access表单的按钮单击事件中调用这个子过程：

VBA
Private Sub btnSendEmAIl_Click()
    SendEmAIlWithReport
    MsgBox "邮件已发送。"
End Sub

当用户点击按钮时，报告将被导出为PDF文件，并作为附件发送到指定的收件人。最后，一个消息框将显示发送成功的消息。

案例代码：

以下是一个具体的案例代码，展示了如何在Ms Access中发送带有报告附件的电子邮件。

VBA
Sub SendEmAIlWithReport()
    Dim objOutlook As Object
    Dim objMAIl As Object
    Dim objReport As Object
    Dim strReportPath As String
    
    ' 创建Outlook应用程序对象
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set objMAIl = objOutlook.CreateItem(0)
    
    ' 设置邮件主题
    objMAIl.Subject = "报告附件"
    
    ' 设置收件人
    objMAIl.Recipients.Add "recipient@example.com"
    
    ' 创建报告对象并保存为PDF文件
    Set objReport = CreateObject("Access.Application").Reports("报告名称")
    strReportPath = "报告路径及文件名.pdf"
    objReport.ExportToPDF strReportPath
    
    ' 添加附件
    objMAIl.Attachments.Add strReportPath
    
    ' 发送邮件
    objMAIl.Send
    
    ' 释放对象
    Set objMAIl = Nothing
    Set objOutlook = Nothing
    Set objReport = Nothing
    
    ' 删除导出的报告文件
    Kill strReportPath
End Sub
Private Sub btnSendEmAIl_Click()
    SendEmAIlWithReport
    MsgBox "邮件已发送。"
End Sub

通过以上步骤，我们可以轻松地在Ms Access中发送带有报告附件的电子邮件。这样，我们就可以方便地与他人共享报告，提高工作效率。