将查询中的表导出到电子邮件VBA

Sub ExportTableToEmail()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim outlookApp As Object
    Dim outlookMail As Object
    Dim strSQL As String
    Dim strEmail As String
    
    ' 设置查询SQL语句
    strSQL = "SELECT * FROM YourTableName"
    
    ' 设置收件人邮箱地址
    strEmail = "recipient@example.com"
    
    ' 创建Outlook应用程序对象
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件对象
    Set outlookMail = outlookApp.CreateItem(0)
    
    ' 打开数据库
    Set db = CurrentDb
    
    ' 创建查询对象
    Set qdf = db.CreateQueryDef("", strSQL)
    
    ' 执行查询并获取记录集
    Set rst = qdf.OpenRecordset
    
    ' 将记录集导出为HTML格式
    rst.MoveFirst
    Do Until rst.EOF
        outlookMail.HTMLBody = outlookMail.HTMLBody & rst.Fields("FieldName").Value & "<br>"
        rst.MoveNext
    Loop
    
    ' 设置邮件主题和收件人
    outlookMail.Subject = "导出表数据"
    outlookMail.To = strEmail
    
    ' 发送邮件
    outlookMail.Send
    
    ' 释放对象
    rst.Close
    Set rst = Nothing
    Set qdf = Nothing
    Set db = Nothing
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub