Как добавить дополнительный текст / изображения в тело письма, созданного VBA?

Question

В настоящее время код vba создает элемент электронной почты outlook, который принимает текст документа Word в качестве тела сообщения электронной почты. Как добавить дополнительный текст / изображения к телу?

Ответ на этот SO вопрос заключается в том, как я создаю элемент внешнего вида: Как отправить документ Word как текст письма с помощью VBA

Вот фактический код, который я использую:

Sub email()
Mail_Object, o As Variant

    Dim wd As Object, editor As Object
    Dim doc As Object
    Set wd = CreateObject("Word.Application")
    Set doc = wd.documents.Open("(word address)")
    doc.Content.Copy
    Set wd = Nothing

Set Mail_Object = CreateObject("Outlook.Application")

        With Mail_Object.CreateItem(o)
            .Subject = "subject"
            .To = "to"
            Set editor = .GetInspector.WordEditor
            editor.Content.Paste

            'here something like: body = body & "additional text"
            .Display
        End With

        Application.DisplayAlerts = False
Set Mail_Object = Nothing
End Sub

Answer 1

Как вы назвали тегом Excel, вот несколько примеров добавления фигуры или ячеек Excel в виде изображения в тело вашего письма (без знания html):

With Editor.Range

    .Collapse wdCollapseStart
    .InsertBefore "Hi there," & vbCrLf & "here's my picture:" & vbCrLf

    .Collapse wdCollapseEnd
    .InsertAfter vbCrLf & "Best wishes," & vbCrLf

    .Collapse wdCollapseStart
    .PasteSpecial link:=False, _
        DataType:=wdPasteShape, _
        Placement:=wdInLine, _
        DisplayAsIcon:=False
    '.Paste
    '.PasteAndFormat wdChartPicture
    '.PasteAndFormat wdFormatPlainText
End With

Answer 2

Вы можете использовать теги HTML, если вы определите свой объект как .HTMLBody.Вы можете попробовать сделать это следующим образом:

MailItem.HTMLBody = Content & "<br>" & "<br>"
MailItem.HTMLBody = Content &  "<B>" & "<h3>" & "DRAFT: Your Additional Content Here" & "</h3>" & "</B>" & "<br>" & _
"Your Additional Image Here: " & "<br>"&  "<img src="image/url">