MS Access VBA开发需求：将3个查询结果以表格嵌入Outlook邮件

以下是直接可用的VBA代码，能按顺序读取三个查询的所有记录（保留重复项），生成规范的HTML表格并嵌入到Outlook邮件中：

Sub CombineQueriesToOutlookEmail()
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
    Dim outlookApp As Object
    Dim outlookMail As Object
    Dim htmlBody As String
    
    ' 初始化数据库对象
    Set db = CurrentDb()
    
    ' 打开三个查询的记录集
    Set rs1 = db.OpenRecordset("你的第一个查询名称")
    Set rs2 = db.OpenRecordset("你的第二个查询名称")
    Set rs3 = db.OpenRecordset("你的第三个查询名称")
    
    ' 构建HTML表格头部
    htmlBody = "<html><body><table border='1' cellpadding='4' cellspacing='0'>" & _
               "<tr><th>Name</th><th>ID</th></tr>"
    
    ' 读取第一个查询的所有记录
    If Not rs1.EOF Then
        rs1.MoveFirst
        Do Until rs1.EOF
            htmlBody = htmlBody & "<tr><td>" & rs1!Name & "</td><td>" & rs1!ID & "</td></tr>"
            rs1.MoveNext
        Loop
    End If
    
    ' 读取第二个查询的记录
    If Not rs2.EOF Then
        rs2.MoveFirst
        htmlBody = htmlBody & "<tr><td>" & rs2!Name & "</td><td>" & rs2!ID & "</td></tr>"
    End If
    
    ' 读取第三个查询的记录
    If Not rs3.EOF Then
        rs3.MoveFirst
        htmlBody = htmlBody & "<tr><td>" & rs3!Name & "</td><td>" & rs3!ID & "</td></tr>"
    End If
    
    ' 闭合HTML标签
    htmlBody = htmlBody & "</table></body></html>"
    
    ' 创建Outlook邮件
    Set outlookApp = CreateObject("Outlook.Application")
    Set outlookMail = outlookApp.CreateItem(0)
    
    With outlookMail
        .To = "收件人邮箱地址" ' 替换为实际收件人邮箱
        .Subject = "查询结果汇总"
        .HTMLBody = htmlBody
        .Display ' 直接显示邮件，如需自动发送可改为.Send
    End With
    
    ' 释放对象
    rs1.Close: Set rs1 = Nothing
    rs2.Close: Set rs2 = Nothing
    rs3.Close: Set rs3 = Nothing
    Set db = Nothing
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

关键说明： #

• 请将代码中的你的第一个查询名称、你的第二个查询名称、你的第三个查询名称替换为实际的查询名称
• 代码采用后期绑定Outlook对象，无需手动添加引用，兼容性更强
• 生成的HTML表格带边框和内边距，确保在Outlook中显示格式清晰
• 若需自动发送邮件，将.Display改为.Send即可
• 所有记录严格按查询顺序拼接，完全保留重复项

内容的提问来源于stack exchange，提问作者JAs JAsk