使用Outlook模板和设置变量从Excel 2007 VBA发送电子邮件(Send an email from Excel 2007 VBA using an Outlook Template & Set Variables)

 我有一个数据列表，让我们说客户端信息（姓名，电子邮件，金额欠额等），存储在Excel工作表中。 我的目标是点击Excel中的按钮，并在Outlook模板中向每个客户端发送他们的信息。 
 
 
 
 创建一个邮件对象 
 
 
 将邮件对象设置为模板文件 
 
 
 设置然后用关于当前客户端的数据填充模板 - 大多停留在这里，不知道如何在模板中指定变量然后在VBA中与它们关联 
 
 
 保存到草稿供以后查看/发送 
 
 
 例如。 亲爱的<clientname> =亲爱的约翰史密斯 
 
 我的代码到目前为止： 
 
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("C:\egTemplate.oft")

With MyItem
    .To = Worksheets("Clients").Range(1, 2)
    .Subject = "Monthly bill"
    'Refer to and fill in variable items in template
    .Save
End With

Set MyItem = Nothing
Set MyOlApp = Nothing
 
 我需要知道，如果这是可能的，我可以做到没有插件，如果是的话，有没有人知道我可以遵循的良好的链接/教程？ 
 
 在此先感谢和亲切的问候 
 
 更新添加了我的代码并对请求进行了一些更改 

I have a list of data, let's say client information (Name, Email, Amount Owing etc.), stored in an Excel worksheet . My aim is to click a button in Excel and send each client their information in an Outlook Template.
 
 
 
create a mail object 
 
 
set the mail object to the template file 
 
 
setting and then filling in the template with data about the current client - mostly stuck here, not sure how to specify variables in a template and then relate to them in VBA 
 
 
save to drafts for later review/send
 
 
eg. Dear << clientname >> = Dear John Smith
 
My code thus far:
 
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("C:\egTemplate.oft")

With MyItem
    .To = Worksheets("Clients").Range(1, 2)
    .Subject = "Monthly bill"
    'Refer to and fill in variable items in template
    .Save
End With

Set MyItem = Nothing
Set MyOlApp = Nothing
 
I need to know if this is even possible, can I do it without plugins and if so, does anyone know a good link/tutorial I can follow? 
 
Thanks in advance and kind regards
 
Update Added my code and made some changes to the request

原文：https://stackoverflow.com/questions/8469960