根据Jeeped的建议更新：
我正在寻找一种方法来创建一组符合以下参数的电子邮件：
- 每封电子邮件将根据我的主管设置的模板信件进行个性化设置。
- 会有一个问候语，上面写着他们的名字和头衔，以及他们所监督的部门的名字。
- 每封电子邮件都有一组特定于该收件人的文档。
- 他们应该在发送之前保存到文件中进行最终检查。
下面代码中未引用的-column 5是包含部门名称的列。
我最接近的是以下代码：
Sub send_template_w / attachments（）
On Error Resume Next
Dim o As Outlook.Application
设置o =新的Outlook.Application
Dim omail As Outlook.Mailitem
设置omail = .Createitem（olMailitem）
Dim I As Long
对于i = 2到范围（“a100”）。结束（xlUp）。行
使用omail
.Body =“亲爱的”＆amp;细胞（I，1）。价值
.To = Cells（i，2）.Value
.CC = Cells（i，3）.Value
.Subject = Cells（i，4）.Values
.Attachments.Add Cells（i，6）
.Attachments.Add Cells（i，7）
.SaveAs Environ（＆＃34; HOMEPATH＆＃34;）＆amp ;; ＆＃34; \我的文件\＆＃34; ＆安培;细胞（I，2）。价值
结束
下一步
End Sub
到目前为止，此代码将生成并保存电子邮件，但我想要做的是使用当前电子邮件模板来处理这些电子邮件 - 通过将开头的问候语和部门名称添加到电子邮件正文中送出。这可以通过word或Outlook文档完成，如果是，怎么做？
答案 0 :(得分：0)
创建邮件模型。 “另存为”到.oft文件。例如MyTemplate.oft
而不是
Set omail =.Createitem(olMailitem)
有
Set omail = o.CreateItemFromTemplate("C:\MyTemplate.oft").
要从Excel工作表添加条目，您可以在模板正文中包含唯一占位符，然后使用Excel值包含Replace。