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