Question

作为在我们的服务台改善客户服务的持续流程，我希望在我们的展望中集成一项功能，以便我们可以使用Outlook模板（.oft）回复现有的电子邮件。

我的在线搜索主要给了我自动回复的结果。然而，这不是我（我们）需要的。

我们需要一种工具，使我们能够从标准模板列表中选择（具有面向主题的回复）。 http://replywith.4team.biz/为正确的方向提供解决方案，但是，与任何公司一样，我们希望获得免费工具。

这可以在VBA中编程吗？如果是这样，怎么样？

Answer 1

我们不能解释为什么，我们的，但要做和死。

这是一个基于http://msdn.microsoft.com/en-us/library/office/ff865637.aspx

的未经测试的小型VBA样本

Sub CreateReplyFromTemplate() 

dim currItem  As Outlook.MailItem 
dim currItemReply  As Outlook.MailItem 
Dim MyItem As Outlook.MailItem 

set currItem = activeinspector.currentitem
Set curritemReply = currItem.Reply
Set MyItem = Application.CreateItemFromTemplate("C:\HelpTopic1.oft") 

MyItem.To = currItemReply.To
MyItem.htmlbody = MyItem.htmlbody  & currItemReply.htmlbody

currItemReply.close oldiscard
currItem.close  oldiscard

MyItem.Display 

set curritemReply = nothing
set MyItem = nothing
set currItem = nothing
End Sub

有关部署VbaProject.OTM文件的方法http://www.outlookcode.com/article.aspx?id=28或查看是否有效VbaProject.OTM deployment

或者，免费版本内置于Outlook中。

通过快速步骤回复消息模板 - http://www.msoutlook.info/question/665

使用讯息模板 - http://www.howto-outlook.com/howto/messagetemplates.htm

如果可以接受培训，每人培训一天的费用可能是300美元或更多。

Answer 2

当然你可以在VBA中做到这一点，但你真的想要吗？您可以以99.50美元的价格购买该工具的10个许可证。我不知道你在哪里工作，但大多数软件公司99.50美元会给你带来大约一个小时的程序员时间（包括好处）。如果您节省了发布此问题的时间，您可能已经购买了1个许可证。

Answer 3

只是添加到上面的答案，在子CreateReplyFromTemplate（）而不是

Set curritemReply = currItem.Reply

替换为

Set currItem = Application.ActiveExplorer().Selection(1)

在outlook 2010中回复模板

3 个答案: