Как я могу вставить изображение из листа в электронную почту Outlook

Question

Я пытаюсь вставить lo go в тело письма Outlook, используя VBA.

В настоящее время моя фотография хранится на общем диске с именем "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")"">"

Answer 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