访问2010 PDF，使用VBA代码保存报告并通过电子邮件发送报告

Sub SaveAndSendReport()
    Dim rpt As Report
    Dim fileName As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    ' 获取当前报告对象
    Set rpt = Reports("报告名称")
    
    ' 设置保存文件的路径和名称
    fileName = "保存路径和文件名.pdf"
    
    ' 保存报告为PDF文件
    DoCmd.OutputTo acOutputReport, "", acFormatPDF, fileName
    
    ' 创建Outlook应用程序对象
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' 创建新邮件
    Set outlookMail = outlookApp.CreateItem(0)
    
    ' 设置邮件主题、收件人、正文和附件
    With outlookMail
        .Subject = "报告"
        .To = "收件人邮箱地址"
        .Body = "这是报告，请查收。"
        .Attachments.Add fileName
        .Send
    End With
    
    ' 释放对象
    Set outlookMail = Nothing
    Set outlookApp = Nothing
    
    ' 删除保存的PDF文件
    Kill fileName
End Sub