在excel中利用vba调用outlook模板发送邮件， 在邮件内容中添加内容

516420485

大家好，
excel中用vba调用outlook模板发送邮件，但是我想在邮件中利用代码添加上一句话如
Dear xxx，
由于每次人名不同，想通过程序自动实现， 但是现在程序运行后只有我添加的内容， 模板的内容不见了， 请问该如何操作？如何添加内容才能保留模板的的内容？
代码如下：
Dim OutApp As Object
Dim OutMail As Object
Dim MailBody As Range
Dim MailSubject As String

Set OutApp = CreateObject("outlook.Application")
Set OutMail = OutApp.createItemfromtemplate("C:\Users\***\AppData\Roaming\Microsoft\Templates\feedback_template.oft")

MsgBox ("This will send a email to HQ-DE")
With OutMail
.To = "******"
.Subject = "Project number Application"
'.BodyFormat = outlook.OlbodyFormat.olFormatHTML
.HTMLBody = "Dear“+cells(1,1) + "<br>" & _
             "Please help to create a P-NO as below" + "<br>" + _
          RangetoHTML(MailBody)
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

闻启学

这个我未试过 但是 你可以是否获得模板的正文内容  

516420485

闻启学 发表于 2014-7-28 17:24
这个我未试过 但是 你可以是否获得模板的正文内容

如果我不写.HTMLBody = "Dear“+cells(1,1) + "<br>" & _
              "Please help to create a P-NO as below" + "<br>" + _
           RangetoHTML(MailBody)
这句时 通过  .display 以后可以看到模板中的邮件正文， 可以在里面随意添加更改，
但是加上红色字体显示的代码后， 邮件的正文就变成只有代码中的文字，
我想只在邮件最顶端添加一个“Dear xxx，”
模板中的正文依然存在，请问这样改怎么添加？

闻启学

516420485 发表于 2014-7-28 21:17
如果我不写.HTMLBody = "Dear“+cells(1,1) + "" & _
              "Please help to create a P-NO as  ...

这样的话 试一试 .HTMLBody = "Dear“+ .HTMLBody

516420485

那如果要在邮件中部替换一句话呢，不是在开头，是否有方法实现？

516420485

闻启学 发表于 2014-7-29 07:14
这样的话 试一试 .HTMLBody = "Dear“+ .HTMLBody

谢谢！那如果要在邮件中部替换一句话呢，不是在开头，是否有方法实现？

闻启学

516420485 发表于 2014-7-29 07:24
谢谢！那如果要在邮件中部替换一句话呢，不是在开头，是否有方法实现？

可以啊   relace 这个函数呗  

闻启学

请问一下 在outlook  里怎么增加模板的  

516420485

闻启学 发表于 2014-7-29 09:30
请问一下 在outlook  里怎么增加模板的

Set OutMail = OutApp.createItemfromtemplate("C:\Users\***\AppData\Roaming\Microsoft\Templates\feedback_template.oft")
这句代码