使用 VBA 在电子邮件中嵌入 Excel 屏幕截图

使用 VBA 在电子邮件中嵌入 Excel 屏幕截图
使用 VBA 在电子邮件中嵌入 Excel 屏幕截图
Leo Bernard
2024年4月29日星期一 上午8:06:30

将 Excel 范围作为屏幕截图发送到电子邮件中

通过 Visual Basic for Applications (VBA) 将 Excel 数据集成到电子邮件中提供了一种共享信息的动态方式。在电子邮件中发送 Excel 范围的屏幕截图时，用户可能会遇到电子邮件签名被删除的问题。当图像插入过程干扰默认电子邮件格式时，通常会出现此问题。

虽然其他工作表可能会在不丢失签名的情况下处理此集成，但附加图像的特定方法可能会破坏已建立的设置。本指南探讨了如何在嵌入 Excel 数据的可视化表示的同时保持电子邮件的完整性（包括签名）。

命令 描述
CreateObject("Outlook.Application") 创建 Outlook 应用程序的新实例，允许 VBA 控制 Outlook。
.GetInspector.WordEditor 访问 Outlook 中的 Word 编辑器以操作电子邮件的 HTML 正文。
.Pictures.Paste 将复制的 Excel 范围作为图片粘贴到工作表中。这是将范围转换为图像的关键。
PasteAndFormat (wdFormatPicture) 粘贴剪贴板内容并在电子邮件正文中应用图片格式以保持图像质量。
.HTMLBody 修改电子邮件的 HTML 内容，这对于在保留签名的同时嵌入图像和自定义文本至关重要。
On Error Resume Next 通过继续执行下一行代码来处理 VBA 中的运行时错误，此处用于确保顺利执行。

脚本机制解释：自动将 Excel 屏幕截图发送到电子邮件

提供的 VBA 脚本可自动执行使用 Outlook 通过电子邮件发送 Excel 范围作为屏幕截图的过程。该脚本首先创建 Outlook 实例 CreateObject("Outlook.Application")，以及使用的电子邮件项目 OutApp.CreateItem(0)。它选择工作表和要发送的特定单元格范围。通过使用命令 ws.Pictures.Paste，该脚本直接在 Excel 环境中将选定范围捕获为图像。

粘贴图片后，脚本将使用 .GetInspector.WordEditor 以 Word 格式处理电子邮件内容，确保保留签名等格式。图像是使用插入的 PasteAndFormat(wdFormatPicture)，这保持了 Excel 范围的视觉保真度。该脚本还动态地将电子邮件内容与附加文本的占位符集成，使用设置正文 .HTMLBody。此方法可确保电子邮件保留所有格式，包括之前设置的签名，使其适合专业通信。

解决 VBA Excel 到电子邮件自动化中的签名丢失问题

Visual Basic for Applications 中的解决方案脚本

Sub send_email_with_table_as_pic()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim ws As Worksheet
    Dim table As Range
    Dim pic As Picture
    Dim wordDoc As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Set ws = ThisWorkbook.Sheets("SheetName")
    Set table = ws.Range("A1:J31")
    ws.Activate
    table.Copy
    Set pic = ws.Pictures.Paste
    pic.Copy
    With OutMail
        .Display
        Set wordDoc = .GetInspector.WordEditor
        wordDoc.Range.PasteAndFormat (wdFormatPicture)
        .HTMLBody = "Hello, <br> Please see the below: <br>" & .HTMLBody
        .To = "xx@xxx.com"
        .CC = "xx@xxx.com"
        .BCC = ""
        .Subject = "Excel Snapshot " & Format(Now, "mm-dd-yy")
    End With
    On Error GoTo 0
    Set OutApp = Nothing
    Set OutMail = Nothing
End Sub

使用 Excel 增强 VBA 电子邮件自动化

结合 VBA 来自动发送包含 Excel 屏幕截图的电子邮件可以极大地提高专业环境中的工作效率和沟通。这种方法允许用户自动生成并通过电子邮件发送报告、财务报表或数据快照，从而最大限度地减少手动工作并减少人为错误的可能性。通过编写这些任务的脚本，企业可以确保数据驱动的通信及时且格式一致。

然而，主要的挑战在于如何将 Excel 视觉效果集成到 Outlook 电子邮件中，而不破坏现有的电子邮件元素（例如签名）。这种复杂性源于 Outlook 对 HTML 和可视内容的处理，这与传统的 Web 开发环境有很大不同。应对这一挑战需要更深入地了解 Excel 模型和 Outlook 的编程接口。

VBA Excel 到电子邮件常见问题解答

  1. 如何自动将 Excel 范围作为电子邮件发送？
  2. 使用 CreateObject("Outlook.Application") 启动 Outlook 并 .CreateItem(0) 创建新电子邮件。
  3. 为什么插入图像时电子邮件签名消失？
  4. 发生这种情况是因为直接插入图像时 Outlook 可能会重新格式化 HTML 正文，从而覆盖包括签名在内的现有格式。
  5. 发送屏幕截图时可以保留格式吗？
  6. 是的，通过使用 .GetInspector.WordEditor 在 Outlook 中，您可以以保留周围格式的方式插入图像。
  7. 是否可以使用 VBA 安排这些电子邮件？
  8. 当然，您可以使用 VBA 在 Excel 中设置计划任务，以在预定时间触发电子邮件发送。
  9. 需要注意哪些常见错误？
  10. 常见问题包括由于未定义的对象而导致的运行时错误或 Excel 范围无法正确复制的问题。使用 On Error Resume Next 可以帮助优雅地管理这些错误。

关于 VBA 电子邮件自动化的最终见解

VBA 提供了一个强大的框架，用于将 Excel 数据与 Outlook 集成，促进专业环境中的无缝数据通信和报告共享。通过理解和应用 VBA 中的正确方法，用户可以避免常见的陷阱，例如插入图像时电子邮件签名消失。此功能不仅提高了工作效率，还确保了所发送电子邮件的专业完整性。