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

【问题标题】：How can I embed an image from worksheet into Outlook email如何将工作表中的图像嵌入 Outlook 电子邮件
【发布时间】：2020-03-28 07:34:21
【问题描述】：

我正在尝试使用 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中存储的图片，图片名称为“shield”

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

【问题讨论】：

标签： excel vba outlook

【解决方案1】：

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

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

【讨论】：

我正在尝试绕过 Z 驱动器。如何附加存储在工作表 1 中的图像？