问无法在outlook正文中添加图像

EN

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