vba发送邮件 正文发送表格数据

在 VBA 中发送邮件，可以使用 Outlook 应用程序和其内置的邮件功能。同时，您也可以通过 VBA 编程来自动生成邮件正文中的表格数据。

下面是一些示例代码，可以帮助您在 VBA 中发送包含表格数据的电子邮件：

首先，您需要确保在 VBA 项目中启用了 Microsoft Outlook 16.0 对象库。打开 VBA 编辑器，点击“工具”菜单下的“引用”，然后勾选“Microsoft Outlook 16.0 对象库”。

接下来，创建一个名为 SendEmail 的 VBA 子程序，用于设置邮件属性和发送邮件。以下是一个简单的 SendEmail 子程序示例：

Sub SendEmail()
    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(olMailItem)
    With olMail
        .To = "收件人的邮件地址"
        .Subject = "邮件主题"
        .HTMLBody = "<p>邮件正文</p>" ' 邮件正文可以是 HTML 格式
        ' 如果您需要发送一个带有表格数据的表格，可以将数据插入到 HTMLBody 中：
        .HTMLBody = .HTMLBody & "<table><tr><td>表头 1</td><td>表头 2</td></tr>" ' 表格开始标签和表头行
        ' 迭代您的表格数据，将每一行都添加到表格中：
        For i = 1 To 10 ' 假设您要发送一个 10 行 2 列的表格
            .HTMLBody = .HTMLBody & "<tr><td>" & Cells(i, 1).Value & "</td><td>" & Cells(i, 2).Value & "</td></tr>" ' 添加一行数据
        Next i
        .HTMLBody = .HTMLBody & "</table>" ' 表格结束标签
        .Send ' 发送邮件
    End With
    Set olMail = Nothing
    Set olApp = Nothing
End Sub
这个示例代码中，我们使用 CreateObject 方法创建一个 Outlook 应用程序对象，并使用 CreateItem 方法创建一个新的 MailItem 对象。然后，我们设置邮件的收件人、主题和正文。在正文中，我们使用 HTML 格式创建一个表格，并通过迭代 Excel 中的数据将表格数据插入到 HTMLBody 中。最后，我们调用 MailItem 对象的 Send 方法发送邮件。
请注意，这个示例代码中的表格数据是硬编码在代码中的。如果您想根据实际情况动态生成表格数据，请根据您的需要修改代码。同时，您可以在邮件正文中添加其他 HTML 标记和样式，以优化表格的显示效果。
希望这个示例代码能帮助您在 VBA 中发送包含表格数据的电子邮件。