轻松创建和使Outlook模板可用的方法 [英] Easy way to create and make available Outlook templates

问题描述

Outlook 2013

我想创建并提供Outlook模板

我想到的一个想法是

在New Items下拉列表中添加我自己的Outlook模板。模板将位于使用已经存在的部署更新机制加工的用户的中心位置，例如

C：\Program Files（x86）\< CompanyTemplateshere> \模板

可以将快捷键添加到列表中，以便快速访问秘书模板。

可以将Outlook模板再次固定到任务栏快速访问秘书

有一种简单的方法可以做到这一点。

还是有更好的解决方案

非常感谢

解决方案

您好
dd _，

来自你对线程的描述，看起来你想要通过用户界面来完成。

如果您想通过用户界面进行操作，则无法执行此操作。

其他选项是您可以尝试在功能区中添加按钮，然后在该按钮的单击事件上调用vba代码。

您可以使用以下代码创建从模板项。

<预类= "prettyprint">子CreateFromTemplate（）
尺寸myOlApp作为Outlook.Application
尺寸MyItem作为Outlook.MailItem
将myOlApp =的CreateObject（QUOT; Outlook.Application"）
将MyItem = myOlApp.CreateItemFromTemplate（QUOT; C：\statusrep.oft"）
MyItem.Display
结束子

子CreateTemplate（）
尺寸myOlApp作为Outlook.Application
尺寸MyItem作为Outlook.MailItem
将myOlApp =的CreateObject（QUOT; Outlook.Application"）
将MyItem = myOlApp.CreateItem（olMailItem）
MyItem.Subject ="状态报告"
MyItem.To =" Dan Wilson"
MyItem.Display
MyItem.SaveAs" C：\\\\\\\\\&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&??????????????????????????????????????????????????????

CreateItemFromTemplate Method

问候

Deepak

Outlook 2013

I would like to create and make available Outlook templates

One idea I thought of is

to add my own Outlook templates in the New Items drop down list. The templates will be located in a central location on the users machined with a deployment update mechanism that already exists eg

C:\Program Files (x86)\<CompanyTemplateshere>\Templates

Can shortcut keys be added to the list for quick access to the templates for secretaries.

Can the Outlook templates be pinned to the taskbar again for quick access for the secretaries

Is there a simple easy way to do this.

or is there a better solution

Many thanks

解决方案

Hi dd_,

from your description of the thread, it looks like you want to do it by user interface.

if you want to do it by user interface then there is no way to do it.

other option is that you can try to add button in ribbon and then call the vba code on the click event of that button.

you can use code below to create item from template.

Sub CreateFromTemplate()
	Dim myOlApp As Outlook.Application
	Dim MyItem As Outlook.MailItem
	Set myOlApp = CreateObject("Outlook.Application")
	Set MyItem = myOlApp.CreateItemFromTemplate("C:\statusrep.oft")
	MyItem.Display
End Sub

Sub CreateTemplate()
	Dim myOlApp As Outlook.Application
	Dim MyItem As Outlook.MailItem
	Set myOlApp = CreateObject("Outlook.Application")
	Set MyItem = myOlApp.CreateItem(olMailItem)
	MyItem.Subject = "Status Report"
	MyItem.To = "Dan Wilson"
	MyItem.Display
	MyItem.SaveAs "C:\statusrep.oft", OlSaveAsType.olTemplate
End Sub

Reference:

CreateItemFromTemplate Method

Regards

Deepak

这篇关于轻松创建和使Outlook模板可用的方法的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！