Excel VBA：发送多封邮件，邮件正文中包含.jpg，表格作为附件

我正在努力让个性化信息发挥作用。我很难通过VBA发送多封电子邮件，同时在电子邮件正文和附件中嵌入照片

这是我的电子邮件“映射”

A（col）B C D E F G H I J
客户抄送主体第1/5部分第2/5部分第3/5部分第4/5部分第5/5部分全身

紧凑型车身：

（E）

“这应该是照片

=F2&“

“&G2&”

“&H2&”

“&I2&”“）

附件（EXCEL文件）

正文由来自其他文件的数据和宏组成，我无法更改这些数据（这是最大的问题）。我的宏创建了多封带有附件的电子邮件，但我不知道如何在正文中添加照片。我发现了这样的东西：

.Attachments.Add“C:.jpg” .HTMLBody=” 但它在很多电子邮件中都不起作用。。。 寻找你们的反馈：）也许你们中的一些人创建了类似的代码

我的代码：

Sub mergeMailing()

Dim sh As Worksheet

Dim OA As Object

Dim msg As Object

Dim i As Integer

Dim last_row As Integer

Set sh = ThisWorkbook.Sheets("Merge mailing")

Set OA = CreateObject("Outlook.Application")

last_row = Application.WorksheetFunction.CountA(sh.Range("A:A"))

For i = 2 To last_row

Set msg = OA.createitem(0)

msg.to = sh.Range("B" & i).Value

msg.cc = sh.Range("C" & i).Value

msg.Subject = sh.Range("D" & i).Value

msg.Body = sh.Range("E" & i).Value

'place for .jpg/.png

msg.Body = sh.Range("I" & i).Value

msg.Attachments.Add sh.Range("J" & i).Value

msg.display

Next i

End Sub

---

我想我们找到了所有以“亲爱的”开头的严重合并电子邮件的发件人（它是

亲爱的

，

空格

，

逗号

）我想我们找到了所有以“亲爱的”开头的严重合并电子邮件的发件人（它是

亲爱的

，

空格

，

逗号

）

Sub mergeMailing()

Dim sh As Worksheet

Dim OA As Object

Dim msg As Object

Dim i As Integer

Dim last_row As Integer

Set sh = ThisWorkbook.Sheets("Merge mailing")

Set OA = CreateObject("Outlook.Application")

last_row = Application.WorksheetFunction.CountA(sh.Range("A:A"))

For i = 2 To last_row

Set msg = OA.createitem(0)

msg.to = sh.Range("B" & i).Value

msg.cc = sh.Range("C" & i).Value

msg.Subject = sh.Range("D" & i).Value

msg.Body = sh.Range("E" & i).Value

'place for .jpg/.png

msg.Body = sh.Range("I" & i).Value

msg.Attachments.Add sh.Range("J" & i).Value

msg.display

Next i

End Sub