无法在Outlook正文中添加图像

时间:2018-11-03 04:59:03

标签: vba for-loop outlook

我正在使用Outlook 2016和Excel2016。我已编写了将电子邮件粘贴到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

1 个答案:

答案 0 :(得分:1)

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