Невозможно добавить изображение в теле outlook

Question

Я использую outlook 2016 и Excel 2016. Я написал код для вставки электронного письма в тело outlook. В моем теле письма содержатся html-коды с включенным изображением, код работает нормально, но я не могу вставить изображение в тело письма. Пожалуйста, помогите.

Пожалуйста, найдите код VBA ниже.

Sub Send_Mails()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim subj As String
    Dim recp As String
    Dim bccrep As String
    Dim ccrecp As String
    Dim i As Integer


    For i = 2 To 10

        Sheets("Email Draft").Select
        strbody = Sheets("Email Draft").Range("C1")
        subj = "Welcome - " & Sheets("Macro").Range("O" & i)
        recp = Sheets("Macro").Range("I" & i)
        ccrecp = Sheets("Macro").Range("J" & i)
        bccrep = Sheets("Macro").Range("K" & i)

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        With OutMail
            .To = recp
            .CC = ccrecp
            .BCC = bccrep
            .Subject = subj
            .HTMLBody = .HTMLBody & strbody
            .Display
        End With

        Set OutMail = Nothing
        Set OutApp = Nothing

    Next i

End Sub

Answer 1

Если вы добавляете HTML в существующее тело сообщения HTML, вы, вероятно, добавляете контент вне элемента, и он не будет виден. Вы должны изменить то, что находится в элементе. В качестве альтернативы манипулированию строкой HTML вы можете использовать объектную модель Word для изменения содержимого тела с помощью Inspector.WordEditor.