时间戳

首页 > 解决方案 > 如何将工作表中的图像嵌入 Outlook 电子邮件

excel - 如何将工作表中的图像嵌入 Outlook 电子邮件

问题描述

我正在尝试使用 VBA 将徽标嵌入到 Outlook 电子邮件的正文中。

目前，我的图片存储在名为“Z”的共享驱动器中，并正在使用以下代码粘贴到新的 Outlook 邮件中：

Dim EmailMessage As Object
Set EmailMessage = EmailClient.CreateItem(0)

With EmailMessage
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "KEY123 Approval Needed for TM Products and Services"
    .Bodyformat = 2

    .HTMLBody = "<img src=""Z:\shield.png"">"
End With

如何引用指向工作表的路径？我想使用的图像存储在Sheet 1图像名称是“盾牌”

我想要什么： .HTML Body = "<img src=""Sheet1.Shapes("shield")"">"

标签： excelvbaoutlook

解决方案

您可以简单地从工作表中复制图像，然后将其粘贴到电子邮件正文中...

With EmailMessage
    .Display 'for testing purposes only
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "KEY123 Approval Needed for TM Products and Services"
    .Bodyformat = 2
    Worksheets("Sheet1").Shapes("shield").Copy
    .GetInspector.WordEditor.Range.Paste
End With

推荐阅读