我正在使用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
答案 0 :(得分:1)
如果将HTML附加到现有的HTML消息正文中,则可能会在元素外部添加内容,并且该内容将不可见。您必须修改元素中的内容。作为处理HTML字符串的替代方法,可以使用Word对象模型通过Inspector.WordEditor更改正文内容。