无法在 Outlook 正文中添加图像答案

【问题标题】：Not able to add image in outlook body无法在 Outlook 正文中添加图像
【发布时间】：2019-04-07 06:52:42
【问题描述】：

我正在使用 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

【问题讨论】：

可能duplicate
但我需要在 Outlook 2016 中粘贴图像。这在 Outlook 2016 中不会发生

标签： vba for-loop outlook

【解决方案1】：

如果您将 HTML 附加到现有的 HTML 消息正文，您可能会在元素之外添加内容，并且它不会可见。您必须修改元素中的内容。作为操作 HTML 字符串的替代方法，您可以使用 Word 对象模型通过 Inspector.WordEditor 更改正文内容。

【讨论】：